PB调用Oracle存储过程的问题，请高手指点，不胜感激！！！！

[snooper]

我在Oracle中定义了一个存储过程，如下：
create or replace procedure p_Database_DropTable is
-- 声明游标
CURSOR curDropTableList Is
Select 'Drop table ' || table_name || ' Cascade Constraints' Drop_tables from User_all_tables;
strdroptable Varchar2(60);
begin
-- 打开游标
Open curDropTableList;
Fetch curDropTableList Into strdroptable;
While curDropTableList%found
Loop
Execute immediate strdroptable;
Fetch curDropTableList Into strdroptable;
End Loop;
-- 关闭游标
Close curDropTableList;
end p_Database_DropTable;

然后我在Pb中声明此存储过程，如下：
Declare procDropTable Procedure For p_Database_DropTable Using SQLCA;

但是我保存时就出现非法，说指令引用“0x00000000“内存，该内存不能为“read",不知道为什么？

[snooper]

到底为什么？

[sywen]

肯定是你的系統有問題，我這裡p_Database_DropTable()或者
p_Database_DropTable(:ls_arg)或者p_Database_DropTable都沒問題

[snooper]

应该不是的，因为我们好几台机器都是这样的。

[snooper]

存储过程我已经在Pl/Sql上调试过了，没有问题。

[sywen]

著好像是pb的問題。

[snooper]

我用的是pb8.04 build 10501

[sywen]

最新的版本好像是pb8.04 build 10656。
在沒有加存儲過程前，你試試重新regenerate這個對象看看。

[snooper]

regenerate该对象没有问题

[snooper]

问题已经解决了，我加了一个不使用的参数，然后就可以了，但是为什么呢？
难道Pb调用存储过程必须带参数吗？
郁闷......

[sywen]

恭喜樓主
在p_Database_DropTable後加()是不是也可以。p_Database_DropTable();

[snooper]

我也这么想过，但是不行，真是奇怪了！！！

[lfd]

你可以试试用这种方法调用
定义一个user object在declear的local external function的脚本窗口点击右键：
paste spacial－》sql－》remote stored procedures选择你的存储过程
保存该user object名为uo_pro
在application页面，点击属性窗口的additiaonal properties按钮，选择viable types在sqlca中输入你的user object名uo_pro