+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33)
+---- الموضوع : [كود] برمجةالاداة combobox مع الاداة Adodc لللبحث و الاستعراض من قاعدة البيانات (/showthread.php?tid=34607)
برمجةالاداة combobox مع الاداة Adodc لللبحث و الاستعراض من قاعدة البيانات - alaanet_system@yahoo.com - 05-05-20
رمضان كريم و مبارك وكله عافية على كل الاخوة في منتديات فيجوال بيسك لكل العرب ... احببت ان اشارك بوضع موضوع بسيط
الكود الاول : يتم من خلاله تحميل محتويات حقل معين مثلا 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
اخوكم : علاء ابو زينب اللهيبي - العراق- نسألكم الدعاء