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