منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخوانى بارك الله فيكم
عندى سوال فى كيفية عرض البيانات فى الكوموبوكس داخل الداتا جريد وبارك الله فيكم وشكر الله لكم

يا اخى ازى استخدم هذا الكود ما فهمت شى بارك الله فيك

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

Try
Dim con As New OleDbConnection(Query_class.db)
If con.State = ConnectionState.Closed Then con.Open()
Dim sql As String
sql = "select st_name from stock"
Dim cmd As New OleDbCommand(sql, con)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader
If dr.Read Then
Do
Dim v As String
v = dr.Item("st_name")
Column2.Items.Add(v)
Loop While dr.Read
End If
dr.Close()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "النظام")
End Try