وعليكم السلام
يمكنك ذلك : إذا كان الاكسس على جهازك من اصدار 32bit و ليس x64
أولاً من خلال المكتبات قم بإضافة المكتبة /
Microsoft ActiveX Data Object6 X.x Library
ثم الكود - من خلال الأمر التالي :
يمكنك ذلك : إذا كان الاكسس على جهازك من اصدار 32bit و ليس x64
أولاً من خلال المكتبات قم بإضافة المكتبة /
Microsoft ActiveX Data Object6 X.x Library
ثم الكود - من خلال الأمر التالي :
كود :
Dim db As New ADODB.Connection
db.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password=; Data Source=" & App.Path & "\Database1.accdb"
db.Open
MsgBox "db Open" ' هنا ضع الاكواد التي ستتعامل بها مع الجداول كما في أي قاعدة بيانات أخرى
db.Closeقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
