Уведомления
Очистить все
Конфигурирование, программирование, администрирование, общие вопросы.
1
Записи
1
Пользователи
0
Likes
277
Просмотры
Создатель темы 12/02/2020 6:26 пп
Базой может быть любая БД, как 1С так и не 1С; можно обращаться к текущей БД, за исключением тех случаев, когда БД уже открыта в SingleUserMode - монопольный режим 1С.
переменные:
скульЛогин - имя пользователя MS-SQL
скульПасс - пароль
скульСерверБД - имя сервера MS-SQL
скульИмяБД - имя БД
скульЗапрос- SQL запрос
тб - таблица значений, куда будет помещен результат запроса.
SQLDMOServer=СоздатьОбъект("SQLDMO.SQLServer");
SQLDMOServer.Connect(скульСерверБД,скульЛогин,скульПасс);
//
Rs=SQLDMOServer.Databases(скульИмяБД).ExecuteWithResults(скульЗапрос);
тб.Очистить();
рЗстрок=Число(Rs.Rows);
рЗколонок=Число(Rs.Columns);
Состояние(">>> "+РзСтрок+"строк X "+Rs.Columns+" колонок");
Для сч=1 по рзКолонок цикл
тб.НоваяКолонка(,,,,""+Rs.ColumnName(сч),7,);
конецЦикла;
Для счС=1 по рЗстрок цикл
тб.НоваяСтрока();
Для счК=1 по рЗколонок цикл
стр=Rs.GetColumnString(СчС ,СчК);
тб.УстановитьЗначение(счС,счК,стр);
конецЦикла;
конецЦикла; // по строкам