sql-server - Excel VBA および ADODB: VBA から SQL Server に挿入された行の自動 ID を取得します

Question

Excel の VBA モジュール。ADODB.Connection とこの接続文字列を使用します。

"Provider=SQLOLEDB;Data Source=MARS;Initial Catalog=automation;Trusted_connection=yes;"

したい：

1. INSERT INTO テスト (データ) VALUES ('何か')
2. 新しく挿入された行の自動増分 ID (test.data_id) を取得します。

Answer 1

Dim identity as integer
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.ConnectionString = "whatever..."
cn.Open
cn.Execute ("INSERT INTO test(data) VALUES ('hello world')")
rs.Open "SELECT @@identity AS NewID", cn
identity = rs.Fields("NewID") 
MsgBox (identity)