04-02-19, 02:09 PM
هذا الكود الى اتعامل معاه
اتمنى المساعدة اخواني
كود :
Imports System.IO
Module ConnectionString
Dim st As String
Public Function ReadCS() As String
Using sr As StreamReader = New StreamReader(Application.StartupPath & "\SQLSettings.dat")
st = sr.ReadLine()
End Using
Return "Data Source = .\Sqlexpress;Initial Catalog=My_DB;Integrated Security=True;MultipleActiveResultSets=True;"
End Function
Public ReadOnly cs As String = ReadCS()
End Moduleكود :
Data Source=localhost;Initial Catalog=My_DB;Integrated Security=True