combobox

Salut,

Ajout Référence projet : Microsoft ActiveX Data Objects 2.5  Library


Private Sub From_Load()

Dim Cnx As New ADODB.Connection ' Ta connection
Dim Rst As New ADODB.RecordSet ' Ton RecordSet

    ' Choix du fournisseur
     Cnx.Provider = "Microsoft.jet.OLEDB.4.0;Data Source=" & CheminBase & "
  
    ' Ouvre la connection à la source
     CnxAdo.Open


    ' On charge tous les combo's de l'application
     Sql = "SELECT * FROM  TaTable"
     
           ' Execution requête avec paramètre recordset via CnxAdo
           Rst.CursorLocation = adUseClient
           Rst.Open Sql, Cnx, adOpenDynamic, adLockPessimistic

           ' Init
             TonCombo.Clear
                          
            ' On regarde si il y a des enregistrement
             If Rst.RecordCount > 0 Then
                
            While Not Rst.EOF
                                      
                  ' Ajoute dans le combo
                   If Not Rst.Fields("TonChamp") = vbNullString Then TonCombo.AddItem (Rst.Fields("TonChamp"))

                  ' Passe à l'enregistrement suivant.
                   RstAdo.MoveNext
                   
            Wend
               
                  End If

A+
Exploreur

 Linux a un noyau, Windows un pépin

salut,

Merci beaucoup.

A+
Exploreur

 Linux a un noyau, Windows un pépin