文章編號: 223213 - 上次校閱: 2005年6月23日 - 版次: 3.0

在交易中使用 CurrentProject.Connection ACC2000： 錯誤

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
進階： 須具備專家編碼、 互通性，與多使用者技能。

本文可套用於 [Microsoft Access 資料庫 (.mdb) 和 Microsoft Access 專案 (.adp)。

在此頁中

全部展開 | 全部摺疊

徵狀

如果您使用 CommitTrans 或 RollbackTrans 方法直接與 CurrentProject.Connection 物件時，可能會收到下列錯誤：
您嘗試認可或復原交易不含第一開始交易。
-或者-
沒有交易是作用中。
回此頁最上方

發生的原因

每次使用 CurrentProject.Connection 物件時，它有不同的指標，該連線。作用中執行個體或該物件的指標是暫時的。這是為什麼您 CurrentProject.Connection.BeginTrans 上, 看到沒有錯誤但一旦您嘗試認可，收到錯誤訊息或復原交易。
回此頁最上方

解決方案

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您特定需求。警告: 如果您依照本範例，修改範例資料庫 Northwind.mdb。您可能要備份 Northwind.mdb 檔案和資料庫的副本上依照下列步驟執行。

將物件變數一次設定 CurrentProject.Connection，而且您交易處理例如在下列範例為使用它。這裡，"c"是用於交易的 連線 物件：

注意： 本文中的範例程式碼會使用 Microsoft ActiveX 資料物件。這個程式碼正常執行，您必須參考 Microsoft ActiveX 資料物件 2.x 程式庫 (其中 2.x 是 2.1 (含) 以後版本)。以執行這項操作，按一下 引用項目 在 [工具] 功能表中 Visual Basic 編輯器] 中，請確定已選取 Microsoft ActiveX 資料物件 2.x 文件庫] 核取方塊。

  1. 開啟範例資料庫 Northwind.mdb。
  2. 在 [資料庫] 視窗中按一下 [物件，] 下的 [模組]，然後按一下 [新增]。
  3. 在新的模組中輸入下列的程式碼： 
    Sub tstConnectionObj()

   Dim c As ADODB.Connection
   Dim rs As ADODB.Recordset

   Set c = CurrentProject.Connection
   Set rs = New ADODB.Recordset

   rs.Open "Categories", c, adOpenDynamic, adLockOptimistic

   c.BeginTrans
   rs.Fields(1) = "Drinks"

   rs.Update
   MsgBox "Updated field to " & rs.Fields(1) & "."

   c.RollbackTrans
   rs.Requery
   MsgBox "Rolled back field to " & rs.Fields(1) & "."

End Sub
  4. 在即時運算視窗中輸入下列]，然後按下 ENTER 鍵： 
    tstConnectionObj
    附註您看到下列訊息：
    喝酒更新的欄位。
  5. 在郵件上按一下 [確定]。請注意您會看到下列訊息：
    復原欄位，以飲料。
  6. 在郵件上按一下 [確定]。
回此頁最上方

其他相關資訊

重製行為的步驟

  1. 開啟範例資料庫 Northwind.mdb。
  2. 在 [資料庫] 視窗中按一下 [物件，] 下的 [模組]，然後按一下 [新增]。
  3. 在新的模組中輸入下列的程式碼： 
    Sub tstCurrentProj()

   Dim rs As ADODB.Recordset

   Set rs = New ADODB.Recordset

   rs.Open "Categories", CurrentProject.Connection, adOpenDynamic, _
     adLockOptimistic

   CurrentProject.Connection.BeginTrans
   rs.Fields(1) = "Drinks"
   rs.Update
   MsgBox "Updated field to " & rs.Fields(1) & "."

   CurrentProject.Connection.RollbackTrans
   MsgBox "Rolled back field to " & rs.Fields(1) & ".

End Sub
  4. 在即時運算視窗中輸入下列]，然後按下 ENTER 鍵： 
    tstCurrentProj
    附註您看到下列訊息：
    喝酒更新的欄位。
  5. 在郵件上按一下 [確定]。

    請注意您會看到第一個本文的 ＜ 徵狀 ＞ 一節所述的錯誤訊息。
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Access 2000 Standard Edition
回此頁最上方
關鍵字：?
kbmt kbprb KB223213 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：223213? (http://support.microsoft.com/kb/223213/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。