Discussion :

[Jeankiki]

Bonjour à tous,

Comment puis-je faire par programmation en delphi pour vérifier si la query n'a rien trouvé.

Heu voici un exemple, je recherche avec la query ci dessous la valeur 12345 dans le champ xnumco de la table XPRESTA et j'aimerai savoir quelle fonction utilisé pour afficher un message quand la valeur n'a pas été trouvé.
J'ai essayé avec la méthode IsEmpty, mais ce n'est pas ça, pouvez-vous m'aider

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
 
Var
  xnumco: string;
begin
    xnumco:= '12345';
    IBQueryAvenantsUpdate.Close;
    IBQueryAvenantsUpdate.SQL.Clear;
    IBQueryAvenantsUpdate.SQL.Add('SELECT * FROM XPRESTA');
    IBQueryAvenantsUpdate.SQL.Add('WHERE XNUMCO = :XNUMCO');
 
    IBQueryAvenantsUpdate.ParamByName('XNUMCO').AsString:= xnumco;
    IBQueryAvenantsUpdate.Open;
 
    if IBQueryAvenantsUpdate.IsEmpty then
      ShowMessage('La valeur de xnumco n'a pas été trouvée')
    else
      ShowMessage('La valeur de xnumco a bien été trouvée');
end;

Merci d'avance pour votre aide

Jeankiki

[Rayek]

Code :

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

1
2
3
4
5
6
7
8
 
IBQueryAvenantsUpdate.last; // au cas ou certain sgbd en ont besoin
 
// est ce que le nombre d'enregistrement est supérieur à 0 dans la requete ?
if IBQueryAvenantsUpdate.RecordCount > 0 then
 ShowMessage('La valeur de xnumco a bien été trouvée')
else
 ShowMessage('La valeur de xnumco n''a pas été trouvée');

[Jeankiki]

Merci pour ton aide Malatar, mon problème est résolu.
C'est tout bête et je n'y avais pas pensé

Pour info le type de DB est FIREBIRD