如何使用ADOQuery调用oracle过程、方法及包里面的过程和方法?有示例,分好多!

leandzgc 2014-05-16 01:25:58
跪求各位大神,如何使用ADOQuery调用oracle的包里面的过程?包里面的方法?单独的过程,单独的方法?请每样给出一个示例,感激不尽啊!!!跪求解决,分不是问题!都是带输出参数的哦!网上被转疯的那个代码就不要贴了,我已经试验N遍了!
...全文
211 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
leandzgc 2014-05-18
  • 打赏
  • 举报
回复
问题已解决,参照http://shantouyyt.blog.163.com/blog/static/6548147620116910246797/ oracel 函数 create or replace function fun_yyt_test (p1 varchar2,p2 varchar2) return varchar2 is r1 varchar2(50); begin r1 := 'yyt'; return r1; end; 第一种:TADODataSet 查询 这种可能会出现:在查询或DML中无法执行DML,提交或回退。 dspos := TADODataSet.Create(nil); dspos.Connection := g_cnPOS; dspos.CommandText := ' select fun_yyt_test(''1'',''6'') as result from dual ' ;//fun_yyt_test 为oracle 函数 dspos.Open; bill := dspos.FieldByName('result').AsString; showmessage(bill); 第二种:TADOStoredProc proc := TADOStoredProc.Create(nil); proc.Connection := g_cnPOS; proc.ProcedureName := 'fun_yyt_test'; proc.Parameters.CreateParameter('@RETURN_VALUE', ftString, pdReturnValue, 50, Unassigned); proc.Parameters.CreateParameter('p1', ftString, pdInput, 20, 'DJTHTZ001'); proc.Parameters.CreateParameter('p2', ftString, pdInput, 10, '9907'); proc.ExecProc; ShowMessage(proc.Parameters.ParamByName('@RETURN_VALUE').value); 返回值 用@RETURN_VALUE 代替。 虽然不想用adostoreproc来调用,但是这是没有办法的办法了,如果各位大婶有用adoquery成功调用,还请多多指点啊。来人接分吧!
leandzgc 2014-05-18
  • 打赏
  • 举报
回复
跪求神仙啊!
leandzgc 2014-05-17
  • 打赏
  • 举报
回复
怎么一个人也没有啊!!!

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