السلام عليكم ورحمة الله وبركاته
اريد التعديل على المثال المرفق لربط البرنامج باكسس 2016
وشكرا
اريد التعديل على المثال المرفق لربط البرنامج باكسس 2016
وشكرا
كود :
Public DB As New ADODB.Connection
Public RSFILE As New ADODB.Recordset
Public Sub Connect_DB()
If DB.State = adStateOpen Then _
DB.Close
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.ACE.OLEDB.16.0;"
DB.Open App.Path & "\Data.accdb"
End Sub