Créer une listbox à partir d'un recordset

Version imprimable

Bonjour à tous, je souhaite afficher une listbox avec du code VB, mais je suis débutant et je n'ai pas trop compris le principe (malgrès les recherches sur le net)

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Module gmao_aff_main
 
    Sub Main()
        Dim dbconnect As New ADODB.Connection
        Dim dbconnect2 As New ADODB.Connection
        Dim rst As New ADODB.Recordset
        Dim path As String
        Dim SQL As String
        Dim SAGE As String
        Dim strsql As String
        Dim data As String
 
        MsgBox("DEBUT")
 
        path = "\\Srv-bases/gmao/GMAO.accdb"
        SAGE = "DSN=GMAO"
        SQL = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & path & ";"
        dbconnect.Open(SQL)
        If dbconnect Is Nothing Then
            MsgBox("ACCESS NOT OK")
            GoTo lbl_end
        Else
            MsgBox("ACCESS CONNECT OK")
        End If
 
        dbconnect2.Open(SAGE)
        If dbconnect2 Is Nothing Then
            MsgBox("SAGE NOT OK")
            GoTo lbl_end
        Else
            MsgBox("SAGE CONNECT OK")
        End If
 
        rst.Open("SELECT EL_INTITULE FROM F_ENUMLIBRECIAL WHERE EL_INTITULE NOT IN (SELECT NoMachine FROM Table1) AND (N_INFO = 1)", dbconnect)
 
        While Not rst.EOF
            data = rst.Fields("EL_INTITULE").Value
            'remplissage de la listbox avec les différentes valeurs de string
            rst.MoveNext()
        End While
        'affichage de la listbox
        rst.Close()
        dbconnect.Close()
        dbconnect2.Close()
lbl_end:
        MsgBox("FIN")
    End Sub
 
End Module

Ma question est la suivante : comment dois-je faire pour créer, remplir et afficher une listbox svp ?

Merci à ceux qui voudront bien m'aider.

Code:

1
2
3
4
5
6
7
8
9
10
 
 
        While Not rst.EOF
            data = rst.Fields("EL_INTITULE").Value
            'remplissage de la listbox avec les différentes valeurs de string
 
            listbox.additem data
 
            rst.MoveNext()
        End While

21/10/2010, 09h07
greg360

Merci pour ta réponse, mais après plusieurs recherches sur le net, je me suis rendu compte que je devais créer la listbox en mode "création". Étant novice en VB.NET, j'ai utilisé la fonction "Add User Control..." du menu "Project" de visual studio 2010, je me retrouve donc avec un fichier .vb et un fichier .vb[Design] dans lequel j'ai créé une listbox. Je dois maintenant partager ce fichier usercontrol pour pouvoir avoir accès à ses données depuis mon code vb. Tu aurais une solution pour mon problème stp ?
21/10/2010, 09h37
greg360

Problème résolu, j'ai recommencé mon projet en "Windows Forms Application" et non pas en "Console Application", résultat, le form est déja créé, et la listbox est linkée automatiquement, merci pour votre aide.