表设计
使用SQL DDL创建、删除表和关系
2008-10-18 17:31:41

   CREATE TABLE Table1 (Id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, _   MyText TEXT (10))

  不需要主键(PrimaryKey)也能通过运行下面的查询语句创建关系中另一侧的外键(Foreign Key)。该查询创建一个长整数类型字段Id和一个文本类型字段MyText(默认长度为255)的表。

   CREATE TABLE Table2 (Id LONG, MyText TEXT)

  在创建这两个表后,运行下面的查询在Table1和Table2之间来创建一个一对多的关系,其中Table1为关系的主侧。

   ALTER TABLE Table2 ADD CONSTRAINT Relation1 FOREIGN KEY ([Id]) _   REFERENCES Table1 ([Id])

  要删除这两个表之间关系,可以使用下面的查询: 

   ALTER TABLE Table2 DROP CONSTRAINT Relation1

  要删除表Table1, 可以运行下面的查询: 

   DROP TABLE Table1

  要删除表Table2, 可以运行下面的查询: 

   DROP TABLE Table2

  除了通过查询来运行这些语句名,还可以将DDL语句以代码的形式在RunSQL中运行,也可以通过下面的过程来模拟。

   Sub ExecuteSQLDDL (SQLString As String)      Dim db As Database, qd As QueryDef      Set db = DBEngine.Workspaces(0).Databases(0)      Set qd = db.CreateQueryDef("")      qd.SQL = SQLString      qd.Execute      db.Close   End Sub

调用这个过程,使用下面的语法: 

   ExecuteSQLDDL "DROP TABLE Table1"