تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] سؤال سريع ووجيه بسرعة يا اخواني
#1
السلام عليكم

عندي كومبو بوكس جعلت كومبو بوكس يقرأ تابل من القاعدة البيانات وهي اسم الطالب فقط

واريد من اختار اسم من الكومبو بكس يظهر لي رقم الشخصي للطالب

بحط ليكم الكودين للتعلم السريع

كود اظهار البيانات عندما اختار اسم من الكومبوبكس

كود :
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


لو تساعدوني في حل مشكلة اختيار الاسم ويظهر لي باقي البيانات التي اريدها في تكس بوكس

ويفظل مع تحديث مستمر يعني كلما اضيف يقرا الاسم الجديد مايحتاج اطلع من البرنامج وارد اشغله

واذا عندكم افضل واقوى من هذا الكود للفهم اسرع اعطوني اياه مع الشرح لو سمحتون 
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم