طريقة استعلام

[الظيافلة]

ارجو المساعدة في هذة المشكلة والتي لا يوجد بها مشكلة

عملت برنامج على الـ VB6 فواجهتني مشكلة في طريقة الأستعلام وهي

أريد وضع Text Box عند كتابة حرف من اسم أن يظهر جميع الأسماء التي تبدء بهذا الحرف وعند إضافة الحرف الثاني يتم إظهار جميع الأسماء التي تحتوي فقط على الحرف الأول والثاني وهكذا

أرجو من الأخوة المساعدة في حل هذة المشكلة وبعث الكودات لهذا البرنامج

[الوتد]

اولا يجب استعمال

Listbox

او combobox

يتم الاستعلام بالطريقة التالية

SQL = "SELECT Name FROM T1 WHERE Name Like '" & txtName.Text & "' ORDER By Name Asc "

في حدث Change

وشكر

[eldmaty2010]

ممن الممكن تحميل الكومبو اولا ب حقل الاسم

dim a as strng

do untill adodc1,recordset.eof

if not null (adodc1.recordset.filds![name] then a = adodc1.recordset.filds![name]c

حرف ال الس ليس له معني يجب تجاهلة

adodc1.recordset.movenext

combo1.additem a

loop

بهذا تكون حملت الكمبوا بحقل الاسماء

و تقوم بكتابة نفس جملة الاستعلام و بدلا من textname.text

comb1.text

تم تعديل سبتمبر 12, 2007 بواسطه eldmaty2010