能否用set rs=conn.execute("insert into ...")返回记录集，如果不能...

[xdd1125]

conn是connection对象
如果不能，在不用rs.addnew的情况下，有什么更好的方法？

[yoki]

conn.execute "insert into yourtable ..."
set rs=conn.execute ("select * from yourtable")

[longki]

你要干嘛?"Insert Into"语句不是可以增加一条记录吗?

[guolei0813]

我建议你还是把你的程序改一改，使它能对你表中的id进行控制。
插入后是不会返回结果集的。
以下代码可供参考，很好用的。
Public Function GetNewId() As Integer
sqlstmt = "SELECT ID FROM Table ORDER BY Id"
Set Rs2 = Con.Execute(sqlstmt)
With Rs2
If .EOF Or .BOF Then
GetNewId = 1
Exit Function
Else
.MoveFirst
i = 1
End If
While Not .EOF
If !ID = i Then
i = i + 1
.MoveNext
Else
GetNewId = i
Rs2.Close
Exit Function
End If
Wend
Rs2.Close
End With
GetNewId = i
End Function

[xdd1125]

我是想返回刚插入的AUTO ID号，这样很方便。不然的话，我得这样：
rs.open "select * from mytable where id<0" '返回一空记录集

rs.addnew
...
rs.update
得到rs("id")，这样很麻烦

[guolei0813]

可能不行，只会显示出所以记录。

[佛的光辉]

Insert Into是不会返回记录集的

[xdd1125]

是否还有其它好点的办法？

[yoki]

如果是sql数据库，可以这样:

Dim rs As New ADODB.Recordset
rs.Open "INSERT INTO jobs(a,b,c) VALUES ('Accountant',12,125)", cnDatabase
rs.Open " SELECT @@IDENTITY AS 'Identity'", cnDatabase
Debug.Print rs!Identity