[ghada abd elnabe]

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

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

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

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

[Ksa004]

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

[larbihamri]

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

[ghada abd elnabe]

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

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

[ghada abd elnabe]

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

[larbihamri]

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