19-11-14, 08:53 PM
السلام عليكم
عندي كومبو بوكس جعلت كومبو بوكس يقرأ تابل من القاعدة البيانات وهي اسم الطالب فقط
واريد من اختار اسم من الكومبو بكس يظهر لي رقم الشخصي للطالب
بحط ليكم الكودين للتعلم السريع
كود اظهار البيانات عندما اختار اسم من الكومبوبكس
الكود الثاني عبارة ان يقرأ التابل من القاعدة البيانات ويظهرها لي في الكومبوبكس
لو تساعدوني في حل مشكلة اختيار الاسم ويظهر لي باقي البيانات التي اريدها في تكس بوكس
ويفظل مع تحديث مستمر يعني كلما اضيف يقرا الاسم الجديد مايحتاج اطلع من البرنامج وارد اشغله
واذا عندكم افضل واقوى من هذا الكود للفهم اسرع اعطوني اياه مع الشرح لو سمحتون
عندي كومبو بوكس جعلت كومبو بوكس يقرأ تابل من القاعدة البيانات وهي اسم الطالب فقط
واريد من اختار اسم من الكومبو بكس يظهر لي رقم الشخصي للطالب
بحط ليكم الكودين للتعلم السريع
كود اظهار البيانات عندما اختار اسم من الكومبوبكس
كود :
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
لو تساعدوني في حل مشكلة اختيار الاسم ويظهر لي باقي البيانات التي اريدها في تكس بوكس
ويفظل مع تحديث مستمر يعني كلما اضيف يقرا الاسم الجديد مايحتاج اطلع من البرنامج وارد اشغله
واذا عندكم افضل واقوى من هذا الكود للفهم اسرع اعطوني اياه مع الشرح لو سمحتون