database.CreateRelation.docVIP

database.CreateRelation Set relation = database.CreateRelation (name, table, foreigntable, attributes) -------------------------------- attributes hex() dbRelationUnique =1 dbRelationDontEnforce =2 dbRelationInherited =4 dbRelationUpdateCascade=100 dbRelationDeleteCascade=1000 dbRelationLeft =1000000 dbRelationRight =2000000 ===================================================================== e1: 1. t1: ind1 t1_col2 not unique t1_col3 ind2 t1_col2 unique t1_col1 ind3 t1_col1 unique t1_col2 primarykey t1_col1 unique Set db = OpenDatabase(d:\sample\test.mdb) Set rel = db.CreateRelation() rel.Name = aa rel.Table = t1 rel.ForeignTable = t2 rel.Attributes = dbRelationUpdateCascade rel.Fields.Append rel.CreateField(t1_col1) rel.Fields.Append rel.CreateField(t1_col2) rel.Fields(t1_col1).ForeignName = t2_col2 rel.Fields(t1_col2).ForeignName = t2_col3 db.Relations.Append rel ************************************************** 2. 1b t1_col1 up unique t1_col2 up ind1 t1_col2 up unique primarykey t1_col1 up unique Set db = OpenDatabase(d:\sample\test.mdb) db.Relations.Delete aa For i = 0 To db.Relations.Count - 1 Debug.Print db.Relations(i).Name Next // bb // Debug.Print ---------------------------------- Set rel = db.CreateRelation() rel.Name = aa rel.Table = t1 rel.ForeignTable = t2 rel.Attributes = dbRelationUpdateCascade rel.Fields.Append rel.CreateField(t1_col1) rel.Fields.Append rel.CreateField(t1_col2) rel.Fields(t1_col1).ForeignName = t2_col2 rel.Fields(t1_col2).ForeignName = t2_col3 or rel.Fields(t1_col2).ForeignName = t2_col3 rel.Fields(t1_col1).ForeignName = t2_col2 db.Relations.Append rel For i = 0 To db.Relations.Count - 1 Debug.Print db.Relations(i).Name Next // bb aa // =========================================