oracle的存储过程 delphi怎么调用!!请老师们指教。我在线等后大家的指教 http://www.cnoug.org/viewthread.php?tid=17856 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject); begin try with ADOConnection1 do begin ConnectionString:= 'Provider=OraOLEDB.Oracle.1;' + 'Password=密码;' + 'Persist Security Info=True;' + 'User ID=用户名;' + 'Data Source=数据库名;' + 'Extended Properties="PLSQLRSet=1;"'; Open; end; except showMessage('连接不成功'); exit; end; try with ADOStoredProc1 do begin Connection := ADOConnection1; Parameters.Clear; ProcedureName:= 'pkg_test.get'; Parameters.CreateParameter('p1',ftInteger,pdInput,10,1); Open; end; except showMessage('无法执行过程.'); end; end; select * into type from table 存储过程 dead lock oracle一体机连接问题 oralce11.2.0.3 超菜问题:请问oracle里面的tnsnames.ora这个配置文件主要是干什么用的? select 1 from dual where '2004090562930' <>''; 使用VISIO进行正向工程,报告奇怪错误! 如何获取一个字段的小数部分? 如何通过rowid查找记录? 为什么不能删除列啊? 在Erwin4.0中,定义了一个表后,表里的字段排序顺序为何老是变化? 创建表空间?? oracle9i的安装问题
begin
try
with ADOConnection1 do
begin
ConnectionString:=
'Provider=OraOLEDB.Oracle.1;'
+ 'Password=密码;'
+ 'Persist Security Info=True;'
+ 'User ID=用户名;'
+ 'Data Source=数据库名;'
+ 'Extended Properties="PLSQLRSet=1;"';
Open;
end;
except
showMessage('连接不成功');
exit;
end; try
with ADOStoredProc1 do
begin
Connection := ADOConnection1;
Parameters.Clear;
ProcedureName:= 'pkg_test.get';
Parameters.CreateParameter('p1',ftInteger,pdInput,10,1);
Open;
end;
except
showMessage('无法执行过程.');
end;
end;