+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كومبوبوكس (/showthread.php?tid=42055)
كومبوبوكس - mohamedassim - 30-07-22
السلام عليكم
كيف ممكن احمل بيانات من جدول ضمن قاعدة البيانات الى الكومبو بوكس ضمن داتا كردفيو
RE: كومبوبوكس - جيولوجي مبتدئ - 31-07-22
(30-07-22, 08:59 AM)mohamedassim كتب : السلام عليكم
كيف ممكن احمل بيانات من جدول ضمن قاعدة البيانات الى الكومبو بوكس ضمن داتا كردفيو
وعليكم السلام
هذا هو الكود تضعه داخل حدث Load للفورم أن ممكن تضعه داخل بوتون
Try
Dim dr4 As SqlDataReader
Dim cmdcom4 As New SqlCommand
cmdcom4.Connection = Sqlcon
Sqlcon.Open()
cmdcom4.CommandText = ("select Mada from Mawad_Table order by ID5")
dr4 = cmdcom4.ExecuteReader
While dr4.Read()
Column10.Items.Add(dr4("Mada"))
End While
Sqlcon.Close()
Catch ex As Exception
End Try
Dim dr4 As SqlDataReader
Dim cmdcom4 As New SqlCommand
cmdcom4.Connection = Sqlcon
Sqlcon.Open()
cmdcom4.CommandText = ("select Mada from Mawad_Table order by ID5")
dr4 = cmdcom4.ExecuteReader
While dr4.Read()
Column10.Items.Add(dr4("Mada"))
End While
Sqlcon.Close()
Catch ex As Exception
End Try
لكم جزيل الشكر
دمتم بود