各位大虾们，偶碰到有个很郁闷的问题啊！

[foxmen]

我的数据库连接用的是dp7自带的dbexpress驱动，数据库连接没问题，可是但代码调用后台的包过程的时候，报错误，错误原因是：lists out of bound (0) 。。。

以下是我的代码，很精简的。拜托各位大虾看看！

//数据库连接
function TDBManager.setDataOneConnect(strServer,strUser,strPassword:string):boolean;
begin
try
with sqlconnCommon do
begin
LoginPrompt:=False;
ConnectionName:='hnfs';
LibraryName := 'dbexpora.dll';
GetDriverFunc := 'getSQLDriverORACLE';
DriverName:='Oracle';
VendorLib:='oci.dll';
Params.Clear;
Params.add('Multiple Transaction=true');
Params.Add('User_Name='+strUser);
Params.Add('Password='+strPassword);
Params.Add('Database='+strServer);
Open;
end;
result:=true;
except
result:=false;
end;
end;

//得到接收数据游标
function TDBManager.getInceptDataSet(strDate,strState:string):TSimpleDataSet;
var
sspData:TSQLStoredProc;
begin
try
sspData:=TSQLStoredProc.Create(nil);
sspData.SQLConnection:=sqlconnCommon;
sspData.Close;
sspData.Params.Clear ;
sspData.PackageName:='IncomeManger';
sspData.StoredProcName:='getInceptData';
sspData.Params.CreateParam(ftString,'strCheckDate',ptInput);
sspData.Params.CreateParam(ftString,'strCheckState',ptInput);
sspData.Params.CreateParam(ftCursor,'csrCursor',ptOutput);
sspData.Params.ParamByName('strCheckDate').Value:=strDate;
sspData.Params.ParamByName('strCheckState').Value:=strState;
sspData.ParamCheck:=true;
sspData.Open;
result:=TSimpleDataSet(sspData);
except
result:=nil;
end;
end;

报错误的位置在“sspData.Open;”，我想不通啊，代码没错误啊。。。

还有，各位大虾有没有高版本的dbexpoda.dll啊，不需要注册的，偶工程要的急啊。。。 拜托各位了。

[FigoZhu]

不懂，帮顶，接分。

[foxmen]

为什么啊，为什么没有人来啊，来人啊，分不够，我再开一个啊！

[zhangxuyu1118]

可能是参数条目数量不匹配

[zhangxuyu1118]

//得到接收数据游标
function TDBManager.getInceptDataSet(strDate,strState:string):TSimpleDataSet;
var
sspData:TSQLStoredProc;
begin
try
sspData:=TSQLStoredProc.Create(nil);
sspData.SQLConnection:=sqlconnCommon;
if not sspData.SQLConnection.active then
sspData.SQLConnection.open;
sspData.Close;
...

[foxmen]

SQLConnection.active没有这个属性啊，再说连接也打开了，能够自动判断包、过程、参数是否正确的。

[erhan]

sspData.Connected := True;
试试看

[foxmen]

各位大哥，不好意思，小弟最近比较忙，没有及时揭贴，抱歉！