(0)
Функция ЗагрузитьДанные(ИмяСущности) экспорт
лСтрокаСоединения = "Driver={SQL Server};Server=SRVSQL;Database=MyBase;Uid=***;Pwd=****;";
мСоединение = Новый COMОбъект("ADODB.Connection");
мСоединение.ConnectionTimeOut=600;
Попытка
мСоединение.Open(лСтрокаСоединения);
Исключение
Возврат ОписаниеОшибки();
КонецПопытки;
RecordSet = Новый COMObject("ADODB.RecordSet");
ТекстЗапроса="SELECT "+ НаборПолей + " from "+ИмяСущности + СтрокаФильтра;
RecordSet.Open (ТекстЗапроса, мСоединение, 3, 1);
Пока НЕ RecordSet.EOF() Цикл
новстр=Вычислить("ЭтотОбъект."+ИмяСущности+".Добавить()");
Для Сч=1 по КоличествоПолей Цикл
ЗначениеПоля=Строка(RecordSet.Fields(СписокПолей[Сч-1].Значение).Value);
........
КонецЦикла;
RecordSet.MoveNext();
КонецЦикла;
RecordSet="";
мСоединение.Close();
КонецФункции
Независимо от того, куда вы едете — это в гору и против ветра!