[galas]

استخدم هذه الدالة :

كود :

Public Sub Charger_CB(cmd As String, tableau As String, cb As ComboBox, val As String)
       Try
           If myConnection.State = ConnectionState.Closed Then
               myConnection.Open()
           End If
           ds = New DataSet 'vider ds
           Dim da As New OleDbDataAdapter(cmd, myConnection)
           da.Fill(ds, tableau)
           dv = New DataView(ds.Tables(tableau))
           cb.DataSource = dv
           cb.ValueMember = val
           cb.DisplayMember = val
           myConnection.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

مثال  على كيفية إستدعاء الدالة :

كود :

Charger_CB("SELECT * FROM tbPersonnel", "Matricule", ComboBoxAddIntervenantPrev, "Matricule")

الدالة لها 4 عناصر :

1. الأول : الكويري : "SELECT * FROM tbPersonnel"
   
2. الثاني : إسم العمود في قاعدة البيانات : "Matricule"
   
3. الثالث : إسم اكمبوبكس : ComboBoxAddIntervenantPrev
   
4. الرابع : إسم العمود في قاعدة البيانات : "Matricule"