Донецк

Каталог статей

Главная » Статьи » Примеры

Использование Microsoft ActiveX Data Objects (ADO) в 1С 8

Очень часто возникают ситуации когда нужно получить данные в 1С из другой базы данных, например с FireBird, Oracle или MS SQL. Для этого можно воспользоваться компонентами ADO. Расписывать все преимущества и недостатки использования ADO я не буду, просто приведу маленький пример их использования.

Пример:

СтрокаПодключения = "DRIVER={SQL Server};SERVER=SRV1;UID=sa;PWD=123;DATABASE=TestDB;LANGUAGE=русский";

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

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

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

Попытка

Connection.Open(СокрЛП(СтрокаПодключения));

Command.ActiveConnection   = Connection;

Command.CommandText = "select field1, field2 from tTest";

RecordSet = Command.Execute();

Исключение

Сообщить(ОписаниеОшибки());

Возврат;

КонецПопытки;         

ТабРез = Новый  ТаблицаЗначений;

ТабРез.Колонки.Добавить("Поле1");

ТабРез.Колонки.Добавить("Поле2");

RecordSet.MoveFirst(); 

Пока не RecordSet.EOF Цикл

стр = ТабРез.Добавить();

стр. Поле1= RecordSet.Fields(0).Value;

стр. Поле2= RecordSet.Fields(1).Value;

            RecordSet.MoveNext();                

КонецЦикла;

                       

Категория: Примеры | Добавил: serg (26.10.2012)
Просмотров: 1755 | Рейтинг: 5.0/3
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Суббота, 18.05.2024, 12:44
Приветствую Вас Гость

Форма входа

Категории раздела

Примеры [5]
Конфигурации [2]

Поиск

...

_