0

我有这个代码：

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

字符串 last_id 未填充。怎么了？我需要找到 te last_insert_id 以便可以在其他查​​询中使用它。

4

2 回答 2

1 
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
于 2010-03-21T19:39:29.333 回答
1

您必须rs.movelast在打开记录集后添加，这应该会有所帮助

于 2010-03-21T19:27:08.473 回答