Discussion :

[Bruno@Chrysis]

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 :

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

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

[qi130]

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

[Bruno@Chrysis]

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

Code :

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

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