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

أريد كود يجعل  مربع نص
Text1
في الحدث
Change

ان يظهر بحث في قاعدة البيانات وتظهر النتائج في
List1

وان يتم البحث ايضا عندما نقوم بالتحريك في الليست بوكس بالضغط إلى اسفل

هذا هو الكود المستخدم


Dim dbADODB As New ADODB.Connection
Dim rsEMPL As New ADODB.Recordset

Private Sub Form_Load()
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Text1_Change()

Adodc1.RecordSource = "select * from [EMPL] where  [Name] like '" & Text1.Text & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

End Sub


مرفق مثال للتعديل


الملفات المرفقة
.zip   Search_With_listBox.zip (الحجم : 9.36 ك ب / التحميلات : 69)
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

ان شاء الله طلبك في المرفقات

يعطيك العافية


الملفات المرفقة
.rar   vb4arb.rar (الحجم : 9.92 ك ب / التحميلات : 100)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
#3
أهلا أخي الكريم , قم بوضع عدد الأعمدة في خاصية Columns التابعة للـ ListBox وحالة مثال يوجد حقلين في الجدول يعني تضع رقم 2 في الخاصية , ثم أضف أداة Adodc1 للمشروع , بعد ذلك أمسح كود الفورم كله وإستبدله بهذا :

كود :
Dim dbADODB As New ADODB.Connection
Dim rsEMPL As New ADODB.Recordset

Private Sub Form_Load()
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
Adodc1.CommandType = adCmdText

End Sub

Private Sub Text1_Change()

If Trim$(Text1.Text) = "" Then List1.Clear: Exit Sub

Adodc1.RecordSource = "select * from EMPL where  Name like '" & Text1.Text & "%'"
Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then
  
   List1.Clear
  
   Adodc1.Recordset.MoveFirst
   Do While Not Adodc1.Recordset.EOF
      List1.AddItem Adodc1.Recordset!Name & vbTab & Adodc1.Recordset!Degree
      Adodc1.Recordset.MoveNext
   Loop
  
Else

   List1.Clear
  
End If

End Sub
الرد }}}
#4
الشكر للجميع على المجهود العظيم
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 14 8,480 14-06-22, 04:01 PM
آخر رد: sher
  [vb6.0] كيفية قراءة الباركود على مكينات الكاشيير والمخازن باستعمال خط 3OF9_NEW hamada salah90 1 1,043 28-05-21, 02:48 AM
آخر رد: ahmedabdelaliem
  [vb6.0] طلب : المقارنة بين 5 من مربع النص بها أرقام لمعرفة أيها يحمل أقل قيمة بين 5 أرقام hamada salah90 1 1,121 28-03-21, 10:08 PM
آخر رد: Amir_Alzubidy
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 4 3,567 19-03-21, 03:01 AM
آخر رد: mhqom2020
Lightbulb [سؤال] كيفية إيجاد (رقم معين) بعد عدة فواصل محددة أبو خالد الشكري 2 1,529 04-02-21, 02:23 AM
آخر رد: أبو خالد الشكري
  كيفية اضافة خواص لاداة UserControl ؟ gedo 1 1,977 18-09-20, 06:46 PM
آخر رد: SoftWare Haker
  كيفية ارسال معطيات الداتاكريد الى الاكسيل lkjnfg 0 1,200 25-08-20, 10:34 PM
آخر رد: lkjnfg
  حظر حذف رمز معين داخل مربع النص text hannileo 3 1,963 20-04-20, 01:04 AM
آخر رد: مصمم هاوي
  اظهار نتيجة البحث في اكتيف ريبورت hannileo 0 1,382 20-03-20, 12:54 PM
آخر رد: hannileo
  خاصيه التفاف النص الحزين اوى 2 1,740 23-11-19, 09:05 AM
آخر رد: الحزين اوى

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


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