طلب كوداتصال بقاعدة في مسار معين

طلب كوداتصال بقاعدة في مسار معين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : طلب كوداتصال بقاعدة في مسار معين (/showthread.php?tid=37697)

طلب كوداتصال بقاعدة في مسار معين - ahmed201 - 02-02-21

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

كود :

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

RE: طلب كوداتصال بقاعدة في مسار معين - one - 02-02-21

(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" 

RE: طلب كوداتصال بقاعدة في مسار معين - ahmed201 - 03-02-21

(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"

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