[HASAN6.0]

ضع ملف نصي بجانب البرنامج اسمه 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