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

Question

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

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

我用

 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);

这样报错，有没有大佬能够教导一下，这个存储过程我delphi7该怎样执行

Answer 1

exce
是exec
你太不细心了，自己检查下sql，如果还不行，再反复检查sql