时间戳

首页 > 解决方案 > 如何使用 vb6.0 在 Ms Access 中获取最后一个插入 ID

ms-access - 如何使用 vb6.0 在 Ms Access 中获取最后一个插入 ID

问题描述

我正在使用 VB6.0 进行作业，我使用它的时间太长了。我正在尝试获取最后插入的 ID。我的查询给了我第一行 ID

我正在使用 OLEDB。我使用了一些代码，但它返回了第一行 ID。

Network
    rec.Open "staff_profile", con, adOpenDynamic, adLockOptimistic
    With rec
    .AddNew
      ![fields] = values
    .Save
      'rec.Update
  lastID = rec("ID")
  FileCopy frmRegister.cdl.FileName, fname & transcode & ".jpg"
    'return ID
    MsgBox "Record Saved Successfully " & lastID, vbInformation, "Trillium"

我希望结果给我最后插入的 id

标签： ms-accessvb6

解决方案

尝试：

With rec
    .AddNew
      ![fields] = values
    .Save
    .MoveLast
    lastID = !ID.Value
End With

推荐阅读