منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كوداتصال بقاعدة في مسار معين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي مشكلة اتصال بقاعدة بيانات في مسار خرج ملف البرنامج اني كل ماحول اتصال بيها لا يتم الاتصال غير ان المسار صحيح ولكن يدخل علي مجلد البرنامج ولا يخرج منه حتي اني وضعت المسار اليكم الكود
كود :
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
(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" 
(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" 

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