مشكلة فى ربط قاعدة بيانات سيكيول مع فيجوال بيسك 6

السلام عليكم ورحمة الله وبركاته 

كود الإتصال بقاعدة البيانات

مع تغيير إسم السيرفر          

من Salem-PC إلى سيرفركم

وإسم المستخدم

من Sa   إلى  الذى لديكم

وكلمة المرور

من 123 إلى  التى لديكم

اقتباس

Cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=VPMS;Data Source=Salem-PC;Pwd=123"

 

Rs.Open "Select TN,VMake,VModel,VColor,VPlate,VCity,CVAIN,CVAOUT,PDate,PTime,RDate,RTime,DDate,DTime FROM VpmsDialog", Cn, 1, 3

تم إرفاق البرنامج

ولكن بدون قاعدة البيانات لكبر المساحة 

ولانها موجودة لديكم من قبل 

البرنامج بعد التعديل.rar

شكرا لك اخى الكريم عرفات

على الاهتمام

بس انا جربت الكود ومازال هناك خطاا عدم وجود المكتبة فى الريفرنس ما هو الحل

خالد مسعود كتب:

شكرا لك اخى الكريم عرفات

على الاهتمام لقد تم الاتصال 

شكر جزيلا ويبقى ان اغير عرض ديبجريد

السلام عليكم ورحمة الله وبركاته  

أرسلت لحضرتك صورة 

فك الضغط بتاع المكتبة وشغلها  

حطها فى مكان البرنامج أو System32

msado60_Backcompat_i386.rar

شكرا اخى الكريم عرفات

الحمد لله تم الاتصال بس اناعاوز اعرض بشرط cvaout من ارقام  حتى بعد ان اكتب رقم السائق يتنقل السجل لجدول تانى  

ممكن توضح أكتر 

بمعنى  تقول 

جدول كذا موجود فيه كذا عايز إستعلام عن كذا

[table]
Private Sub Form_Load()
poolconnection
Rs.Open "Select TN,VMake,VModel,VColor,VPlate,VCity,CVAIN,CVAOUT,PDate,PTime,RDate,RTime,DDate,DTime FROM VpmsDialog where cvaout like'" & a & "'", , Cn, 1, 3


Set DataGrid1.DataSource = Rs
Set DataGrid2.DataSource = Rs

DataGrid1_Properties
[/table] عندما ارغب فى اضافى سيارة جديدة زر add vehicle المفروض ان كما فى الصورة العمود الاخضر يكون خالى من البيانات وبعد خروج السيارة ينتقل السجل الى جدول اخر  data backub انا حاولت التعديل فى الكود المرفق ولكن النتيجة خطأ  وكتبت الكود دة فى المديول public a as string