Подключение1скsql

gistfile1.txt

Процедура ОтключитсяОтСервераSW() Экспорт
	Команда = Неопределено;
	
	мЕстьПодключениеКСерверу = Ложь
КонецПроцедуры

Процедура ПодключитсяКСерверуSW() Экспорт
	Если мЕстьПодключениеКСерверу Тогда
		Возврат
	КонецЕсли;
	
	Если НЕ мРежимЭмуляции Тогда
		
		Коннект = Новый ComОбъект("ADODB.Connection");
		Команда = Новый ComОбъект("ADODB.Command");
		
		ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=";
		ConnectionString = ConnectionString + СокрЛП(Пользователь) + ";pwd=";
		ConnectionString = ConnectionString + СокрЛП(Пароль) + ";Initial Catalog=";
		ConnectionString = ConnectionString + СокрЛП(БазаДанных) + ";Data Source=";
		ConnectionString = ConnectionString + СтрЗаменить(АдресСервера," ","") + ?(СокрЛП(Порт) = "", "" , "," + СокрЛП(Порт));
		
		Коннект.ConnectionString = ConnectionString;

		Попытка
			Коннект.Open();
			Команда.ActiveConnection = Коннект;
			
			мЕстьПодключениеКСерверу = Истина;
			
			Стр = СокрЛП(ТекущаяДата()) + ";Подключение к серверу SW прошло успешно;" + ConnectionString;
			
			СообщениеСЛогом(Стр)
		Исключение
			мЕстьПодключениеКСерверу = Ложь;
			
			СообщениеСЛогом(СокрЛП(ТекущаяДата()) + ";Подключение к серверу SW завершилось ошибкой;Строка подключения: """ + ConnectionString + """, ошибка: " + ОписаниеОшибки())
		КонецПопытки
		
	Иначе
		
		мЕстьПодключениеКСерверу = Истина
		
	КонецЕсли
	
КонецПроцедуры

Функция ВыполнитьКомандуСервераSW(СтрокаКоманды, ИмяФункции, ПараметрВозврата = "") Экспорт
	
	Попытка
		Если НЕ мРежимЭмуляции Тогда
			Команда.CommandText = СтрокаКоманды
		КонецЕсли;
		
		Если (ВестиЛогВыполняемыхКоманд ИЛИ мРежимЭмуляции) И ЛогКоманд <> Неопределено Тогда
			ЛогКоманд.WriteLine(СтрокаКоманды)
		КонецЕсли;
		
		Если НЕ мРежимЭмуляции Тогда
			ПараметрВозврата = Команда.Execute()
		КонецЕсли;
		
		Возврат Истина
	Исключение
		СообщениеСЛогом(СокрЛП(ТекущаяДата()) + ";При выполнении функции """ + ИмяФункции + """ возникла ошибка выполнения команды SQL;Строка команды: """ + СтрокаКоманды + """, ошибка: " + ОписаниеОшибки());

		Возврат Ложь
	КонецПопытки
	
КонецФункции

Процедура Тест()

    Шапка = "";Стр = "";
	
	Стр = Стр + "@SyncDBF = " + ФорматироватьЧислоДляВыгрузкиВSQL(1,1,0);
	Стр = Стр + ", @StartDate = " + ФорматироватьДатуДляВыгрузкиВSQL(НачалоДня(НачПериодаЗагрузкиПродаж));
	Стр = Стр + ", @FinishDate = " + ФорматироватьДатуДляВыгрузкиВSQL(РаботаСВременемДатой.ДобавитьДни(КонецДня(КонПериодаЗагрузкиПродаж), 1));
	
	Если НЕ ВыполнитьКомандуСервераSW("EXEC o_orderh " + Стр, "ЗагрузитьПродажи()", Шапка) Тогда
		Возврат
	КонецЕсли;

	Если Шапка.EOF Тогда
	
	КонецЕсли;
	
	Шапка.MoveFirst();
	Пока НЕ Шапка.EOF Цикл
		ТекДата = Шапка.Fields(3).Value;
	
		Шапка.MoveNext()
	КонецЦикла;
	
	
	

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