بحث عن طريق combobox

اهلا اخي

ضح Combobox وضع فيها بعض الخيارات كما ذكرت

ثم اضغط عليها وتعال على نافذة الخضائص

ابحث عن AutoCompleteMode

وجعلها = Suggest

ابحث عن AutoCompleteSorce

وجعلها = ListItems

مبروك عليك اكتب اول حرف يظهر لك جميع النتائج التي تحتوي على الحرف

بالتوفيق :happy:

مشكوررررررررررررر على اجابة سهلة وجميلة وشكرا

حسناً وكيف يمكن عمل ذلك من خلال اسماء موجودة في حقل معين في قاعدة بينات اكسس ؟؟؟

يعني قصدي عند كتابة حرف من اول اي اسم يظهر لي في الكومبو بوكس .. ولكن هنا مصدر البيانات تكون من جدول معين في قاعدة البيانات والتي هي من النوع اكسس .

ahmedarkan كتب:

يعني قصدي عند كتابة حرف من اول اي اسم يظهر لي في الكومبو بوكس .. ولكن هنا مصدر البيانات تكون من جدول معين في قاعدة البيانات والتي هي من النوع اكسس .

السلام عليكم ورحمة الله اخي العزيز سوف اعطيك فكرة وتسير عليها

ممكن ان تنشأ اجراء فيها معاملان واحد نصي والثاني نوعة كائن من نوع قائمة منسدلة combobox وفي الاجراء تعمل اتصال بقاعدة البيانات ويكون جملة السكوال تأتي عن طريقة المعامل النصي للاجراء ويكون المعامل الثاني القائمة

وتكتب في جملة السكوال وتعطي الجملة شرط ان يكون قيمة الحقل الذي تريد ان تبحث به في الشرط ب LIKE وحاول وإن شاء الله تتم العملية معك وان احتجت اي تفسير انا معك

مثال بسيط لهيكل الاجراء

 Private Sub SubName(ByVal Sql As String, ByVal CMB As ComboBox)
        ' هنا كود الاتصال بقاعدة البيانات ويكون جملة السكوال من المعامل الاول 
        ' ثم تضيف الناتج في القائمة المنسدلة 

    End Sub

السلام عليكم

لطلبك تعبئة الcombobox ببيانات من حقل معين في قاعدة البيانات

مثلا لو اردنا تعبئة حقل اسم الطلاب في القائمة فسيصبح الكود كتالي

dim cmd as new sqlcommand
dim dr as sqldatareader
cmd.connection = conn
()cmd.connection.open
cmd.commandText = "SELECT st_name FROM STUDENT"
dr = cmd.excuteReader()
combobox1.items.clear
do while(dr.read())
combobox1.items.add(dr.item("st_name")
loop
cmd.connection.close

في هذا الكود عملنا اتصال مع قاعدة البيانات وقمنا بتعبئة حقل اسم الطلاب في combobox

بعد ذلك قمنا تبغيير الخصائص التي ذكرها الاخوان فوق

Auto Complete Mode

Auto Complete Sorce

بالتوفيق