sql="insert into "+db_Schema+".f47011 ("+xmlF47011;

/*
кусок кода - открываем коннект
*/

TADOCommand *com=new TADOCommand(NULL);
   com->Connection=connect;
   com->CommandType=sql;
   com->CommandTimeout= 3000 ;
   com->Prepared=false;
   com->ParamCheck=true;
   com->CommandText=sql;
   try{
      com->Execute();
      ret=true;
   }
   catch(Exception &e){
      ret=false;
      if (log_level &  1 ) MainForm->log->WriteLog(IntToStr(ct_id)+"   "+e.Message);
      if (log_level &  1 ) MainForm->log->WriteLog(IntToStr(ct_id)+"   Error in: "+com->CommandText);
   };

/*
кусок кода - закрываем коннект
*/

connect->CommandTimeout= 30 ;
      connect->Connected=false;
      connect->ConnectionTimeout= 15 ;
      connect->ConnectOptions=coConnectUnspecified;
      connect->CursorLocation=clUseClient;
      connect->IsolationLevel=ilCursorStability;
      connect->KeepConnection=true;
      connect->LoginPrompt=false;
      connect->Mode=cmUnknown;
      connect->Provider=db_Provider;