DAO修改表之间的级联关系

时　间:2007-11-05 09:56:27
作　者:UMVsoft整理   ID：16  城市：江阴
摘　要:DAO修改表之间的级联关系
正　文:

摘自 微软全球技术中心

根据您的描述，我对您问题的理解是您希望通过语句来实现对Cascading Update操作的修改。不知道我理解的正确吗？如果我理解得不够准确，请让我知道尽可能多对问题的描述，以便我能全面理解您的问题并且能够更快解决问题。

我研究了一下，发现无法确实无法进行对该关系的修改。在我侧测试中，我通过Test1()来建立级联关系；通过Test2()来删除级联关系。
Sub Test1()
Dim db As DAO.Database
Dim relNew As Relation

Set db = CurrentDb
' create the relationship
Set relNew = db.CreateRelation("test", "Orders", "Order Details",
dbRelationDeleteCascade)
' createfield adds a field to the newly created relationship
relNew.Fields.Append relNew.CreateField("OrderID")
' now we tell the new relationship field where it will link in the foreign
table
relNew.Fields!OrderID.ForeignName = "OrderID"
' and this adds the new relationship to the Relations connection
db.Relations.Append relNew
End Sub


Sub test2()
Dim db As DAO.Database
Set db = CurrentDb
db.Relations.Delete "test"
End Sub

然后我做了更进一步的测试，发现就算是通过Design View也无法修改级联的Relationship的。所以我们有理由认为无法修改Relationship。

因此我认为如果您希望能够进行修改的话，可以先删除，然后再依次的进行Append。

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店