Внешняя компонента для безопасной работы с базами данных по интерфейсу ADO

13.12.07

Разработка - Разработка внешних компонент

Внешняя компонента для работы с базами данных по интерфейсу ADO. Приводит типы данных, умеет работать со ссылочными типами 1С:Предприятие.

Скачать файлы

Наименование Файл Версия Размер
-
.1197542242 106,55Kb
1486
.1197542242 106,55Kb 1486 Скачать бесплатно

Чем лучше AdoDB.Connection?


1) Умеет работать с различными типами данных, которые можно привести к строке, числу или дате.
2) Не теряет точность для вещественных чисел
3) Умеет читать дату и время из поля соответствующего типа.
4) Содержит удобный интерфейс для обновления записей (Insert или Update в зависимости от наличия записи с указанными ключивыми полями).
5) Поддерживает параметризацию (невозможно хакнуть программу подменой закавыченных значений).
6) Умеет работать со ссылочными типами 1С:Предприятие (справочники, документы), упаковывая их в 16-символьное представление

Чтение записей

Отличие от традиционного ADODB.Connection - умеет читать самые разные типы данных.

//*******************************************
Процедура Сформировать()
    //Открываем соединение
    ado.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="+ф_ИмяMDB+";Uid=Admin;Pwd=;");
    
    таб=СоздатьОбъект("Таблица");
    таб.ИсходнаяТаблица("Таблица");
    таб.ВывестиСекцию("Шапка");
    таб.Опции(0);
    
    
     Запрос="SELECT * FROM ТестоваяТаблица;";
    ado.Execute(Запрос);
    
    Пока ado.EOF=0 Цикл //Цикл по записям 
        таб.ВывестиСекцию("Строка|Начало");
        зн=ado.GetField("id"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("text1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("memo1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("Байт1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("Целое1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("ДлинноеЦелое1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("Single1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("Double1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("КодРепликации1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("ДатаВремя1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetFieldAsDateTime("ДатаВремя1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("Денежный1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("Логический1"); таб.ПрисоединитьСекцию("Строка|Данные");
        зн=ado.GetField("Действительное1"); таб.ПрисоединитьСекцию("Строка|Данные");
        ado.MoveNext(); //Переходим к след. записи 
    КонецЦикла;

  ado.Close(); //Закрываем соединение
  таб.Показать("Запрос");
КонецПроцедуры



Добавление записей


В этом примере я использую параметризацию: Prepare и Bind. Это позволяет исключить атаки злоумышленников, или сбои в работе, если я по какой-то причине не проставлю кавычки для экранирования текстовых полей. Полноценная параметризация не реализована.

//____________________________________________________________________________________________________
Процедура ф_Добавить()
  //  //Открываем соединение
  ado.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="+ф_ИмяMDB+";Uid=Admin;Pwd=;");
  
  //Подготовка запроса
  Запрос="INSERT INTO ТестоваяТаблица (text1,memo1,Байт1,Целое1,ДлинноеЦелое1, Single1, Double1,КодРепликации1,ДатаВремя1,Денежный1,Логический1,Действительное1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)";
  ado.PrepareQuery(Запрос);
  ado.Bind("это text");
  ado.Bind("это memo");
  ado.Bind(257);
  ado.Bind(32767);
  ado.Bind(9999999);
  ado.Bind(12.34);
  ado.Bind(56.78);
  ado.Bind("{AB634001-F13D-11D0-A459-004095E1DAEA}");
  ado.Bind('26.01.2007');
  ado.Bind(33.33);
  ado.Bind(1);
  ado.Bind(111);
  ado.Execute();
  ado.Close(); //Закрываем соединение
    
КонецПроцедуры



Обновление записей

Данный пример смотрит, есть ли запись с указанным ID. Если ее нет, то добавляет (Insert) ее, затем делает Update.

//____________________________________________________________________________________________________
Процедура ф_Обновить()
  //  //Открываем соединение
  ado.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="+ф_ИмяMDB+";Uid=Admin;Pwd=;");
     Запрос="SELECT id FROM ТестоваяТаблица WHERE id=?;";
     ado.PrepareQuery(Запрос);
    ado.Bind(1);
    ado.Execute();
    Если ado.EOF=1 Тогда
        Запрос="INSERT INTO ТестоваяТаблица (id) VALUES (?)"; 
        ado.PrepareQuery(Запрос);
        ado.Bind(1);
        ado.Execute();
    КонецЕсли;    
    
      Запрос="UPDATE ТестоваяТаблица SET "+
      "text1=?,memo1=?,Байт1=?,Целое1=?,ДлинноеЦелое1=?, Single1=?, Double1=?,КодРепликации1=?,ДатаВремя1=?,Денежный1=?,Логический1=?,Действительное1=?"+
      " WHERE id=?";
      
      ado.PrepareQuery(Запрос);
      
      ado.Bind("это text");
      ado.Bind("это memo");
      ado.Bind(257);
      ado.Bind(32767);
      ado.Bind(9999999);
      ado.Bind(12.34);
      ado.Bind(56.78);
      ado.Bind("{AB634001-F13D-11D0-A459-004095E1DAEA}");
      ado.Bind('26.01.2007');
      ado.Bind(33.33);
      ado.Bind(1);
      ado.Bind(111);
      ado.Bind(1);
    
      ado.Execute();
          
  ado.Close(); //Закрываем соединение
    
КонецПроцедуры



Удобное обновление записей

Этот пример делает то же самое, что и предыдущий, но записан в более удобном для восприятия виде.
//____________________________________________________________________________________________________
Процедура ф_Обновить1()
  //  //Открываем соединение
  ado.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="+ф_ИмяMDB+";Uid=Admin;Pwd=;");
  ado.OpenRec("ТестоваяТаблица");
  ado.KeyField("id", 1); //Ключевое поле
  ado.DataField("text1", "это текст");
  ado.DataField("memo1", "это memo");
  ado.DataField("Байт1", 255);
  ado.DataField("Целое1", 32767);
  ado.DataField("ДлинноеЦелое1", 88889999);
  ado.DataField("Single1", 12.34);
  ado.DataField("Double1", 56.78);
  ado.DataField("КодРепликации1", "{AB634001-F13D-11D0-A459-004095E1DAEA}");
  ado.DataField("ДатаВремя1", '26.01.1976');
  ado.DataField("Денежный1", 100.55);
  ado.DataField("Логический1", 1);
  ado.DataField("Действительное1", 1234);
  ado.SaveRec();
  ado.Close(); //Закрываем соединение
    
КонецПроцедуры



Работа со ссылочными типами

Приведенный ниже пример обновляет таблицу, которая содержит код, наименование и ссылку на элемент товаров. Метод GetFieldAsObject("Товар") извлекает товар из таблицы как ссылку на объект 1С:Предприятие!

//____________________________________________________________________________________________________
Процедура ф_Реквизиты()
  //Открываем соединение
  ado.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="+ф_ИмяMDB+";Uid=Admin;Pwd=;");
  спр=СоздатьОбъект("Справочник.Товары");
  спр.ВыбратьЭлементы();
  Пока спр.ПолучитьЭлемент() = 1 Цикл
     Запрос="SELECT Код FROM Товары WHERE Код=?;";
     ado.PrepareQuery(Запрос);
    ado.Bind(0+спр.Код);
    ado.Execute();
    Если ado.EOF=1 Тогда
        Запрос="INSERT INTO Товары (Код) VALUES (?)"; 
        ado.PrepareQuery(Запрос);
        ado.Bind(0+спр.Код);
        ado.Execute();
    КонецЕсли;    
    
      Запрос="UPDATE Товары SET "+
      "Товар=?,Наименование=?"+
      " WHERE Код=?";
      
      ado.PrepareQuery(Запрос);
      
      ado.Bind(спр.ТекущийЭлемент());
      ado.Bind(спр.Наименование);
      ado.Bind(0+спр.Код);
    
      ado.Execute();
  КонецЦикла;

//Читаем элементы
     Запрос="SELECT * FROM Товары";
    ado.Execute(Запрос);
    
    Пока ado.EOF=0 Цикл //Цикл по записям 
        зн=ado.GetField("Код"); Сообщить("Код="+зн+" ");
        зн=ado.GetField("Наименование"); Сообщить("Наименование="+зн+" ");
        зн=ado.GetFieldAsObject("Товар"); Сообщить("Товар="+зн+" ");
        ado.MoveNext(); //Переходим к след. записи 
    КонецЦикла;
  ado.Close(); //Закрываем соединение
КонецПроцедуры



То же самое, с использованием OpenRec-SaveRec.

//____________________________________________________________________________________________________
Процедура ф_Реквизиты1()
  //Открываем соединение
  ado.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="+ф_ИмяMDB+";Uid=Admin;Pwd=;");
  
  //Пишем товары в таблицу
  спр=СоздатьОбъект("Справочник.Товары");
  спр.ВыбратьЭлементы();
  Пока спр.ПолучитьЭлемент() = 1 Цикл
      
      ado.OpenRec("Товары");
      ado.KeyField("Код", 0+спр.Код); //Ключевое поле
      ado.DataField("Наименование", спр.Наименование);
      ado.DataField("Товар", спр.ТекущийЭлемент());
      ado.SaveRec();
      
  КонецЦикла;

//Читаем элементы
     Запрос="SELECT * FROM Товары";
    ado.Execute(Запрос);
    
    Пока ado.EOF=0 Цикл //Цикл по записям 
        зн=ado.GetField("Код"); Сообщить("Код="+зн+" ");
        зн=ado.GetField("Наименование"); Сообщить("Наименование="+зн+" ");
        зн=ado.GetFieldAsObject("Товар"); Сообщить("Товар="+зн+" ");
        ado.MoveNext(); //Переходим к след. записи 
    КонецЦикла;
  ado.Close(); //Закрываем соединение
КонецПроцедуры


Получение имен полей по их номеру (13.02.2007)
     Запрос="SELECT * FROM ТестоваяТаблица;";
    ado.Execute(Запрос);
    
    Для й= 0 По ado.КоличествоПолей-1 Цикл
        Сообщить("Имя поля: "+ado.ИмяПоля(й));
    КонецЦикла;

См. также

Медиадисплей. Рекламный информационный монитор для покупателя.

Разработка внешних компонент POS терминал Рабочее место Розничная торговля Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Рестораны, кафе и фаст-фуд Реклама, PR и маркетинг Управленческий учет Платные (руб)

Монитор покупателя может отображать текущую покупку на кассовом месте, показывать видеорекламу, баннеры, во время простоя разворачивать рекламу на весь экран. Можно использовать в качестве графического меню-борда в кафе и видеовывески. Управление выводом на телевизор через hdmi-приставку на базе Windows или Android. В качестве устройства отображения можно использовать Android-планшеты, фоторамки с Android, монитор любого Windows-компьютера, доступного по сети. Настраивается ЛЮБОЙ ДИЗАЙН экрана!

16800 руб.

30.05.2017    52099    34    69    

43

Внешняя компонента для сканирования (замена TWAIN-компоненты БСП) (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет работать c TWAIN-совместимым оборудованием (сканерами, камерами) . Полностью совместима со стандартной TWAIN-компонентой из БСП и может применяться как ее замена без изменения вызовов, при этом может работать с 64-разрядной платформой, а так же имеет расширенную функциональность, например, сохранение результата непосредственно в PDF без использования сторонних утилит. Прекрасно работает на сервере, тонком клиенте и веб-клиенте (проверена работа в браузерах Google Chrome, Mozilla Firefox и Microsoft Internet Explorer).

2400 руб.

12.05.2020    26243    131    99    

83

Внешняя компонента для подключения 1С к телефонии Asterisk

Разработка внешних компонент Телефония, SIP Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)

2400 руб.

04.05.2018    44974    117    64    

60

Внешняя компонента печати PDF (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет печатать PDF файлы непосредственно из 1С, не используя при этом сторонних программ. Прекрасно работает на сервере, тонком клиенте и веб-клиенте. Основана на проекте PDFium из состава проекта Chromium/Chrome

1500 руб.

17.09.2018    35076    104    123    

111

Мастер создания внешних компонент 1С (технология COM) для DELPHI 6/7/8/2005/2006/2007/2008/2010/XE/XE2/XE3

Разработка внешних компонент Платформа 1С v8.3 Платные (руб)

Средство для сверхбыстрой разработки внешних компонент 1С:Предприятия 7.7 и 8 по технологии COM на всех версиях DELPHI, начиная с 6.

2000 руб.

28.03.2013    53998    35    14    

68

QR-код с логотипом компании (обычная и управляемая форма)

Разработка внешних компонент Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Как известно, стремление сделать свою рекламную продукцию запоминающейся и выделяющейся — верный путь к успеху. Сегодня, мы поговорим с вами о том, что можно сделать с обычным черно-белым QR-кодом, чтобы он стал более живым и привлекательным. Если вам не терпится попробовать сделать QR-код с логотипом компании, то эта обработка для вас!

2400 руб.

22.06.2016    30839    4    4    

8

Внешняя компонента 1С и С++. Продолжаем разговор.

Разработка внешних компонент Платформа 1С v8.3 Бесплатно (free)

А давайте запилим 8.3.26 до релиза, или оповещение с сервера...

19.02.2024    4037    starik-2005    28    

52

Внешние компоненты 1С и язык C++

Разработка внешних компонент Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Некоторые практические аспекты создания внешних компонент на языке С++ для платформы 1С 8.3++.

26.01.2024    4778    starik-2005    32    

39
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. German 413 13.12.07 16:43 Сейчас в теме
А если в двух словах чем лучше GameWithFire ?
2. German 413 13.12.07 16:47 Сейчас в теме
3. logarifm 1117 17.12.07 12:10 Сейчас в теме
Но а что мешает сделать для 8.х приммер кода логики есть...
4. OnCheck 11.07.08 09:15 Сейчас в теме
А можно получить время из поля типа время/дата?
5. kanalex 27 26.09.12 13:04 Сейчас в теме
а кому-нить удалось использовать эту dll на 8-ке?
Расскажите как.
Оставьте свое сообщение