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

Private Sub Command1_Click()
Adodc1.RecordSource = "SELECT english.word, english.type, english.example FROM english INNER JOIN (arabic INNER JOIN [translate] ON arabic.ar_id = translate.ar_id) ON english.en_id = translate.en_id WHERE (((arabic.word)='" & Text1.Text & "'));"
Adodc1.Refresh
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

مع تحيات منتديات نوردين المتطورة

» كود رائع لحل مشكلة وجود ملف قاعدة البيانات
» قاموس مصطلحات السجاد مرفق صور بالقاموس
» دراسة لكيفية عمل قاعدة بيانات - مفأجاة منتديات نوردين المتطورة