Заполнение табличного поля данными таблицы значений, полученной из SQL - Запроса

 Процедура ЗаполнитьНажатие(Элемент)
запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса
ТаблицаВывода = Новый ТаблицаЗначений;
ТаблицаВывода.Очистить();
ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);

ТабличноеПоле.Очистить();
ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;
ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();

КонецПроцедуры

Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)
Соединение = Новый COMОбъект("ADODB.Connection");
НаборЗаписей = Новый ComObject("ADODB.RecordSet");
Команда = Новый COMОбъект("ADODB.Command");

Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +
    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");
Соединение.ConnectionTimeOut = 15;
//Попытка
 Соединение.Open();
// Сообщить("Connect");
//Исключение
// Сообщить("No connect");
//КонецПопытки;

Команда.ActiveConnection = Соединение;
Команда.CommandText = txtSQL;
//Попытка
 НаборЗаписей = Команда.Execute ();
// Сообщить("Add record");
//Исключение
// Сообщить("No I_nsert");
//КонецПопытки;

Таблица = Новый ТаблицаЗначений;
//Состояние ("Заполнение временной таблицы...");

Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   //Создание и добавление колонок во временную таблицу
 ИмяСтолбца =НаборЗаписей.Fields.Item(НомерСтолбца).Name;
 Таблица.Колонки.Добавить(ИмяСтолбца);
 //Сообщить(ИмяСтолбца);            // Тестовая строка
КонецЦикла;
 
Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы
 НоваяСтрока =  Таблица.Добавить();
 Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл
  НоваяСтрока.Установить(НомерСтолбца,НаборЗаписей.Fields(НомерСтолбца).Value);
  //Сообщить ("Test " + ЗаписиSQL.Fields(НомерСтолбца).Value +  ЗаписиSQL.Fields(НомерСтолбца).Name);
 КонецЦикла;
 НаборЗаписей.MoveNext();
КонецЦикла;

//Состояние ("Закрываем соединение с SQL...");
Соединение.Close();
Возврат Таблица;
КонецФункции   

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С

СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +
    (";UID=") + Login + ("; PWD=") + Password + (";");
              
   Подключение = Новый ComObject("ADODB.Connection");
Подключение.ConnectionString=СтрокаСоединения;
 Попытка
  Подключение.Open(СтрокаСоединения);
  Состояние ("Подключение к серверу SQL...");
 Исключение
  Сообщить(ОписаниеОшибки());
  Возврат Ложь;
 КонецПопытки;
 
СоединениеSQL = Новый COMObject("ADODB.Command");
СоединениеSQL.ActiveConnection = Подключение;
СоединениеSQL.NamedParameters = True;
СоединениеSQL.CommandText = ТекстSQL;
СоединениеSQL.CommandType = 1;
//СоединениеSQL.Prepared = Истина;

Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);
СоединениеSQL.Parameters.Append(Param1);

Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));
СоединениеSQL.Parameters.Append(Param2);

Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));
СоединениеSQL.Parameters.Append(Param3);
   
СоединениеSQL.Parameters.Refresh();

Состояние ("Выполнение запроса SQL...");
ЗаписиSQL = Новый ComObject("ADODB.RecordSet");

ЗаписиSQL = СоединениеSQL.Execute();

 
Таблица = Новый ТаблицаЗначений;
Состояние ("Заполнение временной таблицы...");
Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу
 ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;
 Таблица.Колонки.Добавить(ИмяСтолбца);
 Сообщить(ИмяСтолбца);
КонецЦикла;


Пока ЗаписиSQL.EOF = 0 Цикл // Заполнение созданной таблицы
 
 НоваяСтрока =  Таблица.Добавить();
 Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл
  НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);
  Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);
 КонецЦикла;
       
 ЗаписиSQL.MoveNext();
 
КонецЦикла;

Состояние ("Закрываем соединение с SQL...");
   ЗаписиSQL.Close();
Подключение.Close();

Возврат Таблица;   // Возврат таблицы значений запроса SQL

КонецФункции