如何调用ORACLE的存储过程? 如何调用ORACLE的存储过程?越详细越好 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 给你个例子,这里用的ADOSTOREDPROC try ADOStoredProc1.ProcedureName := '存储过程名'; ADOStoredProc1.Parameters.Clear; ADOStoredProc1.Parameters.CreateParameter('@code',ftString,pdOutput,4,0);//code为存储过程里面定义的字符串类型的输出参数 ADOStoredProc1.Prepared := true; ADOStoredProc1.ExecProc; except on E: exception do begin AdoConnection1.RollbackTrans; //回滚事务 Application.MessageBox('调用存储过程失败!','错误',MB_ICONERROR + MB_OK); end; end; Showmessage(ADOStoredProc1.Parameters.ParamByName('@code').Value); //显示获得的值 TGraphicControl 类闪烁的问题! 看了最近回答的贴以及结贴的数量 动态创建的控件怎么去触发他的事件? QuickReport中制作的报表如何在pagefooter中获取总页数! 如何判断一个程序是否当前运行程序? 打印报表出现的问题!up分! 可否在Delphi中實現將Excel中的數據導入到SQL Server或Access中? 请问如何用Delphi7制作Win XP风格用户界面? 最近做一个防作弊系统,各位有没有关于win32 hooks得资料?谢谢! 如何制作启动封面 关Tchart 的复制, 解决即结贴 如何让table动态连接数据表?
try
ADOStoredProc1.ProcedureName := '存储过程名';
ADOStoredProc1.Parameters.Clear;
ADOStoredProc1.Parameters.CreateParameter('@code',ftString,pdOutput,4,0);//code为存储过程里面定义的字符串类型的输出参数
ADOStoredProc1.Prepared := true; ADOStoredProc1.ExecProc;
except
on E: exception do
begin
AdoConnection1.RollbackTrans; //回滚事务
Application.MessageBox('调用存储过程失败!','错误',MB_ICONERROR + MB_OK);
end;
end;
Showmessage(ADOStoredProc1.Parameters.ParamByName('@code').Value); //显示获得的值