14-03-15, 04:00 PM
Dim myPath As String
'يتم وضع فولدر الداتا بيز داخل فولدر bin --- debug
myPath = CurDir() & "\Data.accdb"
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= '" & myPath & "';Persist Security Info=False;")
'يتم وضع فولدر الداتا بيز داخل فولدر bin --- debug
myPath = CurDir() & "\Data.accdb"
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= '" & myPath & "';Persist Security Info=False;")
