Попробовал вытащить данные в Галактику из созданной в Oracle таблице, взял код из Опыта:
Код: Выделить всё
CmInit:
{
stmt := sqlAllocStmt;
//Создаем ВТ
sqlDropTmpTable('MyData');
Message('должна удалиться',0)
sqlDropTmpTable(UpCase ( UserName ) +'.MyData');
Message('а теперь?',0)
sqlCreateTmpTable('Table MyData (f : string);', ctmNormal);
//Заполняем ВТ
sqlExecStmt(stmt,'VRN.GATE('#39+ 'INSERT INTO ' + UpCase ( UserName ) + '.MyData (FF) SELECT TEST.FIELD1 FROM VRN.TEST'#39+')');
//Читаем ВТ
sqlExecStmt(stmt,'select F from MyData');
i:=1;
sqlBindCol(stmt, 1, mField);
While ( sqlFetch(stmt) = tsOk ) Do
{ Message('mf='+mField,0);
Insert TParam set TParam.nrec:=i, Tparam.tField1:=mField;
i:=i+1;
}
}
Интерфейс ни на что не ругается, но ничего и не происходит.
В Галактике вижу новую процедуру, доступ к ней в Галактике разрешен, право на прямой SQL в Галактике у меня есть.
Где можно рыть?
Oracle v.8.0, Галактика двухзвенка 8.10.