+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [vb6.0] عمل باسوور لقاعدة البيانات الاكسس (/showthread.php?tid=16378)
عمل باسوور لقاعدة البيانات الاكسس - عمور2016 - 07-07-16
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
RE: عمل باسوور لقاعدة البيانات الاكسس - الوادي - 07-07-16
يا عمور،
جرب هذا التعديل
PHP كود :
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPathName & ";Jet OLEDB:Database Password=123321;"