السلام عليكم ورحمة الله وبركاته
كيف يتم ربط البرنامج بقاعدة اكسيس عن طريق ملف نصى بدل Module؟؟؟
بحيث يتم تغيير الاتصال بقاعدة البيانات بالتعديل فى الملف النصى بدل الدخول الى البرنامج وتعديل Module الذى يحتوى على الرباط
(21-11-15, 11:20 PM)HASAN6.0 كتب : [ -> ]ما هو كود الاتصال
Public constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\main.accdb;Jet OLEDB
atabase Password=123456;"
ضع ملف نصي بجانب البرنامج اسمه Path.txt مثلاً
اكتب السطر الاول اسم قاعدة البيانات
والسطر الثاني الرقم السري
واكتب الFunction التالي
كود :
Public Function ConnectionString() As String
Dim list As New List(Of String)
Using r As StreamReader = New StreamReader(Application.StartupPath & "\path.txt")
Dim line As String
line = r.ReadLine
Do While (Not line Is Nothing)
list.Add(line)
line = r.ReadLine
Loop
End Using
Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\" & list(0) & ";Jet OLEDBBig Grinatabase Password=" & list(1) & ";"
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox(ConnectionString)
End Sub
يمكنك ايضاً حفظ اسم قاعدة البيانات والرقم السري في الـ Registry
كودالحفظ
savesetting("AA","BB","CC",databasePath)
كود الاسترجاع
GetSetting("AA", "BB", "CC")
بدلا من استخدام ملف نصي الأفضل أن تضع ConnectionString في App.config و هذا ما تنصح به مايكروسوفت لحماية ConnectionString
ولتنفيذ ذلك عليك ان تفتح ملف App.config من داخل الفيجوال استوديو ثم تضيف ConnectionString و سيكون شكل الملف في النهاية كالتالي
PHP كود :
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
</startup>
<connectionStrings>
<add name="ProjectConnectionString"
connectionString="Data Source=.;Initial Catalog=MyDatabase;Integrated Security=True"
providerName="System.Data.SqlClient" />
</connectionStrings>
</configuration>
و لاسترجاع Connection String عليك استخدام الكود بالشكل التالي:
او بالطريقة التي تريدها
لا تنسي فقط ان تضيف فضاء الاسماء System.Configuration الي مشروعك
PHP كود :
Private ReadOnly Property ConnectionString As String
Get
Return ConfigurationManager.ConnectionStrings("ProjectConnectionString").ConnectionString
End Get
End Property
HASAN6.0
silverlight
بارك الله فيكم شباب