تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة بقاعدة البيانات
#1
السلام عليكم ورحمة الله وبركاته 

اخوتي الكرام 

عندي برنامج احاول تغيير طريقة اتصال قاعدة البيانات فيه لاستخدم طريقة SQL 

ولكن تظهر عندي رسالة Error 91

كما بالصورة 

كود الاتصال:
كود :
'Option Explicit
Public CN As New ADODB.Connection
Public RS As ADODB.Recordset
Public RS2 As ADODB.Recordset
Public RS3 As ADODB.Recordset
Public RS4 As ADODB.Recordset
Public sql As String
Dim dbpath As String

Public Sub Connected()
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset


With RS
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With

dbpath = App.path & "\base\Datacar.mdb"

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbpath & " ;Persist Security Info=False"


End Sub

هل يوجد خطأ بالاكواد ام هناك خطأ بطريقة الاتصال
وشكرا لكم


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة: asemshahen5
#2
ضع Connected قبل السطر المحدد بالاصفر .
الرد }}}
تم الشكر بواسطة: hannileo , hannileo , Ahmed_Mansoor
#3
(12-09-19, 05:00 PM)asemshahen5 كتب : ضع Connected قبل السطر المحدد بالاصفر .

اشكرك على الرد اخي العزيز 

لا اعتقد انها تحتاج connected  عندي برنامج اخر يعمل بشكل جيد وبنفس الطريقة هناك مشكلة ثانية بالاتصال
الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor
#4
ترجمة الرسالة بعض المتغيرات لم تسند لها قيم يقصد بها RS و CN بـ Connected قبل اللون الاصفر يتم اسنادها .
الرد }}}
تم الشكر بواسطة: hannileo , Ahmed_Mansoor , Ahmed_Mansoor , ahmedabdelaliem
#5
(12-09-19, 06:30 PM)asemshahen5 كتب : ترجمة الرسالة بعض المتغيرات لم تسند لها قيم يقصد بها RS و CN بـ Connected قبل اللون الاصفر يتم اسنادها .


صحيح لقد كانت المشكلة بالاتصال حفظت البرنامج وفتحته مرة ثانية 
اصبح يعمل بشكل جيد 

شكرا لك استاذي الكريم  وبارك الله بك
الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor
#6
الاخ العزيز دائمان ضع الاتصال بقاعدة البيانات في الفورم الرئيسي للبرنامج والذي يغلق عند انتهاء البرنامج وانسى المشاكل

لكل عند فتح ال ريكورد سيت في الانتهاء قوم باغلاقه مهم هذا الموضوع

بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5 , hannileo


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 0 373 21-01-24, 12:58 PM
آخر رد: haitham Muhammed
  [vb6.0] تصدير البيانات محمد عياش 0 469 12-12-22, 07:10 PM
آخر رد: محمد عياش
  مشكلة الللغة العربية في تصدير اكتيف ريبورت الى PDF hannileo 3 731 25-10-22, 02:03 PM
آخر رد: hannileo
  بخصوص صيغة التاريخ عند الحفظ في قاعدة البيانات hannileo 0 551 03-07-22, 12:19 PM
آخر رد: hannileo
  [vb6.0] مشكلة فى قاعدة بيانات اكسس mohhasddx1 1 1,000 04-08-21, 10:12 AM
آخر رد: awidan76
  [vb6.0] طلب : كود عرض نص معين من قاعدة البيانات وعرضه في label في داتا ريبورت hamada salah90 3 1,561 26-07-21, 06:43 PM
آخر رد: hamada salah90
  [vb6.0] أريد شرح مبسط وواضح للعلاقات بين جداول قاعدة البيانات وشرح الإستعلامات بهذه العلاقات hamada salah90 0 1,006 01-06-21, 02:12 AM
آخر رد: hamada salah90
  مشكلة في sql2005 VB6 ابو محمد وماريا 1 1,168 08-03-21, 10:14 PM
آخر رد: Amir_Alzubidy
  عندي مشكلة وهي عند تصدير ملف إكسل rami_cis 0 1,098 16-12-20, 12:28 AM
آخر رد: rami_cis
  [vb6.0] مشكل في ادخال البيانات من البارتاج lkjnfg 0 1,087 26-10-20, 10:03 PM
آخر رد: lkjnfg

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


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