المشاركات : 10
المواضيع 4
الإنتساب : Nov 2014
السمعة :
0
الشكر: 4
تم شكره 45 مرات في 4 مشاركات
السلام عليكم ورحمة الله
الكود صح مائة بالمائة بس عندما اكتب مثل rs.recordset او rs.addnaw المفروض بمجرد انى اكتب ( . ) تظهر لى الاختيارت وانا اختر منها المشكلة ان مبتظهرش الاختيارت دى
وايضا من ضمن المشاكل انى صممت قاعدة البيانات ب access وكتبت كود الربط بينها وبين المشروع ومع ذلك لما بفتح المشروع مبيفتحش القاعدة ياترى السبب اية
هل من افادة مشكوين
المشاركات : 58
المواضيع 19
الإنتساب : Nov 2014
السمعة :
3
الشكر: 217
تم شكره 253 مرات في 21 مشاركات
السلام عليكم
ارفق المشروع ,ليتم التعديل عليه
(سبحان الله العظيم سبحان الله وبحمده)
المشاركات : 501
المواضيع 119
الإنتساب : Jul 2014
السمعة :
16
الشكر: 1786
تم شكره 1291 مرات في 275 مشاركات
05-03-15, 11:56 PM
(آخر تعديل لهذه المشاركة : 06-03-15, 02:39 PM {2} بواسطة larbihamri.)
اختي الكريمة يجب عليك اضافة مكتبة الادو
وذلك من نافذة project ثم Reference
Microsoft Active X Data Object 2.6 او فما فوق
و العلم لله
المشاركات : 10
المواضيع 4
الإنتساب : Nov 2014
السمعة :
0
الشكر: 4
تم شكره 45 مرات في 4 مشاركات
اشكركم جدا جزاكم الله كل خير
في الحقيقة ان بالفعل حاولت انى ارفع المشروع ليتم التعديل علية بس معرفتش
المشاركات : 501
المواضيع 119
الإنتساب : Jul 2014
السمعة :
16
الشكر: 1786
تم شكره 1291 مرات في 275 مشاركات
حاولي ان تقومي بالخطوات كما قلت لك
عن طريق مكتبة الادو اما عن طريق 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
و الله اعلم