推薦：Access數據庫開發技巧(二)
　　窗體、查詢、報表、宏的聯合使用 　　將窗體、查詢、報表、宏聯合使用可以解決許多問題，是一項重要的技巧。 　　1、從窗體中獲得查詢中的條件 　　對于這個問題這里以

總的來說，提高應用程序性能的最好的方法是發現應用的瓶徑之所在，和數據庫進行交互的性能無疑是決定應用程序性能的重要環節之一。因為ADO是當前最新的基于組件的數據庫編程的接口，這里我們主要討論用ADO編程所需要注意的問題，因為ADO是一個和編程語言無關的COM組件系統，所以這里討論的要點適用于所有的編程語言和編程環境，比如：VB、VBScript、VC、Java等等。

顯式的定義對象變量的類型：

實際上，這條準則不僅適用于ADO編程，也適用于其他的COM對象相關的編程，因為如果一開始就定義變量類型的話，編譯器在編譯的時候就可以知道變量的類型，編譯器實際上就采用vtable偏移的方式來得到具體的COM對象包含的方法的地址（這一點和C 中的虛函數的地址的獲取類似），但如果一開始不指定變量類型的話，比如簡單的采用如下的語句：

DIM myCon as Object

或者是

DIM myCon

那么編譯器在編譯的時候就不能得到變量的類型，而只能在運行的時候動態的得到方法的信息（通過使用接口IDispatch的方法Invoke來實現的），這樣為了得到方法的地址和相關的變量情況就需要在內部進行兩次調用，無疑就使速度降低。

當瀏覽記錄的時候，綁定列到具體的字段對象上去

這個意思就是說在一開始的時候我們就建立對字段對象的引用，避免在每次得到記錄的時候需要在Rcordset::Fields中進行查找而增加系統的開銷。

比如可以采用如下的示例代碼形式：

以下為引用的內容： 　　Private Sub TblBrowse_Click() 　　　Dim fld1 As ADODB.Field 　　　Dim fld2 As ADODB.Field 　　　Dim rs As ADODB.Recordset 　　　set rs=g_cn.execute(...) g_cn為全局adodb.connection對象 　　　Set fld1 = rs.Fields("id") 數據表的字段 　　　Set fld2 = rs.Fields("name") 數據表的字段 　　　If rs.BOF = False Then 　　　　While rs.BOF = False 　　　　　Debug.Print fld1.Value 　　　　　Debug.Print fld2.Value 　　　　　rs.MoveNext 　　　　Wend 　　　End If 　　　rs.Close 　　End Sub

盡量采用SQL語句和存儲過程進行數據更新

盡管采用Recordset對象來更新數據是非常方便的，但是它的開銷也更大，所以如果可能的話，就要采用SQL語句來更新數據。使用存儲過程而不是單一的SQL語句來獲取信息。因為存儲過程是在服務器端執行的，只把結果返回到客戶端，這樣一方面可以降低網絡進行數據交互的開銷，另一方面使系統更加容易維護，并且保持數據的一致性。而如果使用recordset來得到結果的話，通過數據源對象返回的查詢集不僅包含了數據，而且也包含了元數據（metadata）,在有些時候元數據可能比數據本身還要大，這樣系統的開銷無疑也增加了不少。

如果必須要使用游標的話，最好使用集合的方法對單條的SELECT語句進行操作

Recordset::get_Collect和Recordset::put_Collect方法是Recordset 對象的快捷方式，可以使你快速的得到一個字段的值而不需要獲得關于一個字段的引用。可以參考如下的示例代碼：

以下為引用的內容： 　　Sub Collect() 　　　Dim rs As New Recordset 　　　rs.ActiveConnection = "…" 　　　rs.Source = "一條SQL查詢語句" 　　　rs.Open 　　　Debug.Print rs.Collect(0), rs.Collect(1), rs.Collect(2) 　　　Debug.Print rs!au_id, rs!au_fname, rs!au_lname 　　End Sub

只查詢你所需要的數據

盡管很多開發人員都習慣采用"SELECT * FROM TBL"的模式進行查詢，但是為了提高系統的效率，如果你只需要其中某幾個字段的值的話，最好把這幾個字段直接寫出來，同時需要限定返回記錄集的范圍（通過WHERE子句進行限定）

正確選擇游標的位置、類型和鎖方式

