WMI Fun !! 〜 WMI に興味がある方・システム管理者は必見です! 〜
 WMI Step|WMI Sample|WMI Reference|WMI Library|Enquete|About WMI Fun !!
 My Let'snote|Personal|Insomnia|Link

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

このエントリーをはてなブックマークに追加
話題のプリウス、ディーラーオプションもネットで気軽に購入
家族でのんびり北海道旅行はいかがですか?広い台地でのんびり〜
毎日の仕事のお供におすすめミネラルウォータークリスタルカイザー

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)



ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています
WMI に関して調べているけど探し物が見つからない…という方は右上の検索窓検索してみましょう!

MCP (Microsoft Certified Professional)、 MCA (Microsoft Certified Associate)CompTIA A+
一応 MCP (Microsoft Certified Professional)、MCA (Microsoft Certified Associate)、
CompTIA A+ を所有してたりします…

- WMI Fun !! -
http://www.wmifun.net/
Microsoft 社のテクノロジーである WMI (Windows Management Instrumentation) の使い方を
Visual Basic を使ってのんびり公開しています
WMI は Windows 7 や Windows 8、Windows 10 で便利に使えますよ!
また VB や VBA、.Net (VB・C#) などの開発環境以外でも Win32/Win64 API に依存しないので WMIC や
WSH (VBS・JS)・PowerShell などスクリプト言語・コマンドラインから有効に活用が出来ます
Windows ベースの社内 IT システムに関する資産管理、アセットマネジメントや監視業務の効率化、
インベントリ情報収集系システムツール開発に WMI はお勧めです

This website is created by Toh.
Copyright(C) 1997-2016 WMI Fun !! All rights reserved.
WMI Fun !! へのリンクはご自由に…相互リンクに関するお問い合わせはアンケートページからお願いします

∧ ページの先頭へ…