تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ما هو الخطاء في هذا الكود
#1
Private Sub Form_Load()
Dim s As String, strconnect As String
Dim rs As New ADODB.Recordset
Dim Folder As String

Folder = App.Path
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
If Dir(Folder & "db1.mdb") = "" Then
    MsgBox "áã íÚËÑ ÇáÈÑäÇãÌ Úáì ÞÇÚÏÉ ÇáÈíÇäÇÊ ÇáÑÌÇÁ ãÑÇÓáÉ ÇáãÈÑãÌ Úáì ÇáÑÞã (0500024554)ááÍÕæá Úáì äÓÎÉ ÌÏíÏÉ ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ", vbExclamation + arabic, "ÞÇÚÏÉ ÈíÇäÇÊ ÛíÑ ãæÌæÏÉ"
    End
End If
strconnect = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =(Folder & db2.mdb)"
s = "Select * From mhj"
db.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =(Folder & db2.mdb"
rs.CursorType = adOpenDynamic
rs.Open s, strconnect

End Sub

حيث تظهر رسالة عدم الاتصال يقاعدة البيانات فما السبب


الملفات المرفقة
.rar   Pro_ADO.rar (الحجم : 18.11 ك ب / التحميلات : 17)
الرد }}}}
تم الشكر بواسطة:
#2
اهلا و سهلا
تأكد من اسم قاعدة البيانات
يجب ان يكون اما db1 او db2
على الرحب و السعة
" لا حول و لا قوة الا بالله "


الرد }}}}
#3
حياك الله اخي امير
قاعدة البيانات هي db1
 و لكن مازال الاتصال متعذر عند السطر
rs.Open s, strconnect
 و لا اعلم المشكلة
الرد }}}}
تم الشكر بواسطة:
#4
اهلا و سهلا
تفضل هذا تعديل كود الاتصال


.rar   Pro_ADO {1}.rar (الحجم : 19.36 ك ب / التحميلات : 17)
" لا حول و لا قوة الا بالله "


الرد }}}}
#5
بارك الله لك و جزاك خيرا .....
الناقص عندي
التعارف في المودل
و طريقة الاتصال
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 83 30-09-17, 08:27 PM
آخر رد: bidaya
  ظهور الخط العربي بخط غريب داخل شاشة الكود للفيجوال بيسك في الوندوز 10 allobaed 2 111 08-08-17, 03:09 AM
آخر رد: allobaed
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 206 26-05-17, 12:15 PM
آخر رد: larbihamri
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 197 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
  ما الخطاء في جملة الاستعلام النالية حيث لا تعمل allobaed 2 147 26-02-17, 06:59 PM
آخر رد: allobaed
  خطاء ارجو تصحيح الكود عمر سالم 5 328 10-02-17, 06:18 PM
آخر رد: sendbad100
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 430 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem
  ما الخطء في هذا الكود bidaya 2 259 22-12-16, 05:09 AM
آخر رد: Ahmed_Mansoor
  مساعدة في تطبيق هذا الكود bidaya 0 295 06-12-16, 04:46 AM
آخر رد: bidaya
  [vb6.0] الكود باستخدام فيجوال بيسك6 تالين الورفلي 2 348 23-10-16, 10:38 AM
آخر رد: Ashraf Elafify

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم