[تنبيه - عنوان غير مناسب : ]**----*ممكن مساعدة على السريع يأهل الخبرة ----

بدأه aissa597 في 8 يناير 2009 · 4 رد · 410 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#18 يناير 2009 في 18:04 صاحب الموضوع

أرجو منك ماهو أصلاح هذا الخطاء في الكود الذي لونه أحمر

وعلما أني استعمل لغة Microsoft Visual Basic 6 والقواعد البيانات أكسس وعملية الربط با ِADO رقم السري لقاعدة البيانات 123

الكود:

Private Sub Form_Load()

On Error Resume Next

Call LoadKeyboardLayout("00000401", 1)

Set db = OpenDatabase(App.Path & "\db1.mdb")

Set Rs = db.OpenRecordset("SELECT * from Users")

UpdateData

Text1.Text = ""

Text2.Text = ""

OsenXPCheckBox9.Value = Unchecked

OsenXPCheckBox1.Value = Unchecked

OsenXPCheckBox2.Value = Unchecked

OsenXPCheckBox3.Value = Unchecked

OsenXPCheckBox4.Value = Unchecked

OsenXPCheckBox5.Value = Unchecked

OsenXPCheckBox7.Value = Unchecked

OsenXPCheckBox5.Enabled = False

End Sub

#28 يناير 2009 في 21:35

والكود الذي لونه أحمر هو .........؟

هذه الجملة خاطئة :wacko:

#39 يناير 2009 في 02:27

اسف هز الكود

Set db = OpenDatabase(App.Path & "\db1.mdb")

#49 يناير 2009 في 14:42

ما هي رسالة الخطأ؟

هذه الجملة خاطئة :wacko:

#59 يناير 2009 في 16:01

جرب الكود التالي :

Set db = OpenDatabase(App.Path & "\db1.mdb",False, False, ";pwd=123")

الرجاء اختيار عنوان أفضل للموضوع ..

تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 9 يناير 2009 في 16:03

سبحان الله وبحمده ... سبحان الله العظيم

[تنبيه - عنوان غير مناسب : ]****----***ممكن مساعدة على السريع يأهل الخبرة ****----****