Parcourir les resultats d'une Query

Signaler
Messages postés
37
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
13 août 2002
-
Messages postés
37
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
13 août 2002
-
Salut tt le monde,

Je voudrais savoir comment parcourir les enregistrements d'un recordSet resultant d'une query. Le but est de prendre tout les deux premiers champs de chaque enregistrement du recordSet et les envoyer dans un ListBox.

Je sais comment les envoyer dans le listBox mais je ne sais pas comment tout manipuler en meme temps. Presentement, je les envoie dans un TDBGrid, et j'utilise le selectedRows.

Merci
@-|_-|> (ALP)
jeff

3 réponses

Messages postés
37
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
13 août 2002

J'ai trouve!!!!!

var s: string;
max,i: integer;
begin
QgeneralAcc.First;
max:=QgeneralAcc.RecordCount;

for i:=0 to max do
begin
s:=QgeneralAcc.Fields.Fields[0].AsString + ' ';
s:=s + QgeneralAcc.Fields.Fields[1].AsString;
ListBoxChosen.AddItem(s,nil);
s:='';
QgeneralAcc.Next;
end;
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
Utilise plutôt une boucle While, car le RecordCount ne fonctionne pas toujours correctement. Surtout si tu appliques ensuite un filtre.

Ecrit plutôt un truc dans le style :
var s: string;
begin
QgeneralAcc.First;

While Not QGeneralAcc.EOF Do
begin
s:=QgeneralAcc.Fields.Fields[0].AsString + ' ';
s:=s + QgeneralAcc.Fields.Fields[1].AsString;
ListBoxChosen.AddItem(s,nil);
s:='';
QgeneralAcc.Next;
end;

--- :sleepy) Nono du Moulin :sleepy) ---
Messages postés
37
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
13 août 2002

Je comprends....

Avec la premiere methode j'ai effectivement des erreurs de pointeurs. Le deuxieme methode est définitivement mieux

Merci Nono40

E_____P
Enjoy Programmation
Jeff