Deleting relationships using SQL

  • Thread starter Thread starter beaman
  • Start date Start date
B

beaman

Guest
I need to create and delete existing relationships in my data model using SQL. Does anyone have nay ideas? PLease

Thanks, Cazza
 
Sub SubDelRelations()
Dim Myrel As Relation
Dim MyDB As Database

Set MyDB = DBEngine.Workspaces(0).Databases(0)

'Company -->> Company_Code
MyDB.Relations.Delete "RelComp_CompCode"

'Company -->> Company_Name
MyDB.Relations.Delete "RelComp_CompName"
End Sub

Sub SubMakeRelations()
Dim Myrel As Relation
Dim MyDB As Database
Dim MyFld As Field

Set MyDB = DBEngine.Workspaces(0).Databases(0)

'Company -->> Company_Code
Set Myrel = MyDB.CreateRelation("RelComp_CompCode")
Myrel.Table = "dbo_EC_Company"
Myrel.ForeignTable = "dbo_EC_Company_Code"
Myrel.Attributes = 0
Set MyFld = Myrel.CreateField("Company_ID")
MyFld.ForeignName = "Company_ID"
Myrel.Fields.Append MyFld
MyDB.Relations.Append Myrel

'Company -->> Company_Name
Set Myrel = MyDB.CreateRelation("RelComp_CompName")
Myrel.Table = "dbo_EC_Company"
Myrel.ForeignTable = "dbo_EC_Company_Name"
Myrel.Attributes = 0
Set MyFld = Myrel.CreateField("Company_ID")
MyFld.ForeignName = "Company_ID"
Myrel.Fields.Append MyFld
MyDB.Relations.Append Myrel
End Sub
 

Users who are viewing this thread

Back
Top Bottom