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
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-