如果你只需要按順序讀取記錄并且不需要滾動和更新記錄的話，使用服務器端游標（adUseServer）、僅向前游標(adOpenForwardOnly)和讀鎖(adLockReadOnly)可以使你獲得最好的性能。如果你需要滾動記錄的話，采用客戶端游標（adUseServer）會比采用服務器端游標所得到的性能要好，ADO系統默認是采用服務器端游標類型的。當然如果數據集合相當大的話，采用服務器端游標的性能會好一些。同時需要注意的話，如果采用客戶端游標的話，最好只采用讀加鎖（adLockReadOnly）的鎖類型,因為如果你需要更新數據的話，客戶端游標引擎需要得到額外的信息（元數據），而這個信息的獲取是非常昂貴的。

調整記錄集對象（Recordset）CacheSize的屬性

ADO使用記錄集對象的CacheSize的屬性來決定提取和緩存的記錄的數目，當你在緩存的范圍內瀏覽數據的話，ADO就只從緩存中提取數據。當你要瀏覽的數據超出緩存的范圍的時候，ADO就釋放緩存，提取下一些記錄（提取的數目為CacheSize的大小）。你必須根據你具體的應用程序的情況來設定CacheSize的大小保證你得到最好的性能。

自己定義command對象的參數

在許多數據源中，得到參數信息和執行命令的代價幾乎是一樣的，所以如果可能的話，你要自己在程序中定義好command參數(也就是說要定義好參數的名稱、類型和方向信息),而避免從數據提供者（Provider）那里獲取信息.

使用原始的OLE DB提供者

MDAC對許多數據源提供了原始的數據提供者，比如SQL Server,Oracle和ACCESS數據庫，這樣你不需要再通過ODBC來獲取數據（也就是說不需要再通過ODBC驅動這一層），這樣的好處是你能更快的得到數據，并且降低磁盤和內存的開銷。

如果使用客戶端游標的話，斷開connection連接

ADO有一個特征是當使用客戶端游標操作Recordset記錄集的時候，不需要和服務器進行聯系。你可以充分利用這個特征降低服務器端的開銷（服務器就不需要維護這些連接了），當你操作完記錄集需要更新的話，可以重新和數據庫進行連接來更新數據。為了創建一個可以斷開連接的記錄集，你同時也需要使用靜態游標(adOpenStatic)和批處理的加鎖模式（adLockBatchOptimistic）。下面的示例是用VC寫的：

以下為引用的內容： …… 　　pRs.CreateInstance(__uuid(Recordset)); 　　pRs->CursorLoction=adUseClient; 　　pRs->Open(strCmdText,strConnection,adOpenStatic,adLockBatchOptimistic,adCmdText); 　　pRs->PutRefActiveConnection(NULL); 　　file://這里可以對記錄集對象pRs進行操作 　　pRs->PutRefAxctiveConnection(pCon); file://重新和數據庫建立連接 　　pRs->UpdateBatch(adAffectAll); file://批量更新數據

需要注意的是，當你執行批量更新的話，你必須自己處理數據沖突問題，因為當你更新數據的時候，其他人可能也正在對該數據進行操作。

如果不需要返回記錄的話，使用adExecuteNoRecords選項

ADO 2.0包括一個新的執行選項稱為adExecuteNoRecords，當使用該選項的時候，ADO就不會創建記錄集對象，不設置任何游標屬性。數據提供者因為不需要認證行集合的屬性而使性能得到優化。具體的例子如下：

con.Execute "insert into tbl values(fv1, fv2) ", , adExecuteNoRecords

對僅有一條的執行語句采用Connection::Execute的方法比使用Recordset::Open或者是Command::Execute的效果要好，因為ADO不保留任何命令狀態的信息，因此執行性能就有所改進。

使用session/connection緩沖池

我們知道，數據庫的打開和關閉是很消耗系統資源的。因此，連接池對基于多層的應用的性能有很大的提高，當你使用MDAC的時候，開發人員本身并不需要考慮對數據庫連接的緩存，MDAC會自動處理它。連接池在兩個層次上提供支持，OLE DB sessions和ODBC連接。如果你使用ADO的話，你的數據庫連接會自動被OLE DB session緩沖池所緩存。如果使用ODBC的話，在ODBC數據源管理中新的連接緩沖池選項可以讓你對ODBC緩沖進行設置，然后ODBC驅動程序會為你做剩下的事情。

分享：如何設置ACCESS2003(運行時)的宏安全性級別
ACCESS2003版本加了宏安全性級別的設置，方法： 操作菜單 可以自定義菜單，或直接調用菜單上的操作: CommandBars("menu bar").Controls("工具(&T)").Controls(&q