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

ALTER TABLE Adressen DROP CONSTRAINT [ChildTableMainTable]

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

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

解决方法

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

换句话说,没有“强制参照完整性”的关系根本不是一个限制.表只是通过指定字段相关的“提示”,例如,如果查询生成器添加到查询设计中,则可以自动加入表.

要创建一个关系,而不需要“强制引用完整性”,则需要使用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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!