Доступ из Галактики к таблице ORACLE

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
savov
Местный житель
Сообщения: 589
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Воронеж ОАО Верофарм. Воронеж

Доступ из Галактики к таблице ORACLE

Сообщение savov »

Здравствуйте!
Попробовал вытащить данные в Галактику из созданной в 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;
   }
}
Ни один оператор не отработал, кроме CreateTmpTable, вижу, что таблица MyData создалась.
Интерфейс ни на что не ругается, но ничего и не происходит.
В Галактике вижу новую процедуру, доступ к ней в Галактике разрешен, право на прямой SQL в Галактике у меня есть.
Где можно рыть?
Oracle v.8.0, Галактика двухзвенка 8.10.
savov
Местный житель
Сообщения: 589
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Воронеж ОАО Верофарм. Воронеж

Re: Доступ из Галактики к таблице ORACLE

Сообщение savov »

Вопрос снят, после просмотра log найдена ошибка синтаксиса запроса. Код заработал.
Ответить