تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] برمجةالاداة combobox مع الاداة Adodc لللبحث و الاستعراض من قاعدة البيانات
#1
Rainbow 
رمضان كريم و مبارك وكله عافية على كل الاخوة في منتديات فيجوال بيسك لكل العرب ... احببت ان اشارك بوضع موضوع  بسيط

الكود الاول : يتم من خلاله تحميل محتويات حقل معين مثلا 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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير باسورد قاعدة بيانات الأكسس بالكود Ahmed_Mansoor 4 3,237 05-01-24, 06:25 AM
آخر رد: Whled2020
  ارسال البيانات م الفليكس الى الاكسل أبو عمر 4 4,289 23-10-19, 11:07 AM
آخر رد: amrgemaey555
  [سؤال] كود البحث داخل قاعدة البيانات Hussein alsaqqaf 9 5,472 15-02-17, 11:59 PM
آخر رد: Hussein alsaqqaf

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم