Код

Функция Соедениться_с_база(Зн_sql,Режим) Экспорт
// см ссылку http://www.connectionstrings.com/
		Имя0 = "...";
		Фл1 = Зн_sql.Соединение("DSN=" + Имя0 + ";UID=...;PWD=...;");
		Если Фл1 = 0 Тогда
			Сообщить("Не смогли открыть DSN для вечерней выписки = " + Имя0);
			Сообщить("ОШИБКА = " +  Зн_sql.ПолучитьОписаниеОшибки() );
			return 0;
		КонецЕсли;
		Если Режим = 1 Тогда
			Зн_sql.УстТолькоЧтение(1);
		КонецЕсли;
	return 1;
КонецФункции


Процедура Сформировать()
	sql = СоздатьОбъект("ODBCDatabase");
	rc = СоздатьОбъект("ODBCRecordSet");
	Если Соедениться_с_база(sql,ФлЧтение) = 0 Тогда
		Сообщить("не смогли свзаться с бд tetrad !!!");
		return;
	КонецЕсли;
	rc.УстБД(sql);
	Зн1 = 1 + 100*ФлЧтение;
	фл1 = rc.ВыполнитьСкалярный("insert into test_100 ( val100) values (" +  СокрЛП(Зн1) + " )");
    Сообщить("Фл1 = " + Фл1 + " Флаг только чтение = " + ФлЧтение);
	rc.Закрыть();
	sql.Закрыть();
КонецПроцедуры


Процедура Сформировать1()
	sql = СоздатьОбъект("ODBCDatabase");
	rc = СоздатьОбъект("ODBCRecordSet");
	Если Соедениться_с_база(sql,ФлЧтение) = 0 Тогда
		Сообщить("не смогли свзаться с бд tetrad !!!");
		return;
	КонецЕсли;
	rc.УстБД(sql);
	Если ФлЧтение = 0 Тогда
		Знач_1 = " < 100 ";
	Иначе
		Знач_1 = " > 100 ";
	КонецЕсли;
	Граница = 1 + 100*ФлЧтение;
	фл1 = rc.ВыполнитьСкалярный("Update  test_100 set val100 = val100 + 1 where val100 " + Знач_1);
    Сообщить("Фл1 = " + Фл1 + " Флаг только чтение = " + ФлЧтение);
	rc.Закрыть();
	sql.Закрыть();
КонецПроцедуры