[عبد العزيز البسكري]

بسم الله الرحمن الرّحيم

مبارك و سعيد يومكم أعزّائي و إخواني و أحبّتي في الله

فضل و كرم منك لا أمر .. إذا كان بالإمكان كيفيّة إضافة كلمة المرور لهذا الجزء من الكود ..و كلمة المرور لقاعدة البيانات هي 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

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء

فائق الإحترامات

[Amir_Alzubidy]

السلام عليكم ورحمة الله
اهلا بك اخي عبد العزيز

تعديل الكود :

PHP كود :

Dim FileSource As String
FileSource = App.Path & "\DATABASE.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"

sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= " & FileSource & ""
Adodc1.ConnectionString = sConnect
Adodc1.RecordSource = "Select * From [LOCALE] order by ID"
Adodc1.Refresh 


[sendbad100]

تسلم يدك اخي امير 


انظر ايضا الرابط التالي قد يفيدك  

https://www.connectionstrings.com/access/

[عبد العزيز البسكري]

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

أهلاً أخي الغالي و صديقي العزيز " أمير الزّبيدي "

أتمنى و أدعو الله من كل قلبي أن تكون بتمام الصحة و العافية و كل الأسرة الكريمة

تمام أخي الغالي .. ألف بالمئة و لله الحمد و الشّكر

بارك الله فيك و لك و جزاك خير الجزاء و رزقك خير الدّاريْن إن شاء الله

خالص المحبّة و الشّكر و الإحترام

---

تسلم أخي الحبيب " SENDBAD 100 " على الرّابط المفيد

سأحاول بإذن الله متابعته كي أستفيد من تعليماته

بارك الله فيك و لك و زادها بموازين حسناتك إن شاء الله

إحتراماتي

[larbihamri]

شكرا أساتذتنا بارك الله فيكم و في أهليكم