DELPHI使用UniDAC执行储存过程

方法一:使用UniQuery

  1. UniQuery. SQL.Clear;  
  2. UniQuery. SQL.Add (' INSERT INTO kvartal_prem.tReports (name, remark, report, dotmatrix) ');  
  3. UniQuery. SQL.Add (' SELECT name, remark, report, dotmatrix from kvartal_prem.tReports');  
  4. UniQuery. SQL.Add (' WHERE id =:id ');  
  5. UniQuery. ParamByName (' id ').AsInteger: = id;  
  6. UniQuery. Execute;  
  7. ShowMessage (IntToStr (UniQuery. LastInsertId));  

方法二:使用UniStoredProc
  1. UniStoredProc. StoredProcName: = ' InstReports';  
  2. UniStoredProc. PrepareSQL;  
  3. UniStoredProc. ParamByName (' pid ').AsInteger: = id;  
  4. UniStoredProc. Execute;  
  5. ShowMessage (IntToStr (UniStoredProc. ParamByName (' poutid ').AsInteger)); 
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页