当前位置:主页>销售管理软件> 列表

求助:关于delphi7调用Oracle的包的用法(报里面

记账软件版1楼: 求助:关于delphi7调用Oracle的包的用法
首先声明:在写此帖时已经搜索所有贴(当然也有遗忘的地方),请大家看好此帖内容,最后测试一下。
有如下包体,用delphi7调用,取得两个参数,一个结果。包体如下:
create or replace package MyTest is
function Register(
i_code in out nocopy raw,
o_sid in out nocopy raw
)
return varchar2;
end MyTest;
--------------
create or replace package body MyTest is
function Register(
i_code in out nocopy raw,
[:)][?][code][/code]o_sid in out nocopy raw
) return varchar2 is
begin
o_sid := ''0209FA324CA59725'';
i_code := ''00'';
return(''[0000]'');
end;
end MyTest;
(以下是PL/SQL DEVELOPER的测试方法)
想拿分的朋友请打开PL/SQL并建好包后,展开此包体的Functions,右击的REGISTER然后点击测试,输入i_code,o_sid的值均为1,点击“开始调试器”(F9),运行,得到的结果为Result := [0000],i_code := 00,o_sid := 0209FA324CA59725;看到此处,大家可能已经明白我的意思了,就是说:
如何在Dephi7里调用这个函数,要求输入两个变量参数,且得到三个结果,即此函数的结果,两个传出参数。

2楼: 在oracle 中function  一般是结合Select 句子用,这和delphi的关系不是很大,关键在
于你传入的参数是否正确。 如速达3000软件狗

3楼: to jfyes兄:
是的,用select 字句如果参数不正确是传不出来,大概报错的意思是说你的参数是变量的。所以,关键是如何传参数。
事实上在我发帖子的时候,我们同事兼领导已经实现了这个功能。但他没有进来,如果来了这分得给他。所以....大家踊跃发言,如果有好的想法的也可给分。

4楼: 把同事兼领导的方法贴出来给大家学习一下吧[:)]

5楼: 进者有分。

6楼: 学习一下!我用的也是ORACLE,但没有接触近包!呵呵!见笑了!

记账软件版7楼: 够十个人,见者有20分。最后发方法