求助~~~~~~~~~~~~

Question

存储过程如下CREATE PROCEDURE PROC_DELETE_BASICINFO (@TAB_FLAG INT,@ACTION_FLAG CHAR(2),@CODE_STR CHAR(20)) AS
BEGIN
  sql 语句
  if @@error!=0 
    return -1
   else
     return 1 end
请问在delphi中用adostoreproc怎么调用主要是传参数的怎样取得返回参数
存储过程名在程序中设定
　adoprocstore1.ProcedureName :='PROC_DELETE_BASICINFO';
  这儿怎么传参数 
 adoprocstore1.Close;
  adoprocstore1.ExecProc;
在这儿怎样取得返回值

Answer 1

接分了
输出参数要显式地定义为outADOStoredProc.Parameters.CreateParameter('QtyGas', ftString, pdOutput, 200, '');
edit.Text := ADOStoredProc.Parameters.ParamValues['QtyGas'];

Answer 2

ADOStoredProc.Parameters.param [0]就是Return值.

Answer 3

那输入参数呢
怎么传送值啊
我用
ADOStoredProc.Parameters.Parambyname['tab_flag'];
提示出错

Answer 4

改变CreateParameter的参数不就可以了