اكرر سؤالي , ساعدوني

اخى العزيز

جرب هذا الكود وان شاء الله ينفذ ماتريد

Private Sub Command1_Click()
      Dim db As Database
      Dim MyRs As Recordset
      Set db = OpenDatabase("c:\test.mdb", False, False, ";pwd=test")
      Set MyRs = db.OpenRecordset("MyTable", dbOpenTable)
End Sub

تحياتى لك :rolleyes:

مشكور اخي بس المشكلة انا رابط القاعدة مو بالكود

رابطها عن طريق الاداة

الله يخليك شوف لي حل

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

وشكرا

هل من مجيب على سؤالي

أخي العزيز

ضعها في خاصيه ConnectionString وقد تعمل فلم اجرب الربط بالاداة فقد اختصرت الطريق واتجهت للتعامل بالاكواد فهي الافضل ..

اقتباس

ضعها في خاصيه ConnectionString وقد تعمل فلم اجرب الربط بالاداة فقد اختصرت الطريق واتجهت للتعامل بالاكواد فهي الافضل ..

وانا اؤيد رأى اخى النبهانى فأنا أيضاً لااستخدم الاداة للربط :rolleyes:

بصراحة ماعندي وقت اعيد كتابة الشفرة من جديد والربط بالشفرة

مشكورين ياشباب والله يعطيكم العافية

بجرب اقتراحك اخوي وإن شاء الله يكون صحيح

مافي فايدة للاسف

ياشباب مشكورين على الردود

حصلت الحل اخير

من اخوي recordset

وهذا الرابط

/index.ph...st=0&p=327461