السلام عليكم ورحمة الله وبركاته
احبتي كيف حالكم
بحثت لحل مشكلتي ولم اجده فلجات اليكم
مشكلتي اخواني
كيف أعمل في ربط قاعدة بيانات عملتها
باكسس 2010 مع فجو ال بيسك 6
في السابق كنت اعملها باكسس قديم وعند الانتهاء احولها
الئ 97
وشكرا
كود :
Public Sub ConnectionDatabase()
On Error GoTo 1
If DB.State = adStateOpen Then _
DB.Close
DB.CursorLocation = adUseClient
DB.Provider = "microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password=123456789"
DB.Open App.Path & "\Data.Base\db1.accdb"
Exit Sub
1
MsgBox "áã íÚËÑ ÇáÈÑäÇãÌ Úáì ÞÇÚÏÉ ÇáÈíÇäÇÊ", vbCritical + vbMsgBoxRtlReading, "Data_Base"
End Sub
حيث: (Data.Base) - اسم مجلد قاعدة البيانات
(db1.accdb) - اسم قاعدة البيانات
ممكن توضيح أكثر لأن الفجوال بيسك 6 رافض يستدعي الاكسس 2010
(19-10-20, 12:13 AM)العولقي١١ كتب : [ -> ]ممكن توضيح أكثر لأن الفجوال بيسك 6 رافض يستدعي الاكسس 2010
عندي على الجهاز اوفس 2007.
لو رغبت في مثال بأكسس 2007 ففي الخدمة
ممكن بعد الربط عمل اكسس 2000 ويشتغل معاك مع مرعاه مسح المسار
(06-03-22, 09:36 AM)Mostafa201255411 كتب : [ -> ]ممكن بعد الربط عمل اكسس 2000 ويشتغل معاك مع مرعاه مسح المسار
كود :
Dim x as string
x = app.path & "\db1.mdb" متغير مسار قاعدة البيانات
Set db = OpenDatabase(x) فتح قاعدة البيانات
(x) متغير لمسار قاعـــدة البيانــــات
(db1) اســــــم قاعـــدة البيانـــات
بالنسبة لامتداد قاعدة البيانات من 2003 فما تحت (mdb)
2007 فما فوق ... 2010 - 2013 - 2014 - 2016 (.accdb)