» Внешние компоненты » Каталог файлов

Файлы больше не поддерживаются!

Разместил: E_Migachev	Категория: Внешние компонен�…
Размер файла: 857.01 KB	Версия / Тип файла: Внешняя компанента
Дата: 16.09.2010	Скачали: 193
E-Mail автора:	Домашняя страница: serguey.hotbox.ru

v7mysql.dll - Компонента для подключения к mysql - серверам для 1С 7.7 и 8.х, не требует наличия никаких дополнительных библиотек кроме стандартных для Windows, работает со всеми серверами до версии 6.0
Для работы НЕ нужна библиотека libmysql.dll

Mysql is copyright by MySQL AB. Refer to their site ( http://www.mysql.com ) for licencing issues.
Zlib is copyright by Jean-loup Gailly and Mark Adler. Refer to their site for licencing issues. ( http://www.info-zip.org/pub/infozip/zlib/ )
Основано на библиотеке Cristian Nicola (n_cristian@hotmail.com)
Предложения и пожелания приветствуются на serguey@hotbox.ru

Версия 2.1.4:
Исправлено: методы СоздатьБазуДанных и УдалитьБазуДанных выдают ошибку на версиях серверов более 5.0.83 (команды устарели). (замечено Дмитрий Генрихс ака Близнец)
Для серверов версий выше методы СоздатьБазуДанных и УдалитьБазуДанных выполняют запросы create database `db` и D_rop database `db`.

Версия 2.1.3:
Поддержка 1С 8.0 и 8.1
Новый метод Клонировать - создание копии клиента (пример в обработке)
Восстановлено обращение к полям наприяму - Клиент._ИмяПоля
Работа проверена на серверах 4.1.22, 5.0.83, 5.1.37 в 1С 7.7.0.27 и 1С 8.1.14.72 в Windows XP SP2, Windows Vista и Windows 7.
Обновлен клиент - 4.1.1
Включена демобаза для 1С 8.1
Включены исходники.

Код 1C v 7.x

 // вот пример соединения с сервером при использовании этой библиотеки.

  Клиент.Сервер = "localhost";

  Клиент.Пользователь = "root";

  Клиент.Пароль = "";

  Клиент.Порт = "";

  Клиент.БазаДанных = "base";

  Если Клиент.УстановитьСоединение() = 1 Тогда



//   или вот так выглядит запрос.

ПараметрыДокументы = СоздатьОбъект("СписокЗначений");

ПараметрыДокументы.ДобавитьЗначение(80,"id");

 ЗапросДокументы ="S_elect raw_doc . * , contragents . * , raw_move . * , raw_nom . * 

|FROM raw_doc, contragents, raw_move, raw_nom

|WHERE raw_doc.frm = contragents.id

|AND raw_doc.id_doc = raw_move.id_doc

|AND raw_move.id_raw = raw_nom.id_raw

|AND id_doc='$id' 

|ORDER BY raw_doc.id_doc

|";

Если Клиент.Подключен() = 1 Тогда

    Если Клиент.ВыполнитьЗапрос(ЗапросДокументы,ПараметрыДокументы) = 1 Тогда

        Клиент.ПолучитьВсе().выбратьСтроку();

    Иначе

        Ошибки = Клиент.ПоследняяОшибка() + ?(ПустаяСтрока(Ошибки) = 0,РазделительСтрок,"") + Ошибки;

    КонецЕсли;

Иначе

    Предупреждение("Нет подключения!",60);

КонецЕсли;