Connection = Новый COMОбъект ("ADODB.Connection");
Connection.Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=X:\BioStation\Bio-Office\Att2003.mdb");
RecordSet = Новый COMОбъект("ADODB.Recordset");
RecordSet.Open("select * from v_record where CheckTime between #" + Формат(НачалоДня(НачПериода), "ДФ=MM/dd/yyyy") + "# and #" + Формат(КонецДня(КонПериода)+1, "ДФ=MM/dd/yyyy") + "#", Connection);
Попытка
RecordSet.MoveFirst();
Исключение
Предупреждение("Произошла ошибка (скорее всего, нет данных за анализируемый период)" + Символы.ПС + ОписаниеОшибки());
Возврат;
КонецПопытки;
Пока Не RecordSet.EOF Цикл
НоваяСтрока = ТЗБД.Добавить();
НоваяСтрока.ИдЗаписи = RecordSet.Fields("Logid").Value;
<...>
RecordSet.MoveNext();
КонецЦикла;
