منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

(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("المصروفات ")
ومع ذلك مبيفتحش القاعدة اعمل اية
ارجو الرد من فضلكم

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