ТекстЗапроса="exec dbo.swra_Sales_Desktop @Date_From="+"'"+Формат(ДатаНачалаПроверки,"ДФ=ггггММдд")+"', @Date_To="+"'"+Формат(ДатаКонцаПроверки,"ДФ=ггггММдд")+"'";

ТаблицаЗагрузки= Новый ТаблицаЗначений;
ТаблицаЗагрузки.Колонки.Добавить("Поле");

ServerName=СокрЛП("*****"); //имя или IP-адрес сервера

DSN=СокрЛП("******"); //имя базы данных

UID=СокрЛП("sa"); //логин пользователя

PWD=СокрЛП("*****"); //пароль


ConnectString="Provider=SQLOLEDB;Data Source="+ServerName+";DatabaseName="+DSN+";Initial Catalog="+DSN+";UID="+UID+";PWD="+PWD;
Соединение=Новый COMОбъект("ADODB.Connection");
Соединение.ConnectionTimeOut=600;
Попытка
Соединение.Open(ConnectString);
Исключение
Предупреждение("Не удалось соединиться с базой данных!");
Сообщить(ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;

Cmd=Новый COMОбъект("ADODB.Command");
Rs=Новый COMОбъект("ADODB.RecordSet");
Cmd.ActiveConnection=Соединение;
Cmd.CommandTimeOut=600;
Cmd.CommandType=1; //запрос на языке SQL


Cmd.Commandtext=СокрЛП(ТекстЗапроса);
Попытка
Rs.ActiveConnection=Соединение;
Rs=Cmd.Execute();
Исключение
Сообщить(ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;

КоличествоПолей=Rs.Fields.Count();
Попытка
Пока Rs.EOF()=0 Цикл
НоваяСтрока = ТаблицаЗагрузки.Добавить();
Для i=0 по КоличествоПолей-1 Цикл
НоваяСтрока.Поле = СокрЛП(Rs.Fields(i).Value);
КонецЦикла;
Rs.MoveNext();
КонецЦикла;
Исключение
Сообщить(ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;
Rs.Close();
Соединение.Close();
Возврат ТаблицаЗагрузки;