تقييم الموضوع :
  • 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 ك ب / التحميلات : 8)
الرد }}}}
تم الشكر بواسطة:
#2
اهلا و سهلا
تأكد من اسم قاعدة البيانات
يجب ان يكون اما db1 او db2
على الرحب و السعة
سأعود قريباً ان شاء الله

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


.rar   Pro_ADO {1}.rar (الحجم : 19.36 ك ب / التحميلات : 10)
سأعود قريباً ان شاء الله

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تطبيق هذا الكود bidaya 0 43 06-12-16, 04:46 AM
آخر رد: bidaya
  [vb6.0] الكود باستخدام فيجوال بيسك6 تالين الورفلي 2 98 23-10-16, 10:38 AM
آخر رد: Ashraf Elafify
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 124 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
Shocked [مثال] ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود ياسر عبد الكريم 2 117 26-09-16, 11:54 PM
آخر رد: ياسر عبد الكريم
  ما سبب الخطاء عند الحدث Adodc1.Refresh allobaed 4 146 01-09-16, 01:58 AM
آخر رد: allobaed
  احتاج الى الكود لتحويل الارقام الى حروف hicham716 10 448 07-07-16, 09:29 PM
آخر رد: hicham716
  اساتذتى الكرام ارجو المساعدة فى هذا الكود mhareek 4 188 26-06-16, 02:29 PM
آخر رد: mhareek
  اساتذتى الكرام ارجو المساعدة فى هذا الكود mhareek 2 150 24-05-16, 11:14 AM
آخر رد: mhareek
Question [vb6.0] أين الخطاء في الاستعلام في برنامجي المرفق ؟؟ Microformt 2 193 01-05-16, 06:29 AM
آخر رد: Microformt
  اين المشكلة في هذا الكود ؟ محمد ئوزبك 3 197 19-04-16, 02:10 AM
آخر رد: محمد ئوزبك

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


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