SP-ReturnValues

[marabu]

Hallo Oliver,

Für diese Prozedur

SQL-Code:

CREATE PROCEDURE [SP_NEW_FIRMENTYP]
(   
  @FIRMT_ID        INT          =NULL,
  @FIRMT_BEZ       VARCHAR(30)  =NULL,
  @FIRMT_KURZ      VARCHAR(4)   =NULL,
  @RETURN_MESSAGE  VARCHAR(150) OUTPUT,   
  @RETURN_ID       INT          OUTPUT   
)

könnte das so aussehen:

Delphi-Quellcode:

with DM.DM_Main.sp1 do begin
  Parameters.ParamByName('@FIRMT_ID').Value := LB_ID.caption;
  Parameters.ParamByName('@FIRMT_BEZ').Value := TB_Wert.Text; //Bezeichnung "Lieferant"
  Parameters.ParamByName('@FIRMT_KURZ').Value := TB_Wert.Text; // Kurzbezeichnung "LIEF"
  ExecProc;
  LB_MESSAGE.Caption := Parameters.ParamValues['@RETURN_MESSAGE'];
  ...
end;

Grüße vom marabu