السلام عليكم ورحمة الله وبركاته
لوسمحت لدي سؤال معي جدول في قاعدة بيانات اكسس يحتوي على اسماء الطلاب اريد كود في الفيجوال بيسك عند كتابة رقم الطالب في textbox1 يظهر اسم الطالب تلقائيا في textbox2
ولكم جزيل الشكر والتقدير
يمكنك استخدام الكود التالي للحصول على اسم الطالب تلقائيًا عند كتابة رقم الطالب في 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
ملاحظة: يجب تحديد مجلد القاعدة الذي يحتوي على قاعدة البيانات في الخط الثاني من الكود.