SQL запрос к базе данных

//Создать объект ADODB.Connection
//Возврат:
//	OLE - объект соединение или Неопределено
Функция СоздатьСоединениеАДО() Экспорт
	Перем СоединениеАДО;
	Попытка
		СоединениеАДО = Новый COMОбъект("ADODB.Connection");
	Исключение
		#Если Клиент Тогда
		Сообщить("Не удалось создать объект ""ADODB.Connection""", СтатусСообщения.Важное);
		#КонецЕсли
		Возврат Неопределено;
	КонецПопытки;
	СоединениеАДО.ConnectionTimeOut = 20;
	СоединениеАДО.CursorLocation	    = 3;
	Возврат СоединениеАДО;
КонецФункции //СоздатьСоединениеАДО()

//Создать объект ADODB.Command
//Возврат:
//	OLE - объект запрос или Неопределено
Функция СоздатьЗапросАДО() Экспорт
	Перем ЗапросАДО;
	Попытка
		ЗапросАДО = Новый COMОбъект("ADODB.Command");
	Исключение
		#Если Клиент Тогда
		Сообщить("Не удалось создать объект ""ADODB.Command""", СтатусСообщения.Важное);
		#КонецЕсли
		Возврат Неопределено;
	КонецПопытки;
	Возврат ЗапросАДО;
КонецФункции //СоздатьЗапросАДО()



//СоединениеАДО (OLE) - соединение
//ЗапросАДО (OLE)	   - запрос
//Возврат:
//	Булево - удачно, нет
Функция ПодключитьсяАДОкБД(СоединениеАДО, ЗапросАДО)
       СтрокаСоединения = "driver={SQL Server};server="+Адрес+";uid="+Пользователь+";pwd="+Пароль+";Database="+БазаДанных;
	Попытка
		СоединениеАДО.Open(СтрокаСоединения);
	Исключение
		Сообщить("Не удалось установить соединение с базой данных", СтатусСообщения.Важное);
		Возврат Ложь;
	КонецПопытки;
	
	ЗапросАДО.ActiveConnection = СоединениеАДО;
	
	Возврат Истина;
	
КонецФункции // ПодключитьсяАДОкБД()

СоединениеАДО = СоздатьСоединениеАДО();
Если СоединениеАДО = Неопределено Тогда
	Сообщить("Не удалось СоздатьСоединениеАДО", СтатусСообщения.Важное);
	Возврат;
КонецЕсли;
ЗапросАДО = СоздатьЗапросАДО();
Если ЗапросАДО = Неопределено Тогда
	Сообщить("Не удалось СоздатьЗапросАДО", СтатусСообщения.Важное);
	Возврат;
КонецЕсли;
Если Не ПодключитьсяАДОкБД(СоединениеАДО, ЗапросАДО) Тогда
	Сообщить("Не удалось ПодключитьсяАДОкБД", СтатусСообщения.Важное);
	Возврат;
КонецЕсли;

ЗапросАДО.CommandText = "SEL ECT field1 FROM table1";
Выборка = ЗапросАДО.Execute();
Пока Не Выборка.EOF() Цикл 
   Сообщить(Выборка.Fields("field1").Value);
   Выборка.MoveNext();
КонецЦикла;
 

//обработка данных запроса
Результат.MoveFirst();
Пока Результат.EOF() = 0 Цикл
    НоваяСтрока  = ТЗ_Запроса.Добавить();
Для НомерСтолбца = 0 По Результат.Fields.Count-1 Цикл
    НоваяСтрока[ИмяСтолбца] = Результат.Fields(Результат.Fields.Item(НомерСтолбца).Name).Value;

Функция ЗапросКБД()
//преобразуем дату в формат ГГГГММДД	
	ДатаВЗапН = Формат(ДатаНач,"ДФ=""ггггММдд""");
	ДатаВЗапК = Формат(ДатаКон,"ДФ=""ггггММдд""");
	
//создаем подключение к SQL базе 	
	ОбъектАДО = Новый COMОбъект("ADODB.Connection");
Попытка
	Состояние("Соединение...");
  ОбъектАДО.Open("Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Mobile_Trade;Data Source=TSERVER");	
    Сообщить("Соединение установлено!!!");
    Сообщить("************************************");
Исключение
    Сообщить("Ошибка подключения");
    Сообщить(ОписаниеОшибки());
КонецПопытки;
	
//пишем запрос
    ЗапросКБД                  = Новый COMОбъект("ADODB.Command");
    ЗапросКБД.ActiveConnection = ОбъектАДО;
    ЗапросКБД.CommandText      = " sel ect DocNumber,orDate,ChangeDate fr om DS_Orders where orDate >= '"+ДатаВЗапН+"' and orDate <= '"+ДатаВЗапК+"' order by orDate";
	
// Создаем объект ADODB.RecordSet
Результат = Новый COMОбъект("ADODB.RecordSet");	

//выполняем запрос
Попытка 
    Состояние("Выгружаем...");
   Результат = ЗапросКБД.Execute();
    Сообщить("Данные успешно выгружены!!!");
	Сообщить("************************************");
Исключение 
	Сообщить(ОписаниеОшибки());
КонецПопытки;

// Проверяем результат выборки на наличие записей
Если Результат.BOF = 1 и Результат.EOF = 1 Тогда
    Возврат Истина;
КонецЕсли;	
//создаем временную таблицу
    ТЗ_Запроса = Новый ТаблицаЗначений;
	
//Заполнение временной таблицы
Для каждого Field из Результат.Fields Цикл 
//Создание и добавление колонок во временную таблицу
	ТЗ_Запроса.Колонки.Добавить(Field.Name);
 КонецЦикла;   	
//обработка данных запроса

Пока Не Результат.EOF Цикл
    НоваяСтрока  = ТЗ_Запроса.Добавить();
	Индекс = 0;
Для Каждого Field из Результат.Fields Цикл
    НоваяСтрока[Индекс] = Field.Value;
	Индекс = Индекс +1;
КонецЦикла;
Попытка  
// перейти на следующую запись
   Результат.MoveNext();
Исключение
//не удалось пройти по набору данных
КонецПопытки;
КонецЦикла; 	


     ОбъектАДО.Close();
	 ЗапросКБД = Неопределено;
	 ОбъектАДО = Неопределено;
	 Результат = Неопределено;
	
	Возврат ТЗ_Запроса;
КонецФункции