السلام عليكم
أريد كود يجعل مربع نص
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
مرفق مثال للتعديل
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah