Галактика в вопросах и ответах

Код: Выделить всё

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;
   }
}