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

مرحبا وصحة فطوركم
لدي مشروع تسيير المبيعات
عملت سلسلة الإتصال بقاعدة البيانات أكسس بواسطة Module أواجه خطأ في مسار سلسلة الإتصال بقاعدة البيانات رغم أنني تأكدت مرارا من صحة المسار إلا أن رسالة الخطا لا تزال تظهر ما العمل أرجوكم

أرفقت مثالا عن المشروع
[attachment=2138]

اخي الكريم
استخدم هذا الدالة بدال المسار الكامل
"+Source=" + IO.Directory.GetCurrentDirectory
اي انه سوف يتم البحث عن القاعدة في اي مكان تكون القاعدة
ارجو الافادة لان هذا الي فتهمتة من مشكلتك

متى تظهر رسالة الخطأ
وفي أي فورم تظهر

على العموم جرب هذا


Dim Str As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
Application.StartupPath & "\DataDirectory.accdb; Jet OLEDBatabase"
Public Cnn As New OleDbConnection(Str)