سؤال بخصوص ربط برنامج بقاعدة بيانات

يمكنك ان تستخدم جملة SQL

select

بس عشان نعرف نفيدك أكتر ياريت توضح انت بتستخدم ايه بالظبط في ربط قاعدة البيانات بالبرنامج

على العموم دي جملة ال SQL الممكنة او المقترحة

select * from Table_name where Field_name = Search_word

Table_name اسم الجدول

Field_name اسم الحقل

Search_word كلمة البحث

= دي ممكن تبقى اي عملية مقارنة حسب انت بتبحث ازاي

ممكن تشتغل بالكود ده بتاع الDAO

Dim Mydb As Database
Dim Myrs As Recordset
MYSQL= "select * from Table_name where Field_name = Search_word"
Set Mydb = DBEngine.OpenDatabase(App.Path & "\DATA.mdb")
Set Myrs = Mydb.OpenRecordset(MYSQL)

Myrs ده فيه نتيجة البحث وممكن تعرضه باي طريقة تعجبك

لو انت بتستخدم اداة DATA العادية الموجودة في صندوق ادوات VB6 الأفتراضي

هايبقى الكود بتاع البحث كده

MYSQL= "select * from Table_name where Field_name = Search_word"
Data1.RecordSource = MYSQL
Data1.Refresh

وممكن تبحث باستخدام نفس الأداة اللي هي DATA

لكن بطريقة تانية وهي جمل FIND

Data1.Recordset.FindFirst 
Data1.Recordset.FindLast
Data1.Recordset.FindNext
Data1.Recordset.FindPrevious

ودي تبقى كده

Data1.Recordset.FindFirst ("Field_name = Search_word")

وبقول تاني عشان نعرف نفيدك أكتر ياريت توضح انت بتستخدم ايه بالظبط في ربط قاعدة البيانات بالبرنامج

مشكور اوي اخى بس انا أستخدم العادية الموجودة في صندوق ادوات VB6

drakolamax كتب:

مشكور اوي اخى بس انا أستخدم العادية الموجودة في صندوق ادوات VB6

طيب كويس

انا كتبتلك طريقتين للبحث بالأداة دي

يارب يكونوا نفعوك

بارك الله فيكم يا شباب