المثال مرفق
وهذا هو الكلاس
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
Dim con As New OleDbConnection(str)
Dim dt As DataTable
Dim cm As OleDbCommand
Private Sub gd(ByVal tn As String)
dt = New DataTable
cm = New OleDbCommand("", con)
cm.CommandText = "select * from tb where tname=@tname"
cm.Parameters.AddWithValue("@tname", tn)
If con.State = ConnectionState.Closed Then con.Open()
dt.Load(cm.ExecuteReader)
End Sub
Private Sub txtinput_KeyDown(sender As Object, e As KeyEventArgs) Handles txtinput.KeyDown
If e.KeyData = Keys.Enter Then
gd(txtinput.Text)
If dt.Rows.Count > 0 Then
tid.Clear()
tname.Clear()
age.Clear()
job.Clear()
tid.Text = dt(0)(0)
tname.Text = dt(0)(1)
age.Text = dt(0)(2)
job.Text = dt(0)(3)
End If
txtinput.Clear()
End If
End Sub
End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
