lecture de tous les enregistrements d'une tableJe

Le
jcp66
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #18818131
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp




Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock
from [T-Produits]")

while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")

Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing

@+
Eric
Le #18818371
Fabien a écrit :
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp




Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock
from [T-Produits]")

while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")

Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing

@+



Bonjour Fabien,

Il manquerait pas SET devant rst_Produit = Nothing

;-)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Fabien
Le #18818521
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous
les enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp




Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select
reference,libelle,stock from [T-Produits]")

while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")

Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing

@+



Bonjour Fabien,

Il manquerait pas SET devant rst_Produit = Nothing

;-)


Mais bon sang, c'est bien sur ;-)
jcp66
Le #18822521
Merci pour ce code.
Mais j'ai encore un pb.
La ligne
Set Rst_Produit = CurrentDb.OpenRecordset("Select reference,libelle,stock
from [T-Produits]")
me donne le message Erreur 3061 Trop peu de parametres 1 attendu
a+
jcp


"Fabien"
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp




Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock
from [T-Produits]")

while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")

Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing

@+



Bonjour Fabien,

Il manquerait pas SET devant rst_Produit = Nothing

;-)


Mais bon sang, c'est bien sur ;-)



Fabien
Le #18826491
jcp66 a écrit :
Merci pour ce code.
Mais j'ai encore un pb.
La ligne
Set Rst_Produit = CurrentDb.OpenRecordset("Select reference,libelle,stock
from [T-Produits]")
me donne le message Erreur 3061 Trop peu de parametres 1 attendu
a+
jcp


"Fabien"
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp




Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock
from [T-Produits]")

while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")

Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing

@+


Bonjour Fabien,

Il manquerait pas SET devant rst_Produit = Nothing

;-)


Mais bon sang, c'est bien sur ;-)







Bonjour,
Un nom de champ mal orthographié ?
@+
Publicité
Poster une réponse
Anonyme