السلام عليكم
كيفكم اخواني إن شاء الله بخير
عندي مشكلة غريبة وهي ظهور رسالة Invalid Data Source عند محاولة فتح تقارير Data Report في البعض القليل من اجهزة عملائي وليس الجميع رغم اني قمت بتضمين جميع المكتبات اللتي يحتاجها البرنامج للعمل داخل السيتب وبما مجموعه 30% من الاجهزة التي تم اختباره عليها ظهرت فيها هذه المشكلة
وهذا الكود الذي استخدمته في الربط
في قسم التصريحات General
اقتباس
Dim conn As ADODB.Connection
Dim rs5 As ADODB.Recordset
ثم استدعي هذي الدالة
اقتباس
Function connectDB()
Set conn = New ADODB.Connection
Set rs5 = New ADODB.Recordset
If conn.State = 1 Then conn.Close
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\ِAlrwabi.mdb" & ";Jet OLEDB:Database Password=987654321"
.Open
End With
End Function
مع العلم أني استخدم قاعدة بيانات Access 2007
أرجوا شاكرا إفادتي بحل هذه المشكلة الغريبة التي تؤرقني ولم أجد لها حلا بعد بحث طويل في كثير من المواقع العربية والاجنبية وسأكون شاكرا ممتنا لكم
جزاكم الله خير مقدما