Взаимосвязь SQLServer 2005 и 1С 8.2

 	Запрос = Новый COMОбъект("ADODB.Recordset");

	Св = Новый COMОбъект("ADODB.Connection");

	

	Св.CursorLocation = 3;

	Запрос.CursorType=3;

	Св.ConnectionTimeout=6000;

	

	СтрокаСвязи="Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=KUKU;Initial Catalog=KUKU;Data Source=SQL-T";

	

	Св.Open(СтрокаСвязи);

	ТекстЗапроса="

	|S_elect [NIB] AS NIB

	      |,[FIO] AS ФИО

	      |,[Adress] AS Адрес

	  |FROM [KUKU].[dbo].[TabName]

	  |WHERE [report_date] >= '###' AND [report_date] <= '$$$'";

	

	ДатаНачала = Формат(НачПериода,"ДФ=yyyyMMdd");

	ДатаКонца = Формат(КонПериода,"ДФ=yyyyMMdd");

	

	ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"###",ДатаНачала);

	ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"$$$",ДатаКонца);

	

	Запрос=Св.Execute(ТекстЗапроса);

	Пока (Запрос.eof() = 0) Цикл

		СтрТЗ = ТЗОтчётов.Добавить();

		Состояние("Загрузка данных из базы "+ТЗОтчётов.Индекс(СтрТЗ)+" из "+Запрос.RecordCount());

		Запрос.MoveNext();

	КонецЦикла;