mysql - 如何使用 MySQl 的 ODBC 连接器在 MS Access 中的 VBA 中执行和查询？

Question

以下 VBA 代码将允许您在当前访问数据库中运行 sql 查询

我在通过 ODBC 连接器连接到 MySQL 数据库的 MS Access 文件中进行了尝试。但是，此代码不起作用，大概是因为它不是正常的访问数据库。

如何使用现有的 ODBC 连接查询数据库？

编辑：我总是收到“运行时错误 3024 找不到文件”

试试 1

Dim mydb As Database
Dim myrs As DAO.Recordset


Set mydb = CurrentDb

Set myrs = mydb.OpenRecordset("select from blah blah...")

---

试试 2

Dim dbMine As DAO.Database
Set dbMine = CurrentDb

Dim qr As String
qr = "select count(*) as `result` from floatinp_appdb2.clientes where cliente_email = 'tiagovalente@float-in.pt';"
'debug.print qr
dbMine.Execute qr, dbFailOnError

Answer 1

虽然错误是“运行时错误 3024 找不到文件”，但我的错误是在表前包含数据库名称

例如从 DB2.Table1 中选择 *

Answer 2

要求是： 链接表定义了一个 PK。

所以，这应该工作：

Set myrs = mydb.OpenRecordset("select from blah blah...",dbOpenDynaset, dbSeeChanges)

此外：任何真/假列（位字段）都应设置默认值 0。（不允许真/假列的空值）。

您可以也应该考虑添加 rowversion 列，但上面应该就足够了。