如何得到新增记录的自动编号字段值

最新推荐文章于 2020-12-22 08:04:11 发布

slowgrace

最新推荐文章于 2020-12-22 08:04:11 发布

阅读量619

点赞数

分类专栏：数据库文章标签： null

本文链接：https://blog.csdn.net/slowgrace/article/details/3528119

版权

数据库专栏收录该内容

27 篇文章 0 订阅

订阅专栏

很简单，先取id后update。不过，要注意的是，这时cursor的位置要设为adUseServer。因为，如果设为adUseClient，那AddNew之后得到的ID值是NULL。

 
     Set rstNewDetail = New ADODB.Recordset
    With rstNewDetail
         .ActiveConnection = CurrentProject.Connection
        .Source = strDetailTable
        .CursorLocation = adUseServer
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open Options:=adCmdTableDirect
    End With
    With rstNewDetail
        .AddNew
        lId = .Fields("lngId")
        .Update
    End With
 