ODAC使用技巧（四）使用VARRAY數據類型

ODAC 使用技巧 （四）使用VARRAY數據類型

[email protected]

   在使用對象時建議使用數組。但在你需要在數據集中使用大數組時可能會出現一些問題。比如，當為 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;