Excel VBA和ADODB：檢索從VBA插入SQL Server的行的自動標識

Question

在Excel的VBA模塊中。 使用一個ADODB.Connection與此連接字符串：

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

我想：

1. INSERT INTO測試（數據）VALUES（ '東西'）
2. 檢索自動遞增的身份（測試.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)