1

Использую для записи в БД чужую хранимую процедуру

'begin' + #13#10 +
'  pkg_x.insert(md1 => :md1,' + #13#10 +
'               md2 => :md2,' + #13#10 +
'               cnt => :cnt);' + #13#10 +
'end;';

где cnt - размер массивов , md1, md2 - массивы чисел. Их тип определен в Oracle как is table of number index by binary_index.

Раньше использовал компоненты DOA и передавал массивы так:

md1:= VarArrayCreate([0, 99], varVariant);
md2 := VarArrayCreate([0, 99], varVariant);
--------
DeclareVariable('md1', otInteger);
DimPLSQLTable('md1', 100, 0);
DeclareVariable('md2 ', otInteger);
DimPLSQLTable('md2 ', 100, 0);
DeclareVariable('cnt', otInteger);
SetVariable('cnt', 100);
SetVariable('md1', md1);
SetVariable('md2', md2);
Execute;

выполнялось как положено.

Сейчас вместо DOA TOracleQuery нужно использовать FireDac TFDQuery так как кроссплатформенность наше все. Решил использовать технологию array DML.

SetLength(md1, 100);
SetLength(md2, 100)
-------------------;
FDQuery.ParamByName('md1').DataType:= ftInteger;
FDQuery.ParamByName('md2').DataType:= ftInteger;

FDQuery.ParamByName('cnt').AsInteger:= 100;
FDQuery.Params.ArraySize:= 100;
for I := 0 to 99 do
begin
  FDQuery.ParamByName('md1').Values[I]:= md1[i];
  FDQuery.ParamByName('md2').Values[I]:= md2[i];
end;
FDQuery.Execute(FDQuery.Params.ArraySize);

так как в справке написано, что varray не поддерживается, то как быть? Хранимую процедуру менять только в очень крайнем случае. При таком выполнении запроса происходит ошибка БД: кол-во или типы параметров ошибочны

0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Посмотрите другие вопросы с метками или задайте свой вопрос.