访问SQL以创建一对多关系而不强制参照完整性

Question

我有这种关系.我必须暂时销毁它只是为了使用SQL命令更改"salID"字段的大小:

ALTER TABLE Adressen DROP CONSTRAINT [ChildTableMainTable]

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

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

Answer 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