Liaison Microsoft Access et VB6
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
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
ContributeurComment est ton code avec les methodes rs.MoveNext, movelast... ?
-
-
Contributeur@frechnieComme tu avais utilisé les methodes rs.MoveNext, movelast... je te demandais de nous montrer comment tu les avais utilisées.
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
-
-
Merci, je vai essayé mai j croi k sa devrai marché....
