DELPHI使用UniDAC执行储存过程

方法一：使用UniQuery

[delphi] view plain copy

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

[delphi] view plain copy

1. UniStoredProc. StoredProcName: = ' InstReports';  
2. UniStoredProc. PrepareSQL;  
3. UniStoredProc. ParamByName (' pid ').AsInteger: = id;  
4. UniStoredProc. Execute;  
5. ShowMessage (IntToStr (UniStoredProc. ParamByName (' poutid ').AsInteger));