[العولقي١١]

السلام عليكم ورحمة الله وبركاته
احبتي كيف حالكم 
بحثت لحل مشكلتي ولم اجده فلجات اليكم 
مشكلتي اخواني 
كيف أعمل في ربط قاعدة بيانات عملتها 
باكسس 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 ففي الخدمة

[Mostafa201255411]

ممكن بعد الربط عمل اكسس 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)