تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] عمل باسوور لقاعدة البيانات الاكسس
#1
Public Sub ConnectDB()
On Error Resume Next: Err.Clear

If DB.State = adStateOpen Then Exit Sub

DB.Close

MyPath = App.Path
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

DBPathName = MyPath & "sample100.mdb"
 
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPathName
DoEvents

end sub
  'اين اعمل باسسورد للفيجوال بيسك للدخول  عبر الاكسس

طبعا الاكسس له رقم سري واريد الاتصال به ورقم السري هو 123321
الرد }}}}
تم الشكر بواسطة:
#2
يا عمور،

جرب هذا التعديل
PHP كود :
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" DBPathName ";Jet OLEDB:Database Password=123321;" 
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 9 140 23-11-16, 09:41 AM
آخر رد: amer2000
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 130 18-08-16, 12:13 AM
آخر رد: استايل
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 435 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 168 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  مساعدة : كود لنسخ قاعد البيانات استرجاعها محمد2015 10 915 21-01-16, 01:56 AM
آخر رد: awidan76
  كيف يتم انشاء استعلام كشف حساب مثل الذي في الصوره المرفقة من خلال فجوال البيسك الى قاعدة البيانات ؟؟ softmail8 1 594 16-02-15, 10:32 AM
آخر رد: Ashraf Elafify
Exclamation ترتيب البيانات تصاعديا Ashraf Elafify 8 1,819 09-02-15, 01:58 PM
آخر رد: Ashraf Elafify
  == ماذا نعني ب ضغط وإصلاح قاعدة البيانات == sniperjawadino 4 789 04-08-13, 04:39 PM
آخر رد: sniperjawadino
  AccessPass معرفة كلمة سر قواعد البيانات derbaliammar 4 868 03-08-13, 06:21 AM
آخر رد: سعود
  ارجو المساعدة في كود لدمج اعمدة قاعدة البيانات علوش 6 774 25-07-13, 04:51 AM
آخر رد: علوش

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


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