-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


VBA, ODBC, запрос к серверу, MySQL. Создать DB, таблицы

Среда, 03 Июня 2015 г. 11:26 + в цитатник
Добрый день.
Помогите пожалуйста разобраться, что я делаю не так.
Через VBA, ODBC посредством запросов к серверу пытаюсь создать объекты в MySQL на localhost. Пишу:

On Error Resume Next
    Set qry = Nothing
    DoCmd.DeleteObject acQuery, "Запрос"
    Set qry = CurrentDb.CreateQueryDef("Запрос")
    qry.Connect = "ODBC;DRIVER={MySQL ODBC 5.1 Driver};UID=root;PORT=3306;SERVER=localhost;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\z1.dsn;"
    qry.ReturnsRecords = True
    qry.SQL = "-----"
    DoCmd.OpenQuery "Запрос8"
    Set qry = Nothing
    DoCmd.DeleteObject acQuery, "Запрос"


При qry.SQL = "CREATE DATABASE `zz1`;" База данных создается
При qry.SQL = "DROP DATABASE `zz1`;" База данных удаляется
При qry.SQL = "DROP DATABASE IF EXISTS `zz1`;" запрос не выполняется
При qry.SQL = "DROP DATABASE `zz1`; CREATE DATABASE `zz1`;" запрос не выполняется.
При qry.SQL = "CREATE DATABASE `zz1`; USE `zz1`; CREATE TABLE `aaa` (`ddd` varchar(50));" запрос не выполняется
При созданной базе данных qry.SQL = "USE `zz1`; CREATE TABLE `aaa` (`ddd` varchar(50));" запрос не выполняется

Создается такое впечатление, что если SQL конструкция имеет больше одной команды, то запрос не выполняется. Где моя ошибка? Что я делаю неправильно?
Спасибо.

http://www.sql.ru/forum/1159771/vba-odbc-zapros-k-serveru-mysql-sozdat-db-tablicy


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку