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