Discussion :

[valoji]

Bonjour et BONNE ANNEE 2006 à tous,

Je voudrais connaitre la position en cours de mon enrgistrement

Voilà, je suis dans une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

[Frank]

essaies de récupérer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

query.recno

dans un integer.

[valoji]

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

[valoji]

J'ai fait autrement,
....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,


FRANK

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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