ODAC使用技巧（四）使用VARRAY数据类型
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;
补充：软件开发 , Delphi ,
