在MS-access中升级

Question

我需要为MS-Access 2000编写一个SQL查询，以便在存在行的情况下进行更新，但在不存在的情况下进行插入。（我相信这被称为“ upsert”）

IE

如果行存在…

UPDATE Table1 SET (...) WHERE Column1='SomeValue'

如果不存在…

INSERT INTO Table1 VALUES (...)

可以在一个查询中完成吗？

Answer 1

通常，我通常先运行insert语句，然后检查是否发生错误3022，这表明该行已存在。所以像这样：

On Error Resume Next
CurrentDb.Execute "INSERT INTO Table1 (Fields) VALUES (Data)", dbFailOnError
If Err.Number = 3022 Then
    Err.Clear        
    CurrentDb.Execute "UPDATE Table1 SET (Fields = Values) WHERE Column1 = 'SomeValue'", dbFailOnError
ElseIf Err.Number <> 0 Then
    'Handle the error here
    Err.Clear
End If

Edit1：
我想提一下，我在这里发布的内容是一个非常常见的解决方案，但是您应该意识到，对错误进行计划并将其用作程序正常流程的一部分通常被认为是一个坏主意，尤其是当存在获得相同结果的其他方式。感谢RolandTumble指出这一点。