تقييم الموضوع :
  • 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 ك ب / التحميلات : 28)
الرد }}}
تم الشكر بواسطة:
#2
اهلا و سهلا
تأكد من اسم قاعدة البيانات
يجب ان يكون اما db1 او db2
على الرحب و السعة
الرد }}}
#3
حياك الله اخي امير
قاعدة البيانات هي db1
 و لكن مازال الاتصال متعذر عند السطر
rs.Open s, strconnect
 و لا اعلم المشكلة
الرد }}}
تم الشكر بواسطة:
#4
اهلا و سهلا
تفضل هذا تعديل كود الاتصال


.rar   Pro_ADO {1}.rar (الحجم : 19.36 ك ب / التحميلات : 29)
الرد }}}
#5
بارك الله لك و جزاك خيرا .....
الناقص عندي
التعارف في المودل
و طريقة الاتصال
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اختصار الكود حسب المثال المرفق abde6726 2 282 29-10-23, 11:00 AM
آخر رد: abde6726
  اختصار الكود حسب المثال المرفق abde6726 0 220 28-10-23, 05:01 PM
آخر رد: abde6726
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] كيف اعرف رقم الخطاء عند ظهور هذه الرسالة في برنامجي؟ Microformt 0 398 07-10-22, 09:51 PM
آخر رد: Microformt
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 912 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى
Question [vb6.0] هل يمكن تغير نوع خط Label من خلال الكود وكيف ذلك ؟؟ Microformt 2 1,051 10-10-21, 08:58 AM
آخر رد: Microformt
  [سؤال] مساعدة في عمل هذا الكود العبادي 2 11 2,961 09-09-21, 01:29 AM
آخر رد: اسلام الكبابى
Question [vb6.0] نامل المساعدة في هذا الكود المرفق إن امكن ذلك ؟؟ Microformt 3 1,261 23-05-21, 08:50 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفيه البحث باستخدام الكود aboezzat84 1 1,208 28-12-20, 05:59 PM
آخر رد: sendbad100
  سوال اخوانى الاحباب ارجو المساعدة فى هذا الكود كي بورد ارقام mhareek 0 1,009 22-09-20, 09:04 PM
آخر رد: mhareek

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


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