21-10-18, 12:43 PM
شكرا اخي rnmr على المساعدة كيف يمكن اضبطها على هذا الكود ما فهمت عليك اخي
اريد دايما السطر الاول ما يظهر بالكومبوبكس و شكرا تبدا النعبئة من السطر الثاني
كود :
Sub fillcombo()
Try
Dim CN As New SqlConnection(cs)
CN.Open()
adp = New SqlDataAdapter()
adp.SelectCommand = New SqlCommand("Select distinct (user_name) from table_users ", CN)
ds = New DataSet("ds")
adp.Fill(ds)
dtable = ds.Tables(0)
ComboBox1.Items.Clear()
For Each drow As DataRow In dtable.Rows
ComboBox1.Items.Add(drow(0).ToString())
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub