mysql - VBA最後の挿入IDを見つける方法は?

Question

私はこのコードを持っています:

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 が入力されていません。なにが問題ですか？他のクエリで使用できるように、last_insert_id を見つける必要があります。

Answer 1

last_id = "select last_insert_id()"

SQL ステートメントを実行するように設定しましたが、まだ実行していません。代わりに 'last_insert_id` を取得するには、上記のステートメントで
呼び出します。rs.Open

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

Answer 2

rs.movelastレコードセットを開いた後に追加する必要があります。