一个简单的DAO问题

[runrunrun]

在一个数据库中添加记录，代码如下：

dim rs as recordset
rs.addnew
rs("ID") = 1;
rs.update

添加完后，如何把当前记录设为刚添加的记录?

[haor]

rs.movelast

[runrunrun]

不一定。
rs是排序的，如果插入项正好在中间时就不行了。

[lczddd]

当前记录就是刚添加的记录吧

[sbm]

如果你没有进行刷新，那RS.MOVELAST所定位的记录就是你刚添加的记录，
如果你进行了刷新操作，那你只能根据ID来查找那条记录。

[runrunrun]

刷新是什么意思？ rs.update 算不算刷新。
大家想想办法。 我就是不想用ID。
因为ID值是自动增加的， 所以在添加时不知道它的值。
而其它的字段又不唯一。

[frs]

你不要设定id如果你在纪录集尾部加入新纪录，则当前纪录就是刚添加的纪录！

[flyinthesky]

实在不行的话用select语句定位总可以实现吧，不过好像不是什么好办法！
select * from database where id=1 and ..............
嘻嘻，我真的想不出什么再好点的办法来了，大家有什么好办法没有？

[flyinthesky]

如果id是自动增加的那你可以找max(id)呀！这样就可以实现定位了！

[lvjunyu]

专业的编程方法就该使用书签(bookmark)就是Rs.bookmark来定位，具体的看MSDN!
当然flyinthesky的方法也是可取的！

[runrunrun]

谢谢大家的答复。
to lvjunyu:
我也想用书签。但在 rs.addnew 后取 rs.bookmark 会报一个异常。

[caoyu]

利用BookMark是最好的办法，你必须在rs.update后取BookMark.
.Bookmark = .LastModified

[y1g1y1]

你addnew update之后,此时的当前记录就是刚才添加的那条啊!

[wsdrex]

啊呀呀，"y1g1y1(袁飞)"说的对：update之后,此时的当前记录就是刚才添加的那条啊! ！！！

[runrunrun]

谢谢大家的答复。
我来总结一下：
1. rs.update之后,当前记录并不是新添加的那条。我试了一下，有两种情况：一是rs为一无效记录。二是rs 为 addnew之前的那条记录。各位不信的话可以自己试一试。
2. caoyu提供的方法是可行的，即 .Bookmark = .LastModified。 在此表示感谢。
3. 用 select * from ...where id=... 虽然可以使当前记录是新记录，但由于改变了查询语句，所以并不是我想要的结果。

如果大家没有异议的话我就加分了。

[zhengsb]

用 rs.requery 试试

[zhengsb]

...
rs.update
rs.requery
...

[DeD]

Dim vBookBark As Variant
rs.Filter = "ID"
If Not rs.EOF Then
vBookBark = rs.Bookmark
rs.Filter = ""
rs.Bookmark = vBookBark
Else
rs.Filter = ""
End If