Шифрование AES_ENCRYPT VBA

[n1ggle]

Добрый день уважаемые форумчане!

Суть проблемы:
Хочу добавить зашифрованное слово в таблицу используя AES_ENCRYPT.

Код на Кнопке:

DoCmd.RunSQL "INSERT INTO cats (cat_name) VALUES (AES_ENCRYPT('Obama', 'usa2010'))"

Возникает ошибка:

Run-time error '3085'
Неопределенная функция 'AES_ENCRYPT' в выражении.

Подозреваю, что необходимо подключить какой-то reference?
Или камень в чём-то другом?

Заранее благодарю всех за помощь.

[p51x]

А у вашей базы есть эта функция?

[n1ggle]

Да.
БД - MySQL.
подключаюсь через ODBC драйвер.
Почему так - рабочие нюансы. подругому нельзя.

Если делать данный запрос на сервере, - всё проходит успешно. запись добавляется.

[AndVGri]

Доброе время суток

БД - MySQL.
подключаюсь через ODBC драйвер.

и что?

DoCmd.RunSQL "INSERT INTO cats (cat_name) VALUES (AES_ENCRYPT('Obama', 'usa2010'))"

а это работает с текущей базой Access только и только с её "движком", даже если учитывать, что в этой базе вы имеете прилинкованную таблицу MySQL.
Так что, если хотите работать с MySQL в VBA, то тогда осваивайте ADODB.Connection, ADODB.Command, ADODB.Recordset, вот там
Connection.Execute "INSERT INTO cats (cat_name) VALUES (AES_ENCRYPT('Obama', 'usa2010'))"
отработает как вам надо.