访问SQL以创建一对多关系而无需强制引用完整性

小编典典

访问SQL以创建一对多关系而无需强制引用完整性

sql

我有这种关系。而且我不得不临时销毁它，只是为了使用SQL命令更改“ salID”字段的大小：

ALTER TABLE Adressen DROP CONSTRAINT [ChildTableMainTable]

我需要恢复原来的关系

如何使用SQL命令重新创建相同的关系类型？如果我使用下一个SQL，则会得到一对多的关系。这不是我所需要的：

ALTER TABLE MainTable ADD CONSTRAINT [ChildTableMainTable] FOREIGN KEY (salID) REFERENCES [ChildTable] (ChildPK);

我不需要强制参照完整性

阅读 210

2021-04-19

共1个答案

小编典典

据我所知，Access DDL仅在不具有“强制引用完整性”的情况下不支持Access“关系”的创建。CREATE CONSTRAINT将使用
“强制引用完整性”创建一个关系，因为这就是这样的关系：引用完整性约束。

（ON UPDATE和ON DELETE子句CREATE CONSTRAINT控制“编辑关系”对话框中“级联更新相关字段”和“级联删除相关记录”复选框的值，但它们不控制“强制引用完整性”复选框本身的值。）

换句话说，没有“强制执行参照完整性”的关系根本不是约束。通过指定的字段将表关联起来只是一个“提示”，例如，如果将表添加到查询设计中，则查询生成器可以自动将表连接起来。

要创建没有“强制引用完整性”的关系，您需要使用Access DAO。对于这样的关系

VBA中所需的代码将是

Option Compare Database
Option Explicit

Public Sub CreateRelationship(relationshipName As String, _
        parentTableName As String, childTableName As String, _
        parentTablePkName As String, childTableFkName As String)
    Dim cdb As DAO.Database
    Set cdb = CurrentDb
    Dim rel As DAO.Relation
    Set rel = cdb.CreateRelation(relationshipName, parentTableName, _
            childTableName, dbRelationDontEnforce)
    rel.Fields.Append rel.CreateField(parentTablePkName)  ' parent PK
    rel.Fields(parentTablePkName).ForeignName = childTableFkName  ' child FK
    cdb.Relations.Append rel
    Set rel = Nothing
    Set cdb = Nothing
End Sub

2021-04-19