منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 (/showthread.php?tid=36730)



كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 - العولقي١١ - 18-10-20

السلام عليكم ورحمة الله وبركاته
احبتي كيف حالكم 
بحثت لحل مشكلتي ولم اجده فلجات اليكم 
مشكلتي اخواني 
كيف أعمل في ربط قاعدة بيانات عملتها 
باكسس 2010 مع فجو ال بيسك 6
في السابق كنت اعملها باكسس قديم وعند الانتهاء احولها
الئ 97 
وشكرا


RE: كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 - مصمم هاوي - 18-10-20

كود :
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) - اسم قاعدة البيانات


RE: كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 - العولقي١١ - 19-10-20

ممكن توضيح أكثر لأن الفجوال بيسك 6 رافض يستدعي الاكسس 2010


RE: كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 - مصمم هاوي - 19-10-20

(19-10-20, 12:13 AM)العولقي١١ كتب : ممكن توضيح أكثر لأن الفجوال بيسك 6 رافض يستدعي الاكسس 2010

عندي على الجهاز اوفس 2007.
لو رغبت في مثال بأكسس 2007 ففي الخدمة


RE: كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 - Mostafa201255411 - 06-03-22

ممكن بعد الربط عمل اكسس 2000 ويشتغل معاك مع مرعاه مسح المسار


RE: كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 - مصمم هاوي - 07-03-22

(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)