Vb6 - remplir une listebox avec un BDD
KenouiK
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
Je souhaiterai afficher les elements d'une table (ACCESS) dans une ListBox
Ma BDD est ouverte à l'execution de mon programme dans un module..
je peut y ajouter, modifier et supprimer des données sans soucis!!
mais je n'arrive pas à afficher celle ci dans ma liste box :/
merci
Private Sub Form_Load()
Dim Requete As String
Requete = "SELECT Num_stagiaire, Nom_Stagiaire, Prenom_Stagiaire, Date_Naissance_Stagiaire, "
Requete = Requete & "Nom_Responsable_Legal, Prenom_Responsable_Legal, Tel_Responsable_Legal, "
Requete = Requete & " Adresse_Stagiaire, Code_Postal_Stagiaire, Ville_Stagiaire, Pays Stagiaire, Paiement_regler_O_N "
Requete = Requete & "FROM Stagiaire"
LstListe.AddItem (BasedeDonne.Execute(Requete))
End Sub
merci
Je souhaiterai afficher les elements d'une table (ACCESS) dans une ListBox
Ma BDD est ouverte à l'execution de mon programme dans un module..
je peut y ajouter, modifier et supprimer des données sans soucis!!
mais je n'arrive pas à afficher celle ci dans ma liste box :/
merci
Private Sub Form_Load()
Dim Requete As String
Requete = "SELECT Num_stagiaire, Nom_Stagiaire, Prenom_Stagiaire, Date_Naissance_Stagiaire, "
Requete = Requete & "Nom_Responsable_Legal, Prenom_Responsable_Legal, Tel_Responsable_Legal, "
Requete = Requete & " Adresse_Stagiaire, Code_Postal_Stagiaire, Ville_Stagiaire, Pays Stagiaire, Paiement_regler_O_N "
Requete = Requete & "FROM Stagiaire"
LstListe.AddItem (BasedeDonne.Execute(Requete))
End Sub
merci
Configuration: Windows XP Firefox 2.0.0.11
3 réponses
-
bonjour,
Ce n'est pas aussi simple ...
Il faut une fonction qui te permette de parcourir le recordset et une foncction pour te placer sur le premier enregistrement. Par exemple :
Public Function lirePremier(ByRef Requete As Recordset) As Boolean
Requete.MoveFirst
lirePremier = True
End If
Public Function lireSuivant(Byref Requete as Recordset) As Boolean
If Not Requete.EOF Then
Requete.Movenext
lireSuivant = True
Else
lireSuivant = False
End If
End Function
Ensuite tu fais une boucle while :
Dim vrai As Boolean
Vrai = lirePremier
While vrai = True
LstListe.AddItem requete.Fields(0) & " " & requete.Fields(1) & " " & .... requete.Fields(12)
vrai = lireSuivant
Wend
Bon courage
;o)
polux -
merci beaucoup pour cette aide j'ai presque reussi je croi
en effet mon dernier "requete.fields" est une chkbox je fait comment??
merci -
tu as donc un enregistrement du style 0 ou -1
Il suffit de tester dans la boucle While :
Dim vrai As Boolean
Dim rep As String
Vrai = lirePremier
While vrai = True
If requete.Fields(12) = 0 then
rep = "Oui"
Else
rep = "Non"
End If
LstListe.AddItem requete.Fields(0) & " " & requete.Fields(1) & " " & .... requete.Fields(11) & " " & rep
vrai = lireSuivant
Wend
Voilà
;o)
polux
