使用currentproject.connection获取插入ID

Question

我想获取最后一个插入查询的插入ID

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Set cn = CurrentProject.Connection

cn.Execute "Insert into Locations(locationName) Values('" & Me.location.Value & "')"

rs.Open "SELECT @@identity AS locationID FROM locations", cn

Debug.Print rs.Fields("locationID")

但是，它始终返回0。有没有办法使用ADO连接获取insertID？

编辑1：

借助下面的回复和进一步的研究，我发现了灵魂

我忘记提及我的后端数据库是mysql数据库，而不是MSSQL或Access。我还更改了代码以现在使用名为g_cn的全局连接。我认为currentproject.connection不适用于后端mysql数据库以获取insertID，因为它使用DAO连接。

我通过执行以下操作设置了全局连接：

g_cn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};Server=" & gc_DevServerName & ";Database=" & gc_DevDBName & ";Uid=" & gc_DevUser & ";Pwd=" & gc_DevPassword & ";Option=3;"

我现在可以使用ADO。所以我的代码更改为：

Dim rs As New ADODB.Recordset
rs.Open "Insert into Locations(locationName) Values('" & Me.location.Value & "')", g_cn
rs.Open "Select LAST_INSERT_ID() as last from locations;", g_cn
Debug.Print rs.Fields("last")
rs.Close

Answer 1

SELECT @@identity是Access中的特殊查询。您不能将其与FROM子句一起使用。删除它，查询将起作用：