日期:2014-05-16 浏览次数:20806 次
...
Set rs = CreateObject("ADODB.RecordSet")
rs.Location = 3
rs.Open "SELECT * FROM tbl WHERE 1=0", conn, 1, 3
rs.AddNew
rs("xxx") = xxx
...
bk = rs.Bookmark
rs.Update
rs.Bookmark = bk
id = rs("id") '取新插入的ID
rs.Close
Set rs = Nothing
....