Delphi: Comment obtenir la valeur d'un paramètre de sortie d'une procédure stockée?

Question

Je veux créer par programme un SQLDataSet dans Delphi et l'utiliser pour exécuter une procédure stockée et obtenir la valeur d'un paramètre de sortie. Ça a l'air facile mais je ne peux pas le faire fonctionner.

Voici une procédure stockée muet dans SQL Server:

CREATE PROCEDURE [dbo].getValue @x INT OUTPUT 
AS 
BEGIN 
    SET @x = 10; 
END 

Maintenant, voici l'une des variantes que j'ai essayé et ne fonctionne pas:

proc := TSQLDataSet.Create(nil); 
proc.SQLConnection := DefaultConnection; 
proc.CommandText := 'getValue'; 
proc.Params.CreateParam(ftInteger, '@x', ptOutput); 
proc.Params.ParamByName('@x').Value := 0; 
proc.ExecSQL(False); 
value := newIdProc.Params.ParamByName('@x').AsInteger; 

Je pensais que ce serait facile , mais il ya quelques registredbugs autour de ce problème.

Answer 1

On dirait que ça fonctionne si vous définissez le CommandType et SchemaName et ne créez pas le Param:

proc := TSQLDataSet.Create(nil); 
proc.SQLConnection := DefaultConnection; 

proc.CommandType := ctStoredProc; 
proc.SchemaName := 'dbo'; 
proc.CommandText := 'getValue'; 

proc.ExecSQL(False); 

value := proc.Params.ParamByName('@x').AsInteger;