使用SQLDDL创建、删除表和关系

时　间:2013-01-25 08:25:30
作　者:缪炜   ID：24010  城市：江阴
摘　要:使用SQLDDL创建、删除表和关系 
正　文:

建立一个带有自动编号数据类型主键(PrimaryKey)字段Id和一个文本数据类型长度为10的字段MyText的表，可以在查询的数据定义查询窗口输入下列语句：

　　注：在下列查询举例中，每行最后的下划线(_)是用来续行的。在创建查询时，请移除。

　　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"

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