Liaison Microsoft Access et VB6

frechnie -
frechnie - 7 juil. 2008 à 15:22

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

A voir également:

Liaison Microsoft Access et VB6
Microsoft office - Guide
Microsoft money - Télécharger - Comptabilité & Facturation
Cette technique secrète permet d'avoir Windows et Microsoft Office gratuitement et à vie - Accueil - Bureautique
Vb6 - Télécharger - Divers Utilitaires
Installer windows 10 sans compte microsoft - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

Comment est ton code avec les methodes rs.MoveNext, movelast... ?

frechnie

jai dabor créé un module avec les declarations suivantes:

public db as database
public rs as recordset
public sql a string

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > frechnie

Comme 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

Réponse 2 / 2

frechnie

Merci, je vai essayé mai j croi k sa devrai marché....

Discussions similaires

Sécurité réseau

Votre réponse

Discussions similaires