【正文】 打開記錄集對象 Set mrs = (StuInfo, dbOpenDynaset, dbSeeChanges, dbOptimistic) 39。 Private Sub Class_Initialize() 39。定義 Move方法的常數(shù) Public Enum rsMove FirstRecord = 1 LastRecord = 2 NextRecord = 3 PreviousRecord = 4 End Enum 39。 （ 5）將下面的代碼添到 cStudent模塊的聲明段。 DAO編程實例 圖 Form1窗體及其上的控件 （ 3）在窗體上創(chuàng)建簡單菜單：“文件”（菜單名為mnuFile），它有一個菜單項“退出”（菜單項名為mnuExit）；“數(shù)據(jù)”（菜單名為 mnuData），它也只有一個菜單項“保存記錄”（菜單項名為mnuDataSave）。 DAO編程實例 本節(jié)通過對 StuInfo表的訪問實例，來講解 DAO訪問數(shù)據(jù)庫的一般步驟： （ 1）在集成開發(fā)環(huán)境中，新建一個工程，將工程的命名為 DAOexample，并以 。 CreateProperty：為 Field對象創(chuàng)建一個新的用戶定義的屬性。 Value：以 Type屬性指定的數(shù)據(jù)類型賦給 Field對象的值。 ValidationRule：在一個字段被修改或添加到一個表中時，返回或設(shè)置用來使該字段中數(shù)據(jù)生效的值。 DAO對象 Type： Field對象的數(shù)據(jù)類型。 Size：用字節(jié)表示的 Field對象的最大值。 OrdinalPosition： Fields集合中 Field對象的相對位置。 DAO對象 DefaultValue：設(shè)置或返回一個 Field對象缺省值。 CollatingOrder：返回一個值說明用于字符串比較或排序的文本順序?？扇?True或 False值。 OpenRecordset：創(chuàng)建一個新的Recordset對象并將它添加到 Recordsets集合中。 CreateProperty：為 QueryDef對象創(chuàng)建一個用戶定義的屬性。 Updatable：返回一個值表明 QueryDef對象是否可以更新。如，可以通過修改SQL中 WHERE子句改變約束條件，再進行查詢。 DAO對象 SQL：定義查詢的 SQL語句。 RecordsAffected：受最近調(diào)用的方法影響的記錄數(shù)。 Name： QueryDef對象的名稱。它是數(shù)據(jù)庫的永久性對象，存放在磁盤文件中。 Update：進入編輯方式后，必須要使用 Update才能確定寫入數(shù)據(jù)，寫入后退出編輯方式。 Requery：通過重新執(zhí)行 Recordset對象所基于的查詢更新該 Recordset對象的數(shù)據(jù)。 MoveFirst、 MoveLast、 MovePrevious、 MoveNext：移動到指定 Recordset 對象中的第一個、最后一個、上一個或下一個記錄并使該記錄成為當(dāng)前記錄。先將 Recordset對象設(shè)為編輯狀態(tài)，然后對數(shù)據(jù)進行修改，最后用 Update方法將修改更新到數(shù)據(jù)庫中 FindFirst、 FindLast、 FindPrevious、 FindNext：按 Recordset對象的索引和排序順序，查找滿足約束條件的第一條記錄、最后一條記錄、上一條記錄、下一條記錄。 Edit：把一個可更新的 Recordset對象的當(dāng)前記錄拷貝到拷貝緩沖區(qū)（ Copy Buffer），以便于編輯，即設(shè)置為編輯狀態(tài)。 DAO對象 CopyQueryDef：建立 Recordset對象所基于的QueryDef的拷貝。 Clone：創(chuàng)建原始 Recordset對象的一個副本。 2． Recordset對象的方法 AddNew：向 Recordset對象添加一條新記錄，并將記錄指針移到該記錄。是一個 String類型的字符串。 Transactions：是否支持事務(wù)處理的回退功能。 Restartable： Recordset對象是否支持Requery方法。 PercentPosition：當(dāng)前記錄指針的位置與記錄總數(shù)的百分比。 NoMatch：取值為 True或 False。該值取True時，鎖定當(dāng)前正在更新的頁面；該值取 False時，僅當(dāng) Update方法用于編輯的表時鎖定頁面。 DAO對象 LastUpdated：最后一次將 Recordset的改變更新到數(shù)據(jù)庫的日期和時間。 Index：設(shè)置或返回一個值表明 Recordset對象記錄顯示順序的索引的名稱。一般在記錄間向后移動記錄指針時，應(yīng)先檢查此屬性以保證指針不會移出記錄集。 DAO對象 EditMode：返回一個表明當(dāng)前記錄的編輯狀態(tài)的值。 Bookmark：指向特定記錄的標(biāo)簽。 BOF：返回值表明指針是否已到記錄集中第一條記錄之前。并且在多用戶環(huán)境，其他用戶對對象記錄來源表中的數(shù)據(jù)的修改也會反映到該Recordset對象上。 （ 5） Dynamic：此類型的 Recordset對象是一個查詢結(jié)果的記錄集合。用來瀏覽數(shù)據(jù)和生成報表。它可以有Table類型所有編輯功能，但不能使用索引。 Dynast：此類型的 Recordset對象是單一表對象或Select類型查詢結(jié)果的映射。它包含單一表對象的所有數(shù)據(jù)。 Table：是缺省類型。 Recordset對象的層次結(jié)構(gòu)如圖 。 RefreshLink：更新與鏈接表的鏈接。 CreateProperty：建立一個用戶自定義的屬性，并創(chuàng)建一個 Property對象，建立對該屬性的引用。 DAO對象 TableDef對象的方法 CreateField：在 TableDef對象中建立一個新的字段，并創(chuàng)建一個 Field對象，建立對該字段的引用。字符串類型。但在有些場合，如網(wǎng)絡(luò)環(huán)境，表可以被鎖定，或用戶以只讀方式打開時，該值為 False，表明不能對表更新。取 True或 False值。對于基表（ Base Table），RecordCount屬性返回的是表中的記錄總數(shù)；對于鏈接表（ Linked Table），返回的是 1。是日期變量型。 LastUpdated：返回最近一次修改表的。 DAO對象 DataCreated：返回創(chuàng)建表的日期和時間。如是否打開為打開為獨占方式；該表是否是由 Jet數(shù)據(jù)庫引擎提供的系統(tǒng)表等等?？梢院蛿?shù)據(jù)庫中表的名稱不一樣。它包括字段（ Field）和索引（ Index）兩個對象。 Synchronize：使兩個復(fù)制同步，只對Microsoft Jet Wordspace有效。 NewPassword：改變口令。 CreateRelation：創(chuàng)建一個新的聯(lián)系 Relation對象，只對 Microsoft Jet Wordspace有效。 CreateQueryDef：創(chuàng)建一個新的查詢定義QueryDef對象。 DAO對象 常量 說明 dbOpenTable 打開表類型 Recordset對象（僅對 Microsoft Jet workspace有效） dbOpenDynamic 打開動態(tài)（ Dynamic）類型 Recordset對象（僅對 Microsoft Jet workspaces有效），類似ODBC動態(tài)游標(biāo) dbOpenDynaset 打開動態(tài)集（ dynaset）類型 Recordset對象 dbOpenSnapshot 打開一個快照（ Snapshot）類型 Recordset對象 dbOpenForwardOnly 打開一個單向向前 Recordset對象 表 Type參數(shù)的取值 DAO對象 常量 說明 dbAppendOnly 只允許追加新記錄 dbSQLPassThrough 傳遞一個 SQL語句 dbSeeChanges 當(dāng)別的用戶在編輯時，企圖修改數(shù)據(jù)，會產(chǎn)生一個運行錯誤 dbDenyWrite 禁止寫 dbDenyRead 禁止讀 dbForwardOnly 只能向前（為了與以前版本兼容） dbReadOnly 只能讀 dbRunAsync 運行異步查詢（只針對 ODBC Direct Workspace有關(guān)） dbExecDirect 跳過 SQL Prepare直接調(diào)用 SQL Exec Direct運行查詢 dbInconsistent 允許不一致修改 dbConsistent 只允許一致性修改 表 Option參數(shù)的取值 DAO對象 常量 說明 dbReadOnly 只允許讀 dbPessimistic 在多用戶環(huán)境下，使用悲觀鎖定策略，即一旦使用 Edit方法，將鎖定編輯的頁 dbOptimistic 在多用戶環(huán)境下，使用樂觀鎖定策略，即直到使用 Update方法時才鎖定所編輯的頁 dbOptimisticValue 用基于行的樂觀一致性鎖定策略（只針對 ODBC Direct Workspace有效） dbOptimisticBatch 使用批量樂觀更新（只針對 ODBC Direct Workspace有效） 表 lockedits參數(shù)的取值 DAO對象 Close：關(guān)閉 DAO對象。 參數(shù) options：可選，指定 Recordset對象的其它屬性，它可取表 。 語法： Set recordset = (source, type, options, lockedits) 參數(shù) source：字符串型，指定新建的 Recordset對象的記錄源，可以是表名、查詢名或一個返回若干記錄的 SQL語句，對于 Microsoft Jet數(shù)據(jù)庫中的表類型的 Recordset對象，它只能是表名。 DAO對象 Database對象的方法 （ 1） OpenRecordset：打開 Recordset記錄集對象。 Replicable：設(shè)置或返回數(shù)據(jù)庫或數(shù)據(jù)庫對象可以被復(fù)制。 Version：返回所打開數(shù)據(jù)庫的版本號。 Count：返回 Database對象的數(shù)量。 DAO對象 QueryTimeout：設(shè)置當(dāng)使用 ODBC調(diào)用打開客戶服務(wù)器結(jié)構(gòu)的數(shù)據(jù)庫時，操作等待的時間。 Connection：設(shè)置或返回 ODBC連接屬性，包括用戶名、口令等。 圖 Database集合和對象 DAO對象 Database對象的屬性 Name：設(shè)置或返回數(shù)據(jù)庫的完整路徑和文件名。 Database集合和對象的層次結(jié)構(gòu)圖如圖 示。 Close：關(guān)閉該 Workspace對象以及它的任何子對象，即將 Workspace對象從內(nèi)存中刪除。 CommitTrans：結(jié)束當(dāng)前的事務(wù)并且將所進行的修改保存到數(shù)據(jù)庫中?？梢源蜷_ 。 CreateUser：在一個指定的工作區(qū)建立一個新的組 User對象。該方法只能創(chuàng)建 Jet數(shù)據(jù)庫（只能是 .mdb，且存放在磁盤上），也是代碼創(chuàng)建 Jet數(shù)據(jù)庫的惟一方法。如果設(shè)為零，系統(tǒng)將永久等待。 （ 3） UserName：擁有該 Workspace對象的用戶或用戶組的名稱。 Type： Workspace對象的類型。 type：常量，指明所建立的 Workspace的類型，取值有兩個，分別是 dbUseJet（創(chuàng)建 Microsoft Jet工作區(qū)）和 dbUseODBC（創(chuàng)建 ODBC工作區(qū)）。 user： String類型，用于指明訪問的用戶名稱。其語法如下： Set Workspace對象變量=(name,user,password,type) CreateWorkspace的參數(shù)有 name、 user、 password、 type，說明如下。 DAO對象 RepairDatabase：修復(fù)一個關(guān)閉的 Microsoft Jet數(shù)據(jù)庫。 CompactDatabase：壓縮或轉(zhuǎn)換一個關(guān)閉的 Microsoft Jet數(shù)據(jù)庫。 DAO對象 DBEngine對象的方法 CreateWorkspace：創(chuàng)建一個新的Workspace對象。設(shè)置或返回一個值，該值為創(chuàng)建下一個工作區(qū)對象指出默認連接類型（工作區(qū)類型）。缺省值為 20秒，如果設(shè)為零，系統(tǒng)將永久等待 Version： DAO版本信息。 LoginTimeout：注冊超時。本地Microsoft Jet數(shù)據(jù)庫工作組文件，缺省值為 DAO對象 IniPath：初始文件位置。進行數(shù)據(jù)庫訪問時設(shè)置的缺省用戶口令，DefaultPassword的缺省值是空字符串。進行數(shù)據(jù)庫訪問時設(shè)置的缺省用戶名稱，是一個長度小于 20個字符的 String變量，DefaultUser的缺省值是 Admin。DBEngine對象位于 DAO對象的頂層，其層次結(jié)構(gòu)如圖 。DAO的層次結(jié)構(gòu)如圖 。數(shù)據(jù)訪問對象類以分層結(jié)構(gòu)來組織，其中的大多數(shù)類屬于集合類。由一系列數(shù)據(jù)庫對象和對象的集合按一