Access SQL单语句下如何用@@identity实现多表关联记录插入？

嘿，我完全懂你遇到的痛点——Access SQL确实不支持在单个查询语句里同时执行插入操作和获取@@IDENTITY，这和SQL Server这类数据库的玩法不一样。不过别担心，有几种实用的方法能帮你实现「复制Table1记录→获取新ID→在Table2插入关联记录」的需求，下面给你详细拆解：

方法1：用VBA代码实现（推荐，稳定可靠） #

这是Access里最常用的方案，不管是单用户还是多用户环境都能安全运行。你可以用DAO（Access原生数据对象）或者ADO来实现，这里先给你DAO的示例：

Sub CopyTable1AndLinkToTable2()
    Dim db As DAO.Database
    Dim newTable1ID As Long
    Dim sourceID As Long
    
    ' 这里替换成你要复制的原Table1记录ID
    sourceID = 123
    
    Set db = CurrentDb()
    
    ' 第一步：复制Table1的目标记录到同表
    db.Execute "INSERT INTO Table1 (字段1, 字段2, 字段3) " & _
               "SELECT 字段1, 字段2, 字段3 FROM Table1 WHERE ID = " & sourceID
    
    ' 获取刚生成的自动编号ID
    newTable1ID = db.OpenRecordset("SELECT @@IDENTITY").Fields(0).Value
    
    ' 第二步：用新ID在Table2插入关联记录
    db.Execute "INSERT INTO Table2 (Table1ID, 关联字段1, 关联字段2) " & _
               "VALUES (" & newTable1ID & ", '关联值1', '关联值2')"
    
    ' 清理对象
    Set db = Nothing
    MsgBox "记录复制并关联完成！"
End Sub

进阶：用参数查询避免SQL注入 #

如果你的sourceID来自用户输入（比如表单控件），一定要用参数查询来防止SQL注入，安全性更高：

Sub CopyWithSafeParameters()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim newTable1ID As Long
    Dim sourceID As Long
    
    sourceID = Forms!你的表单名!控件ID.Value ' 从表单获取用户输入的ID
    
    Set db = CurrentDb()
    
    ' 复制Table1的参数化查询
    Set qdf = db.CreateQueryDef("", _
        "INSERT INTO Table1 (字段1, 字段2) SELECT 字段1, 字段2 FROM Table1 WHERE ID = [SourceID];")
    qdf.Parameters("SourceID").Value = sourceID
    qdf.Execute
    
    ' 获取新ID
    newTable1ID = db.OpenRecordset("SELECT @@IDENTITY").Fields(0).Value
    
    ' 插入Table2的参数化查询
    Set qdf = db.CreateQueryDef("", _
        "INSERT INTO Table2 (Table1ID, 关联字段) VALUES ([NewID], [关联值]);")
    qdf.Parameters("NewID").Value = newTable1ID
    qdf.Parameters("关联值").Value = "自定义内容"
    qdf.Execute
    
    Set qdf = Nothing
    Set db = Nothing
End Sub

方法2：纯查询方案（仅适合单用户/低并发场景） #

如果你不想写VBA，也可以用多个Access查询分步实现，但要注意这个方法在多用户同时操作时可能拿到错误的ID，因为它用Max(ID)来获取最新记录ID，不是绝对可靠：

1. 第一步：创建复制Table1的追加查询
   保存为qry_CopyTable1：

   INSERT INTO Table1 (字段1, 字段2)
   SELECT 字段1, 字段2 FROM Table1 WHERE ID = [请输入要复制的记录ID];
   

2. 第二步：创建获取新ID的查询
   保存为qry_GetNewTable1ID：

   SELECT Max(ID) AS NewTable1ID FROM Table1;
   

3. 第三步：创建插入Table2的关联查询
   保存为qry_InsertTable2：

   INSERT INTO Table2 (Table1ID, 关联字段)
   SELECT NewTable1ID, '关联内容' FROM qry_GetNewTable1ID;
   

使用时，依次运行这三个查询即可，但再次提醒：多用户环境下别用这个方法，容易出问题。

关键注意事项 #

• 确保Table1的ID字段是**自动编号（AutoNumber）**类型，@@IDENTITY才能正确返回刚插入的新ID。
• 如果用ADO代替DAO，代码逻辑类似，只是对象换成ADODB.Connection和ADODB.Recordset，适合连接非Access数据源的场景。

内容的提问来源于stack exchange，提问作者Rob