22-04-16, 01:52 PM
PHP كود :
Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next: Err.Clear
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\abed\Downloads\Important\العيادة\العيادة\db1.mdb;Persist Security Info=False"
Adodc3.CommandType = adCmdText
Adodc3.RecordSource = "Select na_pat From tb1 where [na_pat] LIKE '" & Trim$(Text6.Text) & "%'"
Adodc3.Refresh
List1.Clear
Do While Not Adodc3.Recordset.EOF
List1.AddItem Adodc3.Recordset![na_pat]
Adodc3.Recordset.MoveNext
Loop
End Sub
Private Sub Text6_KeyUp(KeyCode As Integer, Shift As Integer)
On Error Resume Next: Err.Clear
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\abed\Downloads\Important\العيادة\العيادة\db1.mdb;Persist Security Info=False"
Adodc3.CommandType = adCmdText
Adodc3.RecordSource = "Select na_pat From tb1 where [na_pat] LIKE '" & Trim$(Text6.Text) & "%'"
Adodc3.Refresh
List1.Clear
Do While Not Adodc3.Recordset.EOF
List1.AddItem Adodc3.Recordset![na_pat]
Adodc3.Recordset.MoveNext
Loop
End Sub
