UIB et execute

J'ai dans une base Firebird des procedures stockées qui ne retournent rien (du style une suppression d'enregistrement dans plusieurs tables d'un coup).
Dans mon code delphi j'ai ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 var Query: TJvUIBQuery; .... begin ... Query.SQL.Clear; Query.SQL.Add('SELECT * FROM MA_PROCEDURE WHERE NUM = :NumDEL'); Query.Params.ByNameAsInteger['NumDEL'] := maValeur; Query.Execute; Query.Close(etmCommit); ... end;
et là j'obtiens une execption :
procedure MA_PROCEDURE does not return any values
at line 1 column 27
non-SQL security class defined
error code 249

Je fais comment pour executer une procedure qui retourne rien ? je suis paumé là :(

Bruno

Tu ne peux pas faire en sorte que la PS retourne quelque chose, genre un core retour ou le nb de lignes supprimées ?

Résolution :

J'ai trouvé il ne faut pas faire un SELECT mais :

Code:

1
2
3
4
 
  Query.SQL.Add('EXECUTE PROCEDURE MA_PROCEDURE(:NumDEL)');
  Query.Params.ByNameAsInteger['NumDEL'] := maValeur;
  Query.Execute;