由于密钥冲突 VBA SQL 访问，更新失败

Question

我需要这方面的帮助

我有一个 MS Access db 表单，它允许用户编辑有关项目的详细信息，当单击保存按钮时，输入的新值将保存到 db 表中
我正在使用 sql UPDATE 语法来执行此操作和我的代码类似于下面

Private Sub Save_Click()

ltemp = " UPDATE Table1 "
ltemp = ltemp & " SET ClientName  = 'ANN' "
ltemp = ltemp & " WHERE ProjectID = 2333 "
CurrentDb.Execute (ltemp)

End Sub 

使用这段代码，什么都没有发生。代码执行时不会出错，但表中的值不会改变。
我试了代码

DoCmd.RunSQL " UPDATE Table1 SET ClientName = 'ANN'  WHERE ProjectID = 2333"

我收到一条很长的错误消息，表明由于密钥违规而无法更新记录。问题是“ClientName”字段不是主键，尽管它（在关系中）链接到另一个表的主键。

这两个代码都可以更新其他字段，除了这个与另一个表的主键有关系的字段。

Answer 1

显然，您的“客户”表中没有具有“ANN”ID 的记录，因此无法将其设置为更新表中相应\外键字段的有效值。

currentDb.execute 指令不会返回任何错误消息（不像“DoCommand”），因为它不应该返回，只要语法正确（见下文）。您可以尝试使用 currentDb.RecordsAffected 检查您的指令是否更改了任何记录。检查可用于执行方法的参数以获取更多详细信息。

访问帮助：

“在 Microsoft Jet 工作区中，如果您提供语法正确的 SQL 语句并拥有适当的权限，则 Execute 方法不会失败 — 即使不能修改或删除任何一行 . 因此，在使用 Execute 方法运行更新或删除查询时，请始终使用 dbFailOnError 选项。如果任何受影响的记录被锁定且无法更新或已删除。”

Answer 2

您正试图违反在您的数据库上设置的参照完整性。

正如您所指出的，还有另一个表格，看起来像这样：

CREATE TABLE Client
(
    ClientName VARCHAR(100),
    ... other client fields here
);

在Table1.ClientName 和Client.ClientName 列之间有一个FOREIGN KEY 设置。

为了避免这种情况，要么：

• 将名称为 ANN 的客户端插入到另一个表中
• 如果您打算违反约束，请删除 Table1.ClientName 上的外键约束（但请注意，当客户端丢失时，连接可能会失败）
• 更改设计并开始使用代理键，例如ClientID，并在您的其他表中引用代理键（而不是像客户端名称这样的“自然”键）。这样，客户可以结婚、改名等，并且您的数据库不会损坏:)