Delphi 7 perform oracle database with a return parameter of the stored procedure-CodePudding

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

The stored procedure name Pro_zxc
Parameters: the card number, number, quantity, amount, time, error codes (0/1), return message

After the first four for the incoming parameters, two for the return parameter,

 
OrclSql:='excel Pro_zxc (' + QuotedStr (edtID. Text) +', '+ QuotedStr (edtNum. Text) +', ' ' '+ IntToStr (CNum) +' ' ', '+ QuotedStr (HcDBLabelEdit3. Text) +', '+' to_date (' + QuotedStr (dateSigContractDate. Text) + ', '+' ' '- dd yyyy - mm') '+' : Result_Code, : Result_Code) '; 
WriteLog (OrclSql); 
UniQueryMoney. Close; 
UniQueryMoney. SQL. The Clear; 
UniQueryMoney. SQL. The Add (OrclSql); 
WriteLog (' UniQueryMoney. SQL. The Add (OrclSql); '); 
UniQueryMoney. Open;//error 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);

So I want to ask the Delphi 7 calls the stored procedure how to write, thank you bosses give advice or comments,

CodePudding user response:

Using TuniStoreProc

http://blog.csdn.net/ProgramSir/article/details/79592208

CodePudding user response:

With a TStoredProc relevant content of baidu once online