19-03-17, 02:33 PM
بسم الله الرحمن الرّحيم
مبارك و سعيد يومكم أعزّائي و إخواني و أحبّتي في الله
فضل و كرم منك لا أمر .. إذا كان بالإمكان كيفيّة إضافة كلمة المرور لهذا الجزء من الكود ..و كلمة المرور لقاعدة البيانات هي 123456 :
كود :
Private Sub Form_Load()
FileSource = App.Path & "\DATABASE.mdb"
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & FileSource & ""
Adodc1.ConnectionString = sConnect
Adodc1.RecordSource = "Select * From [LOCALE] order by الرقم"
Adodc1.Refresh
End Subحاولت كثيرًا لكنّها تظهر رسالة الخطأ هذه :
مع الإشارة إلى هذا السّطر :
Adodc1.Refresh
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
فائق الإحترامات