VBA Как найти последний идентификатор вставки?

Question

VBA Как найти последний идентификатор вставки?

У меня есть этот код:

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, чтобы я мог использовать его в другом запросе.

0

mysql excel vba lastinsertid

Источник

user298578 21 мар '10 в 19:22

2 ответа

Другие вопросы по тегам mysql excel vba lastinsertid

user2048599 21 мар '10 в 19:27 2010-03-21 19:27 · Answer 1 · 2010-03-21 19:27

Ты должен добавить rs.movelast после открытия набора записей это должно помочь

1

Источник

user2048599 21 мар '10 в 19:27

user23574 21 мар '10 в 19:39 2010-03-21 19:39 · Answer 2 · 2010-03-21 19:39

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