السلام عليكم
عندي كومبو بوكس جعلت كومبو بوكس يقرأ تابل من القاعدة البيانات وهي اسم الطالب فقط
واريد من اختار اسم من الكومبو بكس يظهر لي رقم الشخصي للطالب
بحط ليكم الكودين للتعلم السريع
كود اظهار البيانات عندما اختار اسم من الكومبوبكس
كود :
Try
dbConnect()
cmd.CommandText = "Select * from Student where Student_Name = '" & ComboBox7.Text & "'"
dr.Close()
dr = cmd.ExecuteReader
While dr.Read()
TextBox11.Text = dr("Student_CPR").ToString
End While
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ في القراءة", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
الكود الثاني عبارة ان يقرأ التابل من القاعدة البيانات ويظهرها لي في الكومبوبكس
كود :
Try
Dim cmd As New OleDbCommand
cmd.Connection = dbConnect()
cmd.CommandText = "SELECT ST_ID,ST_Name FROM New_Student"
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader
While dr.Read()
ComboBox1.Items.Add(dr("ST_ID"))
ComboBox2.Items.Add(dr("ST_Name"))
End While
dr.Close()
ComboBox1.Items.Add(ComboBox1.Text)
ComboBox2.Items.Add(ComboBox2.Text)
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ في القراءة", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
لو تساعدوني في حل مشكلة اختيار الاسم ويظهر لي باقي البيانات التي اريدها في تكس بوكس
ويفظل مع تحديث مستمر يعني كلما اضيف يقرا الاسم الجديد مايحتاج اطلع من البرنامج وارد اشغله
واذا عندكم افضل واقوى من هذا الكود للفهم اسرع اعطوني اياه مع الشرح لو سمحتون
عندي كومبو بوكس جعلت كومبو بوكس يقرأ تابل من القاعدة البيانات وهي اسم الطالب فقط
واريد من اختار اسم من الكومبو بكس يظهر لي رقم الشخصي للطالب
بحط ليكم الكودين للتعلم السريع
كود اظهار البيانات عندما اختار اسم من الكومبوبكس
كود :
Try
dbConnect()
cmd.CommandText = "Select * from Student where Student_Name = '" & ComboBox7.Text & "'"
dr.Close()
dr = cmd.ExecuteReader
While dr.Read()
TextBox11.Text = dr("Student_CPR").ToString
End While
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ في القراءة", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
الكود الثاني عبارة ان يقرأ التابل من القاعدة البيانات ويظهرها لي في الكومبوبكس
كود :
Try
Dim cmd As New OleDbCommand
cmd.Connection = dbConnect()
cmd.CommandText = "SELECT ST_ID,ST_Name FROM New_Student"
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader
While dr.Read()
ComboBox1.Items.Add(dr("ST_ID"))
ComboBox2.Items.Add(dr("ST_Name"))
End While
dr.Close()
ComboBox1.Items.Add(ComboBox1.Text)
ComboBox2.Items.Add(ComboBox2.Text)
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ في القراءة", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
لو تساعدوني في حل مشكلة اختيار الاسم ويظهر لي باقي البيانات التي اريدها في تكس بوكس
ويفظل مع تحديث مستمر يعني كلما اضيف يقرا الاسم الجديد مايحتاج اطلع من البرنامج وارد اشغله
واذا عندكم افضل واقوى من هذا الكود للفهم اسرع اعطوني اياه مع الشرح لو سمحتون