[mohamed salah bashir]

ممكن مساعده في كود لملء او تعبئة ال combo box من قاعدة البيانات Access ضروووووري عليكم الله وجزاكم الله خير

[tecno2012]

Dim conn As New OleDbConnection(con)
Dim ds As New DataSet
Dim sqlstr As String = "select no from class "

ComboBox2.Items.Clear() Try
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sqlstr, conn)
dataadapter1.Fill(ds, "class")
conn.Close()
Dim i As Integer
For i = 0 To ds.Tables("class").Rows.Count - 1
ComboBox2.Items.Insert(i, ds.Tables("class").Rows(i).Item("class_no"))
Next
Catch ex As Exception
TextBox13.Text = "حاول/ي مرة أخرى"

[mohamed salah bashir]

جزاك الله كل خير اخي الكريم

[ahmedbezia]

بارك الله فيك