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

CREATE TABLE 語句，CONSTRAINT 子句示例

此示例命名查詢?yōu)?CategoryList。

此示例調(diào)用過程 EnumFields 過程，且可以在 SELECT 語句示例中找到該過程。

Sub ProcedureX()

   Dim dbs As Database, rst As Recordset

   Dim qdf As QueryDef, strSql As String

 

   ' 在您的計算機(jī)中修改此行使其正確指到 Northwind 的路徑。

   Set dbs = OpenDatabase("Northwind.mdb")

   ' 對運(yùn)費(fèi)超過 $100 的訂單，

 

   strSql = "PROCEDURE CategoryList; " _

       & "SELECT DISTINCTROW CategoryName, " _

       & "CategoryID FROM Categories " _

       & "ORDER BY CategoryName;"

 

   ' 創(chuàng)建基于 SQL 語句的 QueryDef 的名稱。

   '

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

   ' 創(chuàng)建暫時的快照類型記錄集。

   Set rst = qdf.OpenRecordset(dbOpenSnapshot)

   ' populateRecordset。

   rst.MoveLast

         

   ' 調(diào)用 EnumFields 來打印記錄集的內(nèi)容。

   '傳遞記錄集對象和要求的字符寬度。

   '

   EnumFields rst, 15

 

   ' 刪除 QueryDef 因為這是一個演示。

   '

   dbs.QueryDefs.Delete "NewQry"

 

   dbs.Close

End Sub