Discussion :

[Dionyzos]

Bonjour,


J'ai un pb étrange avec une requête SQL dans mon code Delphi ; sont RecorCount me renvoie -1 alors que le résultat de la reqête contient des enregistrements.

Voici la requête SQL qui fonctionne parfaitement dans l'analyseur de requête de MS SQL :

Code :

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

1
2
3
select distinct REPLACE(RIGHT(RTRIM(codehoraire), LEN(codehoraire) - CHARINDEX('/', codehoraire)), '&', '') as 'ZONE'
from horaire
order by 'ZONE'

Elle me retourne bien les 15 lignes attendues.

Et maintenant voici la même requête intégrée dans mon code Delphi (6) :

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
18
19
20
21
22
procedure TMainForm.ListZones;
var
  n, k : Integer;
begin
  Requete.Close;
  with Requete.SQL do begin
    Clear;
    Add('select distinct REPLACE(RIGHT(RTRIM(codehoraire), LEN(codehoraire) - CHARINDEX(''/'', codehoraire)), ''&'', '''') as ''ZONE''');
    Add('from horaire');
    Add('order by ''ZONE''');
  end;
  Requete.Open;
 
  n := Requete.RecordCount;
 
  for k:=0 to n-1 do begin
    MEMO.Lines.Add(VarToStr(Requete.FieldValues['ZONE']));
    Requete.Next;
  end;
  Requete.Close;
 
end;

Lorsque je force la valeur de 'n' à 5 par exemple, il me renvoie bien les 5 1ers enregistrements

Qq'un a-t-il déjà eu le même problème ? Merci...

[Dionyzos]

J'ai une piste : il semblerait que ce soit la fonction SQL REPLACE() qui pose problème, car lorsque je la retire de ma requête, le RecordCount me renvoie bien le nbr de lignes.

Le pb c'est que j'ai besoin du REPLACE() pour avoir le bon résultat

[Zatoobux]

Salut,

Quel SGBD utilises-tu?
Dans l'aide Delphi tu peux lire :

Remarque : Utilisez RecordCount avec précaution, en effet le comptage des enregistrements peut être une opération longue en particulier avec des requêtes SQL renvoyant des ensembles de résultats importants. En principe, une application ne doit utiliser RecordCount qu'avec des tables Paradox et dBASE.

Pour résoudre ton problème remplace la bouclke for par une boucle while.

Code :

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

1
2
3
4
5
6
 
while not requete.eof do
  begin
     // Ton traitement
     requete.next;
  end;

[Pascal Jankowski]

Va voir dans la FAQ au sujet du recordCount

Cordialement

[Dionyzos]

Merci Zatoobux, ca marche tip-top

Je confirme donc, lorsque la requete SQL contient la fonction REPLACE(), le RecordCount renvoie toujours -1.

Maintenant je ne sais pas si d'autres fonctions SQL font échouer le RC...

[Zatoobux]

En général je préfére la méthode indiquée par Pascal Jankowski au TDataset.RecordCount pour connaitre le nombre d'enregistrement d'un jeux de données.

@+