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

ما الخطا في

الموجود في الملف النصي هو
D:\e2\osamadanas\WindowsApplication1\bin\Debug\theclinic.mdb

 Public Lines() As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\ipfile.txt").Split(vbCrLf)




  Public Sub openconn()
        ff = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="& lines(0) & "' ;Persist Security Info=False;"
        conn = New OleDbConnection(ff)

        Try
            conn.Open()
        Catch ex As Exception
            MessageBox.Show("gagal koneksi")
        End Try
    End Sub

السلام عليكم ورحمة الله وبركاته
أخي لديك سنكل كوتيشن زائد لاحظ
يمكنك تستخدام هذا الكود بحيث تقرأ الملف وتضعه في List واجلب المكتبة Imports System.IO
وفي الصب

'D:\e2\osamadanas\WindowsApplication1\bin\Debug' المسار غير صحيح. تأكد من صحة إملاء اسم المسار ومن اتصالك بالخادم الموجود عليه الملف.

---

افيدني
الله يخليك

---

D:\e2\osamadanas\WindowsApplication1\bin\Debug\theclinic.mdb

اخي الخطأ واضح
تاكد من هذا المسار كتابة ومسارا فلربما المسار خطأ او تسلسل اسم المشروع مع المجلد الحاوي
اذهب الى المشروع وادخل عليه حتى مكان قاعدة البيانات ثم خذ المسار من سطر المسار في نافذة الويندوز

ربما المسار هكذا :

اخي انا جربت عمل نفس المسار ولم يظهر خطا
طلعت مسج فيها كلمه "فاتوره"

تاكد ان ملف قاعده البيانات فعلا في المسار
D:\e2\osamadanas\WindowsApplication1\WindowsApplication1\bin\Debug

يمكن ما فيه
 WindowsApplication1\WindowsApplication1\bin\Debug
وان المسار فقط
D:\e2\osamadanas

فيكون
D:\e2\osamadanas\theclinic.mdb

---

عشان تتاكد انسخ المسار من مستكشف الويندوز وضيف ليه فقط اسم ملف القاعده

تمام شكرا
لكم
جميعا

وانا بشكرك ع التقييم

اقل واجب لكم الشكر والتقدير