[sanyor77]

يمكنك استخدام الكود التالي للحصول على اسم الطالب تلقائيًا عند كتابة رقم الطالب في textbox1:

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database.accdb"
Dim connection As New OleDbConnection(connectionString)
connection.Open()
Dim command As New OleDbCommand("SELECT * FROM students WHERE student_id='" & TextBox1.Text & "'", connection)
Dim reader As OleDbDataReader = command.ExecuteReader()
If reader.HasRows Then
reader.Read()
TextBox2.Text = reader("student_name").ToString()
Else
TextBox2.Text = ""
End If
connection.Close()
End Sub

ملاحظة: يجب تحديد مجلد القاعدة الذي يحتوي على قاعدة البيانات في الخط الثاني من الكود.