السلام عليكم.........
لدي جدول في قاعدة بيانات أكسس ترتبط بالفيجوال بيسك 2005 ويمكن أن تتكرر الكلمة في العمود الاول منه كما هو الحال في الشكل التالي :
كتب | مكتبة | مكان تخزين الكتب
كتب | كتاب | أحد مصادر المعلومات.
اريد عند أدخال المستخدم كلمة ( كتب) ان تظهر له رساله كالتالي :
كلمة ( كتب ) موجودة بمعنى :
مكتبة : مكان تخزين الكتب.
كتاب : أحد مصادر للمعلومات .
وقد قمت بكتابة الكود التالي :
Dim CN As New ADODB.Connection()
Dim RS As New ADODB.Recordset()
Dim CMD As New ADODB.Command
CN.Provider = "MICROSOFT.JET.OLEDB.4.0" 'ACCESS CONNECTION
CN.Open("C:\database\words.mdb")
' Open Database and select word
RS.Open("select * from WordtoMovie where word ='" & word & "'", CN, 1, 2)
والذي يعمل تمام في حال كانت الكلمة غير مكررة في اول عمود و لكن تبقى مشكلة التكرار التي لم اتوصل لحلها حتى الآن ..
ارجو المساعدة بسرعة ياشباب فانا محتاج جداَ لها...