delphi 7 执行 oracle 数据库带有返回参数的存储过程

zcnzy 2018-03-17 11:53:27



exce Pro_zxc('301007087','001','1','1000',to_date('2018-03-17','yyyy-mm-dd'),:Result_Code,:Result_Code)

存储过程名 Pro_zxc
参数：卡号，编号，数量，金额，时间，错误代码（0/1），返回消息

前4个为传入参数，后两个为返回参数。



OrclSql := 'exce Pro_zxc(' + QuotedStr(edtID.Text) + ',' + QuotedStr(edtNum.Text) + ',''' + IntToStr(CNum) +''',' + QuotedStr(HcDBLabelEdit3.Text) + ',' + 'to_date('+QuotedStr(dateSigContractDate.Text)+','+'''yyyy-mm-dd'')'+',:Result_Code,:Result_Code)';

      WriteLog(OrclSql);

      UniQueryMoney.Close;

      UniQueryMoney.SQL.Clear;

      UniQueryMoney.SQL.Add(OrclSql);

      WriteLog('UniQueryMoney.SQL.Add(OrclSql);');

      UniQueryMoney.Open;    //报错  ora-00900  invalid sql statement

      WriteLog('UniQueryMoney.Open;');

      Result_Num := UniQueryMoney.ParamByName('Result_Code').AsString;

      WriteLog('Result_Num = '+Result_Num);

      Result_Msg := UniQueryMoney.ParamByName('Result_Msg').AsString;

      WriteLog('Result_Msg = '+Result_Msg);

所以我想问一下 delphi 7 调用这个存储过程该怎么写，谢谢大佬们指教。

...全文