CREATE TABLE 语句，CONSTRAINT 子句示例 (DAO)

CREATE TABLE 语句，CONSTRAINT 子句示例

此示例命名查询为 CategoryList。

此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。

Sub ProcedureX()

Dim dbs As Database, rst As Recordset

Dim qdf As QueryDef, strSql As String

' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

Set dbs = OpenDatabase("Northwind.mdb")

' 对运费超过 $100 的订单，

strSql = "PROCEDURE CategoryList; " _

& "SELECT DISTINCTROW CategoryName, " _

& "CategoryID FROM Categories " _

& "ORDER BY CategoryName;"

' 创建基于 SQL 语句的 QueryDef 的名称。

'

Set qdf = dbs.CreateQueryDef("NewQry", strSql)

' 创建暂时的快照类型记录集。

Set rst = qdf.OpenRecordset(dbOpenSnapshot)

' populateRecordset。

rst.MoveLast

' 调用 EnumFields 来打印记录集的内容。

'传递记录集对象和要求的字符宽度。

'

EnumFields rst, 15

' 删除 QueryDef 因为这是一个演示。

'

dbs.QueryDefs.Delete "NewQry"

dbs.Close

End Sub