create or replace Def_Package as type c_def_type is ref cursor; end Def_Package;create or replace RenData { Test_Cursor in out Def_Package.c_def_type }as begin Open Test_Cursor for select * from TableName; end RenData; 在Delphi中如何调用,你自己应该清楚把。
我在Delphi里不会调啊,会告诉我!!!!!! ----------------------- 以下是包定义:我想用用游标返回: ----------------head------------------- CREATE OR REPLACE PACKAGE UTC.KKSTATPACK AS type cur is ref cursor; procedure kkStat(Result out cur, StatDate in Date, StatType in number); END KKSTATPACK; -----------body--------------- CREATE OR REPLACE PACKAGE BODY UTC.KKSTATPACK AS procedure kkStat(Result out cur, StatDate in Date, StatType in number) as begin --返回结果 open Result for Select * from ta_CarIO; end kkStat; END KKSTATPACK;已经在Oracle编译通过,请问怎样在Delphi里调用? 不用游标也可以,无论什么方式,请问到底咱么返回结果集?
add 'PLSQLRSet=1' in ur connection string, e.g. con.ConnectionString := 'Provider=OraOLEDB.Oracle;Data Source=MyOraDb;' + 'User ID=scott;Password=tiger;PLSQLRSet=1';
as
type c_def_type is ref cursor;
end Def_Package;create or replace RenData
{
Test_Cursor in out Def_Package.c_def_type
}as
begin
Open Test_Cursor for
select * from TableName;
end RenData;
在Delphi中如何调用,你自己应该清楚把。
-----------------------
以下是包定义:我想用用游标返回:
----------------head-------------------
CREATE OR REPLACE PACKAGE UTC.KKSTATPACK
AS
type cur is ref cursor;
procedure kkStat(Result out cur, StatDate in Date, StatType in number);
END KKSTATPACK;
-----------body---------------
CREATE OR REPLACE PACKAGE BODY UTC.KKSTATPACK AS
procedure kkStat(Result out cur, StatDate in Date, StatType in number) as
begin
--返回结果
open Result for
Select * from ta_CarIO;
end kkStat;
END KKSTATPACK;已经在Oracle编译通过,请问怎样在Delphi里调用?
不用游标也可以,无论什么方式,请问到底咱么返回结果集?
怎样把存储过程选择的结果集传递给动态数组,能说说吗?
怎么在TStoreProc中调用存储过程都不行,只能在TQuery中才能调用。
目前delphi下支持oracle 8性能最好的驱动是BDE 5.11
con.ConnectionString := 'Provider=OraOLEDB.Oracle;Data Source=MyOraDb;' +
'User ID=scott;Password=tiger;PLSQLRSet=1';