remplir automatiquement combobox vb Fermé

Question

Bonjour, 

J'ai un petit souci je n'arrive pas a trouver la commande qui me permettra de remplir ma combobox.
Le pb c'est que je vais récupérer ce qu'il y aécrit dans un fichier txt et j'aimerais l'écrire dans ma combobox.
Voici mon pgm:

Private Sub CommandButton1_Click()
'Public Sub txt_15col()
Dim lig As Long     ' ligne
Dim col As Integer  ' colonne
Dim art As String   ' article lu
Dim cel As String   ' valeur cellule
Dim fic As String   ' chemin fichier
Dim idx As Integer  ' index caractère
'fic = Application.GetOpenFilename("Textes,*.txt")
Dim montab(364) As String


Columns("b:b").ClearContents

Do While (1)

DoEvents

fic = ("C:\Documents and Settings\8209632N\Bureau\alex.txt")
Open fic For Input As #1    ' ouvre fichier texte
lig = 1                     ' ligne début
Do
    Input #1, art           ' lecture
    idx = 0                 ' initiatisation index
    While idx < Len(art)    ' boucle mongueur article
        For col = 2 To 15   ' 15 colonnes
            cel = ""        ' initiatisation cellule
            Do
                idx = idx + 1
                If Mid(art, idx, 1) = ";" Then Exit Do
                cel = cel & Mid(art, idx, 1)
            Loop While idx < Len(art)
            'Cells(lig, col).Value = cel ' valorisation cellule
            montab(lig) = cel
            combobox1.Caption = montab(lig)
            Next col
        lig = lig + 1       ' changement de ligne
    Wend
Loop While Not EOF(1)
Close #1

Loop

End Sub

Merci.

hanane · Answer

salut !tu dois mettre ce code en formload 
  con.Open()
        req = "select la colonne from la table"
        cmd = New SqlCommand(req, con)
        dr = cmd.ExecuteReader()
        While (dr.Read())
            combobox1.Items.Add(dr(0))
        End While
        dr.Close()
        con.Close()

Remplir automatiquement combobox vb

1 réponse

Discussions similaires