ممكن كود لملئ Combo1 من قاعده بيانات
من جدول : item
من عمود : num
طبعا الربط من خلال ado
ADO : ممكن كود لملئ Combo1
تفضل
ضع هذا الكود في Module:
Public DB As New ADODB.Connection
Public rs As New ADODB.Recordset
Public sql As String
Sub Connection()
If DB.State = 1 Then DB.Close
DB.Provider = "Microsoft.JET.OLEDB.4.0"
DB.Open App.Path & "\yourdatabase.mdb"
End Sub
ثم ضع هذا الكود في Form_load الذي يحتوي على combo1.
Connection sql = "SELECT * FROM item " If rs.State = 1 Then rs.Close rs.Open sql, DB, 1, 2 Do While Not rs.EOF combo1.AddItem rs!num rs.MoveNext Loop
ملاحظة: يجب أن تكون قاعدة البيانات في نفس مجلد برنامجك.