Valeur non trouvé dans une requète SQL
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:
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
