البحث في قاعدة البيانات باستخدام النجمة

في كودك هذا سيبحث عن الأسماء التي تبدأ بالنص الموجود في text1 أما إذا أردت الأسماء التي تحوي text1 فعليك أيضاً أن تضع علامة % قبلها، فتصبح كالتالي:

SQLs = "Select * From NAMES where Staff Like '%" & (text1) & "%'"

وعند الاتصال، فإذا كنت تستعمل مكتبة ADO فاكتب:

If RS.State=adStateOpen Then RS.Close
RS.Open SQLs

بالتوفيق.

ألف شكر لك أخي الكريم

والله ما قصرت

لكن ياريت يتم التوضيح ما الفائدة من هذا الكود :

اقتباس

If RS.State=adStateOpen Then RS.Close

RS.Open SQLs

في السطر الأول، يتم التحقق من حالة الكائن RS فإذا كان مفتوحاً مسبقاً وأردت أن تفتحه من جديد، فلا بد أن تغلقه أولاً، أي إذا كان RS مفتوحاً فأغلقه:

If RS.State=adStateOpen Then RS.Close

وفي السطر الثاني نقوم بعملية الفتح، ما الذي أريد أن أفتحه؟ أريد أن أفتح الجدول Names وأختار منه الحقول التي تكون قيمة الحقل Staff تحوي الكلمة المكتوبة في النص Text1، أي أننا نستدعي عملية الفتح ونمرر لها المتغير SQLs والذي يحوي جملة SELECT المطلوبة:

RS.Open SQLs

طبعاً هنا افترضت أنك تتعامل مع مكتبة ADO لأنك لم تخبرني مع أي مكتبة أو أداة تتعامل.

بالتوفيق.

السلام عليكم

اخي العزيز هل هذا الكود استطيع استخدامه اذا كنت استخدم اداة

data control

نعم تستطيع استخدامه ، فقط استبدل RS بـ Data1.Recordset