21-02-22, 08:37 PM
ما الخطا في
الموجود في الملف النصي هو
D:\e2\osamadanas\WindowsApplication1\bin\Debug\theclinic.mdb
Public Lines() As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\ipfile.txt").Split(vbCrLf)
Public Sub openconn()
ff = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="& lines(0) & "' ;Persist Security Info=False;"
conn = New OleDbConnection(ff)
Try
conn.Open()
Catch ex As Exception
MessageBox.Show("gagal koneksi")
End Try
End Sub
الموجود في الملف النصي هو
D:\e2\osamadanas\WindowsApplication1\bin\Debug\theclinic.mdb
Public Lines() As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\ipfile.txt").Split(vbCrLf)
Public Sub openconn()
ff = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="& lines(0) & "' ;Persist Security Info=False;"
conn = New OleDbConnection(ff)
Try
conn.Open()
Catch ex As Exception
MessageBox.Show("gagal koneksi")
End Try
End Sub