7,712
社区成员
发帖
与我相关
我的任务
分享
Public Sub t()
Dim conn As ADODB.Connection
Set conn = CurrentProject.Connection
Dim sSQL As String
sSQL = "create table a (id counter primary key,col1 int)"
conn.Execute sSQL
Dim rs As New ADODB.Recordset
sSQL = "insert into a(col1) values(11)"
conn.Execute sSQL
sSQL = "select @@identity"
rs.Open sSQL, conn
Debug.Print rs.Fields(0).Value
rs.Close
sSQL = "insert into a(col1) values(11)"
conn.Execute sSQL
sSQL = "select @@identity"
rs.Open sSQL, conn
Debug.Print rs.Fields(0).Value
rs.Close
Set rs = Nothing
End Sub