تقييم الموضوع :
  • 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;" 
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة اضافة كود الاعداد في فجوال الاكسس نيمو 0 590 17-09-22, 01:36 AM
آخر رد: نيمو
  [vb6.0] كود استخراج البيانات من داتا جرايد الى الاكسل karmina2012 0 1,345 01-05-20, 07:08 AM
آخر رد: karmina2012
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 1,908 30-12-19, 01:25 PM
آخر رد: amazonette
  عرض البيانات في فلكس تكرار حامد محمد 5 2,516 18-08-19, 07:38 AM
آخر رد: Ahmed_Mansoor
  كيفية حماية قاعدة البيانات على الشبكة المحلية من النسخ والحذف abu jana 8 6,912 07-08-19, 11:04 PM
آخر رد: sendbad100
  تقريب الارقام وتخزينها في قاعدة البيانات amal_ly 2 2,210 29-03-19, 06:01 PM
آخر رد: sendbad100
Exclamation ترتيب البيانات تصاعديا Ashraf Elafify 10 9,364 07-07-18, 07:07 AM
آخر رد: elgokr
  [سؤال] المساعدة - بربط Combo بقاعدة البيانات amor58 1 1,986 30-01-18, 11:19 PM
آخر رد: Amir_Alzubidy
  [سؤال] تم الحل: مساعدة اخي احمد منصور علي مثالك لنسخ قاعدة البيانات والاتصال بها awidan76 7 2,977 28-01-18, 06:56 PM
آخر رد: awidan76
  كود لحفظ الفرق بين تاريخين الى قاعدة البيانات باستخدام DateDiff دهشوش1 4 2,793 06-11-17, 08:51 PM
آخر رد: دهشوش1

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


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