ADO, VB中如何取得刚插入记录的自动填充的值?

Question

取得序列的当前值：
select seq_name.currval from dual;

Answer 1

sequence唯一的缺点是有跳号问题，干脆写个程序，每次检索Max(ID)，然后加1作为下一个号码。
对于并发用户，可以先所的锁定表，比如update、insert后，再解锁，然后允许其他用户操作

Answer 2

ADODB.Connection.BeginTrans
ADODB.Command.addnew
..... 
.... 'select seq_name.currval from dual'
ADODB.Command.update
ADODB.Connection.CommitTrans