我有这个关系而且我必须暂时摧毁它只是为了使用sql命令更改“salID”字段的大小：
ALTER TABLE Adressen DROP CONSTRAINT [ChildTableMainTable]
如何使用sql命令重新创建相同的关系类型？
如果我使用下一个sql,我得到一对多的关系.这不是我需要的：
ALTER TABLE MainTable ADD CONSTRAINT [ChildTableMainTable] FOREIGN KEY (salID) REFERENCES [ChildTable] (ChildPK);
解决方法
据我所知,Access DDL根本不支持创建Access“关系”,而无需“强制引用完整性”. CREATE CONSTRAINT将创建一个与“强制引用完整性”的关系,因为这正是这样的关系：参照完整性约束.
(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
