Liaison Microsoft Access et VB6
frechnie
-
frechnie -
frechnie -
Bonjour,
Jai besoin de votre aide pour réaliser une apllication VB. Jai créé une Base de Données au format access 2000, puis jai utilisé le composant Microsoft Dao 3.6 object library pour la liaison. Pour l'ajout des enregistrements, tout marche. Cependant, j voudrai créé une listbox pour afficher les resultats de la recherche avec la procédure suivante:
If Option1.Value = True Then
sql = "select * from Contacts where Nom='" & Text1.Text & "'"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
List1.AddItem rs.Fields("Prenom")
List2.AddItem rs.Fields("Tel1")
List2.AddItem rs.Fields("Tel2")
List2.AddItem rs.Fields("Tel3")
rs.Close
End If
Cependant, il nafiche qu'un seul resultat de la BD. Comment faire pour qu'il affiche tous les noms répondant au critère de recherche dans la liste? Comment implémenter des boutons de navigation tels que <<, <, >, >> pour la navigation dans les données de la base?
Jai utilisé les methodes rs.MoveNext, movelast... mais sa marche pas.
Merci de votre aide... Bne journée
Jai besoin de votre aide pour réaliser une apllication VB. Jai créé une Base de Données au format access 2000, puis jai utilisé le composant Microsoft Dao 3.6 object library pour la liaison. Pour l'ajout des enregistrements, tout marche. Cependant, j voudrai créé une listbox pour afficher les resultats de la recherche avec la procédure suivante:
If Option1.Value = True Then
sql = "select * from Contacts where Nom='" & Text1.Text & "'"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
List1.AddItem rs.Fields("Prenom")
List2.AddItem rs.Fields("Tel1")
List2.AddItem rs.Fields("Tel2")
List2.AddItem rs.Fields("Tel3")
rs.Close
End If
Cependant, il nafiche qu'un seul resultat de la BD. Comment faire pour qu'il affiche tous les noms répondant au critère de recherche dans la liste? Comment implémenter des boutons de navigation tels que <<, <, >, >> pour la navigation dans les données de la base?
Jai utilisé les methodes rs.MoveNext, movelast... mais sa marche pas.
Merci de votre aide... Bne journée
A voir également:
- Liaison Microsoft Access et VB6
- Microsoft money - Télécharger - Comptabilité & Facturation
- Microsoft office - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Installer windows 10 sans compte microsoft - Guide
- Microsoft store download - Guide
2 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
Comment est ton code avec les methodes rs.MoveNext, movelast... ?
public db as database
public rs as recordset
public sql a string
Je suggére de faire approximativement :
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
do while not rs.eof
List1.AddItem rs.Fields("Prenom")
List2.AddItem rs.Fields("Tel1")
List2.AddItem rs.Fields("Tel2")
List2.AddItem rs.Fields("Tel3")
rs.movenext
loop ' do while not rs.eof
rs.close