[ahmed201]

عندي مشكلة اتصال بقاعدة بيانات في مسار خرج ملف البرنامج اني كل ماحول اتصال بيها لا يتم الاتصال غير ان المسار صحيح ولكن يدخل علي مجلد البرنامج ولا يخرج منه حتي اني وضعت المسار اليكم الكود

كود :

If db.State = 1 Then db.Close '
db.CursorLocation = adUseClient'
db.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=Ahmed12345" '
db.Open App.Path & Text1.Text & admin.mdb

[one]

(02-02-21, 11:22 PM)ahmed201 كتب : عندي مشكلة اتصال بقاعدة بيانات في مسار خرج ملف البرنامج اني كل ماحول اتصال بيها لا يتم الاتصال غير ان المسار صحيح ولكن يدخل علي مجلد البرنامج ولا يخرج منه حتي اني وضعت المسار اليكم الكود

كود :

If db.State = 1 Then db.Close '
db.CursorLocation = adUseClient'
db.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=Ahmed12345" '
db.Open App.Path & Text1.Text & admin.mdb

تفضل تعديل السطر ولكن تاكد ان الموجود في Text1 هو المسار فقط بدون اسم قاعدة البيانات مثل

PHP كود :

db.Open Text1.Text & "\admin.mdb" 


[ahmed201]

(02-02-21, 11:46 PM)one كتب :

(02-02-21, 11:22 PM)ahmed201 كتب : عندي مشكلة اتصال بقاعدة بيانات في مسار خرج ملف البرنامج اني كل ماحول اتصال بيها لا يتم الاتصال غير ان المسار صحيح ولكن يدخل علي مجلد البرنامج ولا يخرج منه حتي اني وضعت المسار اليكم الكود

كود :

If db.State = 1 Then db.Close '
db.CursorLocation = adUseClient'
db.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=Ahmed12345" '
db.Open App.Path & Text1.Text & admin.mdb

تفضل تعديل السطر ولكن تاكد ان الموجود في Text1 هو المسار فقط بدون اسم قاعدة البيانات مثل

PHP كود :

db.Open Text1.Text & "\admin.mdb" 


جزاك الله الف خير وبارك الله فيك