تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة كلمة المرور
#1
بسم الله الرحمن الرّحيم
مبارك و سعيد يومكم أعزّائي و إخواني و أحبّتي في الله
فضل و كرم منك لا أمر .. إذا كان بالإمكان كيفيّة إضافة كلمة المرور لهذا الجزء من الكود ..و كلمة المرور لقاعدة البيانات هي 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

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
فائق الإحترامات
الرد }}}}
تم الشكر بواسطة: larbihamri
#2
السلام عليكم ورحمة الله
اهلا بك اخي عبد العزيز

تعديل الكود :

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 
الرد }}}}
#3
تسلم يدك اخي امير 


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

https://www.connectionstrings.com/access/
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
#4
السّلام عليكم و رحمة الله و بركاته
أهلاً أخي الغالي و صديقي العزيز " أمير الزّبيدي "
أتمنى و أدعو الله من كل قلبي أن تكون بتمام الصحة و العافية و كل الأسرة الكريمة
تمام أخي الغالي .. ألف بالمئة و لله الحمد و الشّكر
بارك الله فيك و لك و جزاك خير الجزاء و رزقك خير الدّاريْن إن شاء الله
خالص المحبّة و الشّكر و الإحترام

تسلم أخي الحبيب " SENDBAD 100 " على الرّابط المفيد
سأحاول بإذن الله متابعته كي أستفيد من تعليماته
بارك الله فيك و لك و زادها بموازين حسناتك إن شاء الله
إحتراماتي
الرد }}}}
#5
شكرا أساتذتنا بارك الله فيكم و في أهليكم
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : إضافة الملفات أثناء تصطيب البرامج التّنفيذيّة عبد العزيز البسكري 13 655 18-01-18, 10:22 PM
آخر رد: الوايلي
  إضافة رمز إلى نص أو رقم فيصل علي 2 50 17-01-18, 12:23 AM
آخر رد: فيصل علي
  [vb6.0] إضافة SMButton larbihamri 11 401 05-07-17, 07:44 AM
آخر رد: sendbad100
  [vb6.0] كود للإتصال بقاعدة البيانات أكسس محمية بكلمة المرور larbihamri 2 207 24-05-17, 04:54 PM
آخر رد: larbihamri
  [سؤال] إضافة وتعديل وحذف في ملفات مجدوله Easy4ever 8 1,603 23-04-17, 01:15 AM
آخر رد: Hassanula
  [ تمّ الحل ] : تعديل كلمة المرور عبد العزيز البسكري 8 406 08-04-17, 09:33 PM
آخر رد: larbihamri
  طلب نعديل كود إضافة أجازة لمشروع شؤون الموظفين مصمم هاوي 3 279 28-02-17, 10:26 PM
آخر رد: sendbad100
Question [vb6.0] كيف يمكن إضافة ايقونات الى قائمة المستخدمين في برنامجي المرفق مثال الذي في الصوره ؟ Microformt 2 500 18-01-17, 11:53 AM
آخر رد: Microformt
  [ تمّ الحل ] : إضافة كومبوبوكس للبحث بحقل معيّن عبد العزيز البسكري 10 740 13-01-17, 04:47 AM
آخر رد: عبد العزيز البسكري
  [سؤال] لا أستطيع إضافة أدوات على ال frame في فيجوال vb.6 ما الحل؟ shawqi 1 287 12-01-17, 06:57 PM
آخر رد: مساعدة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم