如何在ACCESS中使用 ADOX 來創(chuàng)建 SQL 傳遞查詢

概要本文曏您如何在 Microsoft Visual Basic for Applications (VBA) 與 Microsoft ActiveX Data Objects (ADO) 創(chuàng)建 SQL 傳遞查詢。 更多信息

VisualBasic 中用於創(chuàng)建 SQL 傳遞查詢應(yīng)用程序可以編寫一箇函數(shù)。 SQL 傳遞查詢設(shè)置由 SQL 語句和連接字符串。 直接曏數(shù)據(jù)庫服務(wù)器進(jìn)行處理當(dāng)運行查詢, 牠髮送命令。 此刪除 MicrosoftJet 數(shù)據(jù)庫引擎的開銷。 

與數(shù)據(jù)訪問對象 (DAO) 模型, 可以使用 SQL 傳遞查詢來您訪問外部數(shù)據(jù)時提高性能。 使用 ADO, 您可使用 Microsoft OLE DB Provider for SQL Server 來直接訪問 SQLServer 沒有開銷的 MicrosoftJet 或 ODBC。 您可還使用 Microsoft OLE DB Provider for ODBC 來訪問任何 ODBC 數(shù)據(jù)源中數(shù)據(jù)。 

雖然您不再有來創(chuàng)建 SQL 傳遞查詢來提高性能, MicrosoftJet 數(shù)據(jù)庫中可以通過使用 ADOX 和 JetProvider 仍完成。 以下代碼顯示您如何創(chuàng)建 SQL 傳遞查詢。 

備註 ： 本文中： 示例代碼使用 ADO 和 ActiveX 數(shù)據(jù)對象擴(kuò)展用於數(shù)據(jù)定義語言和安全 (ADOX)。 對於此代碼以正確, 運行必鬚單擊 工具 菜單在 VisualBasic 編輯器中 引用 併確保以下兩箇引用都選中： MicrosoftActiveX 數(shù)據(jù)對象 2.1 庫
Microsoft ADO 2.6 分機對於 DDL 和安全 
Microsoft 提供編程示例僅, 供圖示不附帶任何明示或暗示。 這包括, 但不僅限於, 適銷性或用於特定目的適用性的暗示保證。 本文假定您已熟悉與正在演示編程語言以及工具來調(diào)試過程來創(chuàng)建和使用。 Microsoft 支持工程師可以幫助解釋功能的特定過程, 但牠們將會修改這些示例以提供添加功能或構(gòu)建過程以滿足特定要求。

 要在代碼, 創(chuàng)建 SQL 傳遞查詢請按照下列步驟

 Function CreateSPT(SPTQueryName As String, strSQL As String)

     Dim cat As ADOX.Catalog

     Dim cmd As ADODB.Command

     Set cat = New ADOX.Catalog

     Set cmd = New ADODB.Command

      cat.ActiveConnection = CurrentProject.Connection

      Set cmd.ActiveConnection = cat.ActiveConnection

      cmd.CommandText = strSQL

      cmd.Properties("Jet OLEDB:ODBC Pass-Through Statement") = True 'Modify the following connection string to reference an existing DSN for  'the sample SQL Server PUBS database.

      cmd.Properties _ ("Jet OLEDBass Through Query Connect String") = _ "ODBC;DSN=myDSN;database=pubs;UID=saWD=;"

      cat.Procedures.Append SPTQueryName, cmd

      Set cat = Nothing Set cmd = Nothing

 End Function

'要測試此函數(shù), 在立卽窗口, 鍵入以下行 然後按 ENTER 鍵： 

 ?CreateSPT("MySptQuery", "Select * from Authors")

 原文：http://support.microsoft.com/kb/304323/zh-cn


(相關(guān)查詢-相關(guān)文章技巧鏈接)：
MDB鏈接SQLSERVER導(dǎo)緻寫入衝突