15-03-19, 08:18 PM
توجد مسافة قبل اسم ملف قاعدة البيانات وهذه تؤثر على التحقق من وجود الملف
تأكد من وجود مجلد باسم test وأن قاعدة البيانات بالإسم المطلوب موجود بداخله
الافضل ان تعمل متغير مستقل لاسم الملف مثل
dim fn=Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\test\sss.accdb"
ثم اضافته لنص الإتصال مثل
dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fn)
تأكد من وجود مجلد باسم test وأن قاعدة البيانات بالإسم المطلوب موجود بداخله
الافضل ان تعمل متغير مستقل لاسم الملف مثل
dim fn=Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\test\sss.accdb"
ثم اضافته لنص الإتصال مثل
dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fn)