VBA如何find最后一个插入ID？

我有这个代码：

With shtControleblad Dim strsql_basis As String strsql_basis = "INSERT INTO is_calculatie (offerte_id) VALUES ('" & Sheets("controleblad").Range("D1").Value & "')" rs.Open strsql_basis, oConn, adOpenDynamic, adLockOptimistic Dim last_id As String last_id = "select last_insert_id()" End With 

stringlast_id没有被填充。 哪里不对？ 我需要find的last_insert_id，所以我可以在另一个查询中使用它。

Answer 1

你打开logging集后，必须添加rs.movelast ，这应该有所帮助

Answer 2

 last_id = "select last_insert_id()" 

你已经设置了sql语句来执行，但还没有执行它 。
用上面的语句调用rs.Open来代替'last_insert_id`。

如果mysql在单行支持多个sql语句，你可以这样做

 strsql_basis = "INSERT INTO is_calculatie (offerte_id) VALUES ('" & Sheets("controleblad").Range("D1").Value & "') ; select last_insert_id()" rs.Open strsql_basis, oConn, adOpenDynamic, adLockOptimistic