Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 17:00

1Cv8 + MySQL

Автор eyeless, 24 ноя 2009, 07:04

0 Пользователей и 1 гость просматривают эту тему.

eyeless

Как подключиться? Как осуществлять чтение/запись? И тому подобное...

eyeless

вопрос снимается!

1. нужно установить ODBC драйвер для MySQL с оф.сайта
2. добавить его в источники данных ODBC (Пуск-Панель управления-Администрирование-Источники данных ODBC)
3. и использовать следующий код:


//Создаем подключение
Соединение = новый  COMObject("ADODB.Connection");

ИмяДрайвера = "MySQL ODBC 5.1 Driver";
Наименование = "127.0.0.1";
БазаДанных = "test";
Логин = "root";
Пароль = "1";

СтрокаСоединения = "DRIVER=" + ИмяДрайвера + ";SERVER=" + Наименование + ";DataBase="+БазаДанных+";UID="+Логин+";PWD="+Пароль;

Сообщить(СтрокаСоединения);
Соединение.ConnectionString = (СтрокаСоединения);

//Далее открываем соединение
Попытка
Соединение.Open();
Сообщить("MySQL база подключена!!!");
Исключение
Сообщить("Не могу подключиться к базе!!!");
КонецПопытки;

// запрос на добавление записи в БД MySQL
Соединение.Execute("INSERT INTO test_table SET Test=""текст""");

Admin

Да. Немного дополню:

Процедура Подключения()
//Создаем само подключение
Соединение = СоздатьОбъект(»ADODB.Connection»);

СтрокаСоединения = «DRIVER=» + ИмяДрайвера + «;SERVER=» + Наименование + «;DataBase=»+БазаДанных+»;UID=»+Логин+»;PWD=»+Пароль;

// Надо проверить, что строка соединения верна, должно показаться что то вроде DRIVER=MySQL ODBC
// 5.1 Driver;SERVER=localhost;DataBase=base;UID=root;PWD=5555



//localhost – сервер БД MySQL, base – имя Вашей БД MySQL, root – ваше имя пользователя бахы , 5555 – пароль
Сообщить(СтрокаСоединения);
Соединение.ConnectionString = (СтрокаСоединения);

// Открываем соединение, обязательно с через Попытку

Попытка
Соединение.Open();
Сообщить(»MySQL база успешно подключена»);
Исключение
Сообщить(»Соединение с базой не произошло»);
КонецПопытки;



Теперь в MySQL можно выполнять запросы.

В основном для записи:

Пока НаборЗаписей.Eof()=0 Цикл
Соединение.Execute(»UPDATE price SET cena =Цена);
НаборЗаписей.MoveNext();
КонецЦикла;



Подпись

eyeless

именно так, спасибо за дополнение... :)

Admin

Это вам спасибо ) Сами спросили - сами ответили. Заходите почаще ))
Подпись

eyeless

постараюсь, но не обещаю :)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск