[atefkhalf2004]

ما الخطا في

الموجود في الملف النصي هو
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

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
أخي لديك سنكل كوتيشن زائد لاحظ

كود :

"& lines(0) & "'

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

كود :

   Public AllData As New List(Of String)(File.ReadAllLines(Application.StartupPath & "\ipfile.txt"))

وفي الصب

كود :

       Dim ff As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & AllData(0) & " ;Persist Security Info=False;"

[atefkhalf2004]

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

---

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

---

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

[ابراهيم ايبو]

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

كود :

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

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

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

كود :

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

[wsalem]

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

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

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

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

---

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

[atefkhalf2004]

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

[wsalem]

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

[atefkhalf2004]

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