VBA Comment trouver le dernier identifiant d'insertion?

Question

Je possède ce code:

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 

La last_id chaîne n'est pas rempli. Qu'est-ce qui ne va pas? Je dois trouver te last_insert_id pour pouvoir l'utiliser dans une autre requête.

Answer 1

vous devez ajouter rs.movelast après avoir ouvert le recordset, qui devrait aider

Answer 2

last_id = "select last_insert_id()" 

Vous avez défini l'instruction SQL à exécuter, mais ont ne l'a signé.
Appelez rs.Open avec l'instruction ci-dessus pour obtenir 'last_insert_id` à la place.

Si MySQL prend en charge plusieurs instructions SQL sur une seule ligne, vous pouvez faire

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