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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيفة ربط قاعدة البيانات بالمشروع (/showthread.php?tid=11602)



كيفة ربط قاعدة البيانات بالمشروع - ghada abd elnabe - 05-03-15

السلام عليكم ورحمة الله

الكود صح مائة  بالمائة بس عندما اكتب مثل rs.recordset او rs.addnaw المفروض بمجرد انى اكتب ( . )  تظهر لى الاختيارت وانا  اختر منها المشكلة ان مبتظهرش الاختيارت دى

وايضا من ضمن المشاكل انى صممت قاعدة البيانات ب access  وكتبت كود الربط بينها وبين المشروع ومع ذلك لما بفتح المشروع مبيفتحش القاعدة  ياترى السبب اية

هل من افادة مشكوين


RE: كيفة ربط قاعدة البيانات بالمشروع - Ksa004 - 05-03-15

السلام عليكم
ارفق المشروع ,ليتم التعديل عليه


RE: كيفة ربط قاعدة البيانات بالمشروع - larbihamri - 05-03-15

اختي الكريمة يجب عليك اضافة مكتبة الادو
وذلك من نافذة project ثم Reference
Microsoft Active X Data Object 2.6 او فما فوق
و العلم لله


RE: كيفة ربط قاعدة البيانات بالمشروع - ghada abd elnabe - 06-03-15

اشكركم جدا جزاكم الله كل خير

في الحقيقة ان بالفعل حاولت انى ارفع المشروع ليتم التعديل علية بس معرفتش


RE: كيفة ربط قاعدة البيانات بالمشروع - ghada abd elnabe - 08-03-15

(05-03-15, 11:56 PM)larbihamri كتب : اختي الكريمة يجب عليك اضافة مكتبة الادو
وذلك من نافذة project ثم  Reference
Microsoft Active X Data Object 2.6 او فما فوق
و العلم لله

اخى الكريم جزاك الله كل خير وبعد
انا فعلا ربط القاعدة بالمشروع عن طريق Microsoft DAO 3.6 Object Library
اما بالنسبة لكود الربط كتبت set rsdb = opendatabase("pharmace.mdb
set ghtb = rsdb.Recordset("المصروفات ")
ومع ذلك مبيفتحش القاعدة اعمل اية
ارجو الرد من فضلكم


RE: كيفة ربط قاعدة البيانات بالمشروع - larbihamri - 08-03-15

حاولي ان تقومي بالخطوات كما قلت لك
عن طريق مكتبة الادو اما عن طريق Microsoft DAO 3.6 Object Library و الله ما اعرف الطريقة
و الكود كالتالي

Private Sub Form_Load()
With cn
.Provider = "microsoft.jet.oledb.4.0"
.CursorLocation = adUseClient
.Open App.Path & "\pharmace.mdb"
End With
sql = "select*from x"
x هنا تمثـــل الجــــــدول الــــذي تريديـــــن فتحـــــــــــــــه

If rs.State = adStateOpen Then
rs.Close
End If
rs.Open sql, cn, adOpenStatic, adLockOptimistic
End Sub
و الله اعلم