ODAC 使用技巧 (四)使用VARRAY数据类型

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

ODAC 使用技巧 (四)使用VARRAY数据类型

nxyc_twz@163.com

在使用对象时建议使用数组。但在你需要在数据集中使用大数组时可能会出现一些问题。比如,当为 ODAC 的一个字段创建大量数组时,也会创建大量的 TField 字段,这会导致程序的性能大大降低。 因此, ODAC 限制仅能为字段创建 1000 个成员。 但不管怎样,你都可以使用 TOraArray 对象来存取所有的成员。 当然,你也可以通过其它方法来实现。比如,设置 TOraQuery.SparseArray 为 True 并且通过 TArrayField 对象来存取数组成员。

如果创建了下面的类型:

CREATE TYPE TODACArray1 AS VARRAY (5) OF NUMBER;

CREATE TYPE TODACArray2 AS VARRAY (4) OF CHAR(10);

CREATE TABLE ODAC_Array (

Code NUMBER,

Title VARCHAR2(10),

Arr1 TODACArray1,

Arr2 TODACArray2,

);

要存取数组成员,你需要调用方法 FieldByName 。例如:

Value := Query.FieldByName('Arr1[0]').AsInteger;

If ObjectField property is True this code is right

Value := TArrayField(Query.FieldByName('Arr1')).Fields[0].AsInteger;

Using TOraDataSet.GetArray you can access to array items through TOraArray object

Value:= Query.GetArray('Arr1').ItemAsInteger[0];

你能够在 SQL 以及 PL/SQL 语句使用使用 VARRAY 类型作为参数。你需要指定 dtArray 到 TOraParam.DataType 并且使用 TOraParam.AsArray 属性来存取数组成员。

例如:

var

OraSQL: TOraSQL;

. . .

OraSQL.SQL.Text := 'INSERT INTO ODAC_Array (Code, Arr1, Arr2)' +

'VALUES (:Code, :Arr1, :Arr2)';

OraSQL.ParamByName('Code').AsInteger := 10;

with OraSQL.ParamByName('Arr1').AsArray do begin

AllocObject(OraSession.OCISvcCtx, 'TODACArray1');

ItemAsInteger[0] := 12;

AttrAsInteger['[1]'] := 10;

ItemAsInteger[3] := 133;

end;

with OraSQL. ParamByName('Arr2').AsArray do begin

OCISvcCtx:= OraSession.OCISvcCtx;

AllocObject('TODACArray2');

AttrAsString['[2]']:= 'eeee';

ItemAsString[0]:= 'FFFFF';

end;

OraSQL.Execute;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航