Здравствуйте, Igor_from_Kiev, Вы писали:

IFK> int n = 10*SafeArrayGetElemsize(psa);
IFK> pprmBinaryVal = OraCommand->CreateParameter("arr",(enum DataTypeEnum) (adArray|adInteger),adParamInput,n,vtBinaryVal);

Кажись ты передаешь не правильный размер параметра.
Параметры в OLEDB провайдер передаются как SAFEARRAY*, то бишь размер должен быть 4 байта.

А лучше забить, и передавать в качестве размера -1. ADO должно само разобраться.

Можешь посмотреть здесь как через ADO передаются массивы в InterBase.