Delphi: Jak uzyskać wartość parametru wyjściowego procedury przechowywanej?

Question

Chcę programowo utworzyć SQLDataSet w Delphi i użyć go do wykonania procedury składowanej i uzyskania wartości parametru wyjściowego. Wygląda na łatwe, ale nie mogę sprawić, żeby to działało.

Oto głupi procedura przechowywana w SQL Server:

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

Teraz tutaj jest jednym z wariantów, który próbowałem i nie działa:

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; 

Myślałem, że to będzie łatwe , ale istnieje około registredbugs wokół tego problemu.

Answer 1

Wygląda na to, że działa po ustawieniu CommandType i nazwa_schematu i nie tworzą 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;