[RESOLU]Créer une listbox à partir d'un recordset

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU]Créer une listbox à partir d'un recordset

greg360

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

Publicité

SuppotDeSaTante

Aka dje69r

Hello

Euh, betement :

Code :

MaListBox.AddItem data

:??:

---------------
Soyez malin, louez entre voisins !

greg360

Il faut bien que je la déclare ma listbox "MaListBox" non ?

SuppotDeSaTante

Aka dje69r

Soit tu as deja cree ta listbox et tu l'alimente, soit tu passes par un createobject

---------------
Soyez malin, louez entre voisins !

greg360

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 ?

---------------
Greg

SuppotDeSaTante

Aka dje69r

J'avoue ne pas trop comprendre le souci...
Tu as bien donné un nom a ta listobox ? Elle est dans une form ?

---------------
Soyez malin, louez entre voisins !

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.

---------------
Greg

SuppotDeSaTante

Aka dje69r

Ah bah si tu ne dis pas tout du début aussi...!

---------------
Soyez malin, louez entre voisins !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[RESOLU]Créer une listbox à partir d'un recordset

Sujets relatifs
Récuperer une liste de valeurs a partir d'une hierarchie en html	Créer un fichier XML à partir d'un formulaire
Comment créer des fichier de dependence avec microsoft compiler	creer un raccourci a une longue commande dos
svn merge n'ajoute pas les fichiers créer entre l'intervalle	Créer un forum
Créer son site personnalisé avec Joomla...	Comment faire pour créer un tableau interactif?
Plus de sujets relatifs à : [RESOLU]Créer une listbox à partir d'un recordset

Page générée en 0.052 secondes