Afficher les occurrences d'une table dans une combobox

Question

bonjour,



voila, j'ai un petit probleme. En fait je souhaiterais ajouter les
occurrences de la table Users (user_name est le nom du champ) dans un
combobox en VBA sous Outlook. Malgr&#233; de nombreux &#233;ssais, je n'y
parvient toujours pas :(. Je vous montre mon code au complet. Tout
d'abord dans le UserForm: 



Private Sub UserForm_Initialize()

    Dim objmyconn As ADODB.Connection

    Dim strSQL As Variant

    

    Set objmyconn = OpenSQLServerDB("dbauser", "dbauser")

    

    Call FillcboUsers(cboUsers)

  

End Sub



Puis voici mon code pour l'affichage dans la combobox qui est dans le
module (je ne vous met pas la connexion car cette deri&#232;re est correcte)



Sub FillcboUsers(cboUsers As ComboBox)

    

    Dim rstUsers As ADODB.Recordset

    Dim strSQL As Variant

    Dim objmyconn As ADODB.Connection

    Dim Nb_TabUsers As Single

    Dim i As Integer

    

    On Error Resume Next

    Set rstUsers = CreateObject("ADODB.Recordset")

    strSQL = "Select [user_name] " & _

             "from Users " & _

             "Order By [user_name];"

    rstUsers.Open strSQL, objmyconn, adOpenForwardOnly, adLockReadOnly

    

    If rstUsers.State = adStateOpen Then

        cboUsers.Column = rstUsers.GetRows

        rstUsers.Close

    End If

    Set rstUsers = Nothing

    

End Sub



Je vous remercie tous pour vos reponses.



Fehn

voilhes · Answer

Dim objmyconn As New ADODB.Connection
    Dim rstUsers As New ADODB.Recordset
    Dim strSQL As String
    
   'Ouverture de la connection &#224; la base de donn&#233;es ...

    strSQL = "Select [user_name] " & _
             "from Users " & _
             "Order By [user_name];"

    Set rstUsers = objmyconn.Execute(strSQL) 

    While not rstUsers.EOF
        cboUsers.Add = rstUsers!user_name
        rs.MoveNext
    Wend
    rstUsers.Close
    Set rstUsers = Nothing
End Sub

-Francis-

Afficher les occurrences d'une table dans une combobox

1 réponse

Discussions similaires