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 :
- 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.
Message édité par greg360 le 21-10-2010 à 09:37:47
---------------
Greg