SQL INSERT時に自動採番された値を取得するメモ(ASP/ADO)

はじめに…

たまたまASP(.Netじゃない昔のASP、レガシーASPというべきでしょうか?)とADO(.Netじゃない昔のADO、レガシーADOというべきでしょうか?)でプログラムを作成する機会がありました。
その時SQLのINSERT構文を実行時IDENTITY属性がついているフィールド(よくIDって名前を付けることが多いフィールドですね)で自動採番された値を取得する必要があり、 なかなか技術本などにも記載が無かったのでメモとしてコードサンプルを残しておきたいと思います。

エラーリスト

Option Explicit

Dim oCn
Dim oRs
Dim lLatestId

Set oCn = Server.CreateObject("ADODB.Connection")
oCn.open ("DSN=xxx;UID=xxx;PWD=xxx;")

oCn.BeginTrans

oCn.Execute "INSERT INTO TESTDB(Field1) VALUES ('ABCDE')"

Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open "SELECT SCOPE_IDENTITY() AS 'LatestID'", oCn, 0, 1
lLatestId = oRs.Fields("LatestID")

oRs.Close
Set oRs = Nothing

oCn.CommitTrans

oCn.close
Set oCn = Nothing

Response.Write ("LatestID: " & lLatestId)