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

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

stmt:=sqlAllocStmt;
          sqlAddStr(query,'insert into groupmc (atl_lastdate,atl_lasttime,atl_lastuser,kod,name,owner,lkod) values ');
          sqlAddStr(query,'(#date('+DateToStr(cur_date,'DD,MM,YYYY')+'),#time('+TimeToStr(cur_time,'HH,MM,SS,SS')+'),#comp('+userid+'),'#39+kod+''#39+',');
          xlGetCellValue(i,2,nazv);
          nazv:=trim(nazv);
          sqlAddStr(query,''#39+nazv+''#39+',#comp('+zap1[1]+'),'+length(kod)+')');
          k_osh:=sqlPrepare(stmt,query);
          if k_osh>0 then message('sqlPrepare insert into groupmc. Ошибка '+k_osh);
          k_osh:=sqlExecute(stmt);
          if k_osh>0 then message('sqlExecute insert into groupmc. Ошибка '+k_osh);
          sqlFreeStmt(stmt);
          sqlFreeStr(query);
          stmt:=0;
          query:=0;