منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود لاظهار الاسماء بدالالة الرقم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [سؤال] كود لاظهار الاسماء بدالالة الرقم (/showthread.php?tid=44762)

كود لاظهار الاسماء بدالالة الرقم - عبدالرحمن الأصبحي - 13-01-23

السلام عليكم ورحمة الله وبركاته 
لوسمحت لدي سؤال معي جدول في قاعدة بيانات اكسس يحتوي على اسماء الطلاب اريد كود في الفيجوال بيسك عند كتابة رقم الطالب في textbox1 يظهر اسم الطالب تلقائيا في textbox2
ولكم جزيل الشكر والتقدير

RE: كود لاظهار الاسماء بدالالة الرقم - sanyor77 - 27-03-23

يمكنك استخدام الكود التالي للحصول على اسم الطالب تلقائيًا عند كتابة رقم الطالب في 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

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