البحث في قاعدة البيانات

[hamata00]

سنتعلم اليوم ان شاء الله طريقة البحث في قواعد البيانات سواء
بكلمة محددة أو بجزء من الكلمة وسيكون برنامجنا مترجم
للكلمات ( قاموس بسيط )
افتح مشروع جديد وضع عليه مربعين نص وضع أداة Data و زرين

انشىء قاعدة بيانات على الاكسيس وانشئ داخلها جدول مكون من خانتين كما في الصورة وضع فيها اي كلمة مع معانيها


قم بربط القاعدة عن طريق الكود الأتي :
ضع الكود تحت بدء تحميل النموذج Form1_Load

Me.Data1.DatabaseName = App.Path & "/" & "words.mdb"
Me.Data1.RecordSource = "TRN"
Me.Text1.DataField = "word"
Me.Text2.DataField = "meaning""

ومن الخصائص حول الخاصية data source لمربعي النص text1 and text2 إلى data1

تحت زر الامر المسمى بحث بالكلمة ضع الكود الأتي

txt = InputBox("أدخل الكلمة ", "تجربة")
TABN = "word Like '"
Form1.Data1.Recordset.FindFirst (TABN & txt & "'")
If Form1.Data1.Recordset.NoMatch Then MsgBox "تم البحث عن [" & txt & _
"] وهو غير موجود", vbExclamation, "نتيجة البحث"

وتحت الزر المسمى بحث بجزء من الكلمة

txt = InputBox("أدخل جزء من الكلمة ", "تجربة")
TABN = "word Like '*"
Form1.Data1.Recordset.FindFirst (TABN & txt & "*'")
If Form1.Data1.Recordset.NoMatch Then MsgBox "تم البحث عن [" & txt & _
"] وهو غير موجود", vbExclamation, "نتيجة البحث"

ارجو الرد بعد التجربة

[hamata00]

فين الردود الشرح سيء للدرجة دي

[zakimoulayabdellah]

slam 3alikom akhi
char7 rai3 jidan wa mafhom jidan
nachkoroka 3al majhodika rai3 :smailes100: :smailes91:

[Euro]

this is very good code, thanks

[Ahmed_ghanam]

مشكور اخى الكريم درس رائع ومفيد جدا

[hamata00]

شكرا علي ردودكم