Vb6 - remplir une listebox avec un BDD
KenouiK
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Vb6 - remplir une listebox avec un BDD
- Vb6 - Télécharger - Divers Utilitaires
- Organigramme a remplir word - Guide
- Comment remplir un document pdf - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Fiche de paie à remplir gratuit excel ✓ - Forum compta / gestion
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
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
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
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