Position dans une query

Version imprimable

Bonjour et BONNE ANNEE 2006 à tous,

Je voudrais connaitre la position en cours de mon enrgistrement

Voilà, je suis dans une boucle
Code:

1 2 3 4 5 6 7 8 9 .... Tprogressbar.max := query.recordcount; query.first While not query.eof do begin Tprogressbar.position := Tprogressbar.position + query. ????? //Me renvoi l'index de mon enregistrement en cours end; [/quote]
Je pense que ma query peut me renvoyer mon index, mais comment je ne sais pas. Je pourrais passer par un compteur (Mais je voudrais éviter cela).

Merçi,
Valoji :?:

05/01/2006, 17h17
Frank

essaies de récupérer

Code:

query.recno

dans un integer.
05/01/2006, 17h22
valoji

Déjà essayé, mais me renvoi : -1, à chaque fois

J'ai fait autrement,
....
Code:

1 2 3 4 5 6 7 Tprogressbar.max := query.recordcount; query.first Tprogressbar.position := 0; While not query.eof do begin Tprogressbar.position := Tprogressbar.position + 1; end;
[/quote]

Mais je suis toujours interressé pour que ma query me renvoi l'index en cours
Merçi à toi,

:tagcode: :merci:
FRANK

C'est étonnant ce que tu me dis.

Moi je l'utilise pour incrémenter une boucle et cela marche très bien...
Voici un extrait de mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
else if qryAffichage.Recordset.RecordCount<>0 then begin
            // Remplissage du listview avec les données
            for i:=0 to qryAffichage.Recordset.RecordCount - 1 do begin
            //Récupération du numéro de ligne
            qryAffichage.RecNo:=i+1;
            //ajout des colonnes
            lv_Stock.Items.Add;
            lv_Stock.Items[i].Caption:=inttostr(qryAffichage.FieldValues['nDateMvt']);
            lv_Stock.Items[i].SubItems.Add(qryAffichage.FieldValues['sCdeMag']);
            lv_Stock.Items[i].SubItems.Add(qryAffichage.FieldValues['sCdePdt']);
            lv_Stock.Items[i].SubItems.Add(qryAffichage.FieldValues['Lib']);
            lv_Stock.Items[i].SubItems.Add(qryAffichage.FieldValues['sSigne']);
            lv_Stock.Items[i].SubItems.Add(qryAffichage.FieldValues['sNumLot']);
            lv_Stock.Items[i].SubItems.Add(inttostr(qryAffichage.FieldValues['nDatePer']));
            lv_Stock.Items[i].SubItems.Add(inttostr(qryAffichage.FieldValues['iQte']));
          next;
        end

06/01/2006, 10h49
valoji

Oui, mais toi tu incremente ton RecNo, moi je voudrais qu'il me renvoit l'index de mon enregistrement en cours.

Ex :
Champ1 Champ2
0 ValeurA ValeurB
1 ValeurA ValeurB Enregistrement en cours
2 ValeurA ValeurB
3 ValeurA ValeurB

Je voudrais que ma query me 1.

Je sais pas si tu arrive a me comprendre