[mavrik]

Функция Запрос() 
    ТЗБД = СоздатьОбъект("ТаблицаЗначений");
    ТЗБД.НоваяКолонка("Долгота","Число");
    ТЗБД.НоваяКолонка("Широта","Число");
ТЗБД.НоваяКолонка("Широта","Число");

    Соединение = СоздатьОбъект("ADODB.Connection");
    ConnectionString ="Provider=SQLOLEDB; server=IT\SQLEXPRESS; Database=; Trusted_Connection=yes; uid=; pwd=;";
    Соединение.ConnectionTimeOut =30;
    Соединение.CursorLocation = 3;
    Попытка        
        Соединение.Open(ConnectionString);           
    Исключение        
        Предупреждение("Невозможно установить соединение");
    КонецПопытки;                            
    
    Cmd = СоздатьОбъект("ADODB.Command");
    Cmd.ActiveConnection = Соединение;  
        ТекстЗапрос =
        "
        |SELECT (Cast(MonOBJ.OBJID as float)) as OBJID,
        |MONPOS.GMT,
        |MONPOS.LON,
        |MONPOS.LAT,
        |MONPOS.DIST"+" "+"
        |FROM MONOBJ,MONPOS "+" "+"
        |WHERE MONOBJ.OBJID=MONPOS.OBJID 
        |"+" "+"AND GMT>="+"'"+Формат(ВыбНачПериод,"ДДДММГГГГ")+"'"+" 
        |"+" "+"And GMT<="+"'"+Формат(ВыбКонПериод,"ДДДММГГГГ")+"'"+" 
        |";                                                    
    КонецЕсли;  
    
    Cmd.CommandText = СокрЛП(ТекстЗапрос);
    Cmd.CommandType = 1;   
    Rs = СоздатьОбъект("ADODB.RecordSet");
    Rs = Cmd.Execute();  
    Rs.MoveFirst();                     
    Сообщить(ТекущееВремя());
    Пока Rs.EOF()= 0 Цикл          
        ТЗБД.НоваяСтрока();
                ТЗБД.Врямя = Rs.Fields.Item("GMT").Value;
        ТЗБД.Долгота = Rs.Fields.Item("LON").Value;
        ТЗБД.Широта = Rs.Fields.Item("LAT").Value;
        Rs.MoveNext();                           
    КонецЦикла;            
    Rs.Close();
    Соединение.Close();
КонецФункции

[Vofka]

И шо?

[Batchir]

Да так, просто, черно-красно-синие букафки.
А где зеленые?

[Ardi]

Что вы такие злые? Человек прочитал книжку "SQL за 24 минуты" и делится безграничным восторгом.