[求助]如何用代码实现主素引和建立关系？在线等

huangdeguo

各位大哥：

请问如何用代码建立表的主素引和建立表与表之间的关系？？

小弟万分感谢！

在线等！

[此贴子已经被作者于2005-6-20 11:14:55编辑过]

海狸先生

CREATE INDEX 语句示例此示例在员工表中创建家用电话字段的索引并且扩展员工表。Sub CreateIndexX1()

    Dim dbs As Database

    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。    Set dbs = OpenDatabase("Northwind.mdb")    ' 对运费超过 $100 的订单，

    '在员工表中创建 NewIndex 索引。    dbs.Execute "CREATE INDEX NewIndex ON Employees " _        & "(HomePhone, Extension);"

    dbs.Close

End Sub

此示例在客户表中使用 CustomerID 字段创建索引。任何二笔记录的 CustomerID 字段不能有相同的数据，并且 Null 值是不被允许的。Sub CreateIndexX2()

    Dim dbs As Database

    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。    Set dbs = OpenDatabase("Northwind.mdb")    ' 对运费超过 $100 的订单，

    ' 在 CustomerID 字段中创建单一的索引 CustID。    '     dbs.Execute "CREATE UNIQUE INDEX CustID " _        & "ON Customers (CustomerID) " _        & "WITH DISALLOW NULL;"

    dbs.Close

End Sub二、创建关系此示例在订单表中增加一个外部键。这个外部键是基于员工编号字段和引用至员工的表中的员工编号字段。在此示例中，不必把 EmployeeID 字段列在 REFERENCES 子句中的 Employees table 后面，因为 EmployeeID 是 Employees table 的主键。SubSub()

    Dim dbs As Database

    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。    Set dbs = OpenDatabase("Northwind.mdb")    ' 对运费超过 $100 的订单，

    '在订单表中添加外部键。    dbs.Execute "ALTER TABLE Orders " _        & "ADD CONSTRAINT OrdersRelationship " _        & "FOREIGN KEY (EmployeeID) " _        & "REFERENCES Employees (EmployeeID);"

    dbs.Close

End Sub

huangdeguo

万分感谢大哥