منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخي العزيز ... قد يكون هذا جواب لحل مشكلتك 

الكود الاول : يتم من خلاله تحميل محتويات حقل معين مثلا UserName من قاعدة البيانات مرتبطة بالاداة Adodc1 الى الاداة Combo1  نضع الكود في حدث form1_load

Do Until Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields!UserName
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.MoveFirst

الكود الثاني : يبحث عن المعلومة في قاعدة البيانات حسب الجدول و الحقل من خلال اختيار الاسم من الاداة Combo1 نضع الكود  في حدث combo1_click

Dim x As String 
x = Combo1.Text

Adodc1.RecordSource = "select * from users where username like '" & x & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
 Adodc1.RecordSource = "select*from users"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
 MsgBox "لايوجد مستخدم بهذا الاسم", , "تنبيه"

End If

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

اخوكم : علاء ابو زينب اللهيبي - العراق- نسألكم الدعاء