FIX: ADO 2.5 遺漏資源時使用資料流和記錄的物件

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:282177
本文已封存。本文係以「現狀」提供且不會再更新。
徵狀
當封送處理的資料在同處理序使用 ActiveX 資料物件 (ADO) 記錄資料流 物件記憶體遺漏可能會發生,可以最後會導致處理程序的記憶體用完。與其他 ADO 物件,例如 命令資料錄集 物件則不會發生此遺漏。

此遺漏就會發生在 Microsoft 資料存取元件 (MDAC) 2.5,但不會發生在 MDAC 2.6。
發生的原因
記錄] 和 [資料流 物件會使用動態樣板程式庫 (ATL) AtlMarshalPtrInProc 函數來建立用來傳回給呼叫者傳送 Proxy 資訊的資料流。當會終結 記錄] 和 [資料流 物件時,發行 函式會只被呼叫在資料流上不第一個呼叫 AtlFreeMarshalStream 函式以釋放記憶體配置給這個資料流。
解決方案

MDAC

如果要解決這個問題,取得最新的 Service Pack 的 Microsoft MDAC 2.5。如需詳細資訊按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:
293312資訊: 如何取得最新的 MDAC 2.5 Service Pack
此修正程式的英文版應該具有下列檔案屬性或更新版本:
   Date          Version        Size               File name   ------------------------------------------------------------   12/14/2000    2.53.6013.0    491,792 bytes      Msado15.dll						

Windows 2000

如果要解決這個問題,取得最新的 Service Pack 為 Windows 2000。如需詳細資訊按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:
260910如何取得最新的 Windows 2000 Service Pack
此修正程式的英文版應該具有下列檔案屬性或更新版本:
   Date        Time    Version       Size       File name   ----------------------------------------------------------   5/29/2001   02:56p  2.52.6019.1   487,696    Msado15.dll				

因應措施

與 MDAC 2.5 這個問題沒有解決方法。
狀況說明

MDAC

Microsoft 已確認這是在本文開頭所列之 Microsoft 產品中的有錯誤。這個問題,首先已經在 Microsoft MDAC 2.5 Service Pack 3 中獲得修正。

在 MDAC 2.6 中不會發生這個問題。

Windows 2000

Microsoft 已確認這是在本文開頭所列之 Microsoft 產品中的問題。這個問題已經先在 Windows 2000 Service Pack 3 中獲得修正。
其他相關資訊
突出顯示發生此記憶體遺漏 記錄] 或 [資料流 物件所在位置排列同處理序,例如 Microsoft 網際網路資訊伺服器 (IIS) 和 Microsoft 交易伺服器 (MTS) 的環境中 / COM +。在何處此封送處理不會發生,例如獨立 Microsoft Visual Basic 應用程式的環境中,不會發生此遺漏。

重製行為的步驟

  1. 下面範例程式碼貼至文字檔案,並儲存以 ADODBMem.vbs 」 的名稱。
  2. 在命令提示字元下使用 Windows 指令碼主機 (CScript.exe) 執行這個檔案。例如:
    cscript ADODBMem.vbs
  3. 在提示,啟動效能監視器 (PerfMon),並為可執行 CScript 選取私用位元組計數器。
  4. 回到指令碼,並逐步指示 ADO 物件的建立。請注意 PerfMon 會顯示以 記錄] 和 [資料流 物件配置的記憶體中不斷增加的數量。

範例程式碼

'//////////////////////////////////////////////////////////////////////////////////////////////// ' +'   File:       adodbmem.vbs''   Copyright:  (c) 2000 Microsoft Corporation''   Contents:   Creates/destroys ADODB objects and allows to see memory usage (leaks).''   Comments:   CScript.exe v2.0 required (comes with Windows 2000; just copy to run under NT4)'               WScript.exe will NOT work''               Usage: cscript adodbmem.vbs'               Use PerfMon to see the counter "Private Bytes" in process "cscript"' -'//////////////////////////////////////////////////////////////////////////////////////////////// Const REPT_CNT = 1000Private Function CreateOnce(objName, bStop)  Dim obj  On Error Resume Next  If bStop = True Then    WScript.StdOut.Write  "Create an instance of " & objName & ">"    WScript.StdIn.ReadLine  End If  Set obj = CreateObject(objName)  If Err.Number <> 0 Then    WScript.Echo "CreateObject(" & objName &") failed: " & Err.Description    CreateOnce = False    Exit Function  End If  If bStop = True Then    WScript.StdOut.Write objName & " created. Destroy>"    WScript.StdIn.ReadLine  End If  Set obj = Nothing  If bStop = True Then    WScript.Echo objName & " destroyed."  End If  CreateOnce = TrueEnd Function'//////////////////////////////////////////////////////////////////////////////////////////////// Private Sub TryObject(objName)  Dim i  WScript.StdOut.Write "Create and destroy " & objName & " " & REPT_CNT & " times>"  WScript.StdIn.ReadLine  For i = 1 To REPT_CNT    If Not CreateOnce(objName, False) Then Exit For  Next  WScript.StdOut.Write "Done. "End Sub'//////////////////////////////////////////////////////////////////////////////////////////////// Private Sub ShowVersion  Dim sVer  Dim o  Set o = CreateObject("ADODB.Connection")  sVer = o.Version  Set o = Nothing  WScript.StdOut.Write "ADODB version " & sVer & " loaded. Hit Enter to start>"  WScript.StdIn.ReadLineEnd Sub'//////////////////////////////////////////////////////////////////////////////////////////////// Public sub Main()  WScript.StdOut.Write "ADODB memory leak test." & vbNewLine & _                "Connect Perfmon: process - cscript, counters - Private Bytes." & vbNewLine & _                "Hit Enter then ready>"  WScript.StdIn.ReadLine  ShowVersion  TryObject "ADODB.Command"  TryObject "ADODB.Stream"  TryObject "ADODB.Recordset"  TryObject "ADODB.Record"  WScript.StdOut.Write "All Done. Hit Enter to exit>"  WScript.StdIn.ReadLineEnd subCall Main()Wscript.Quit 0'//////////////////////////////////////////////////////////////////////////////////////////////// '                                  End of file "adodbmem.vbs"'//////////////////////////////////////////////////////////////////////////////////////////////// 				
kbMDAC 封送處理封送處理封送處理

警告:本文為自動翻譯

內容

文章識別碼:282177 - 最後檢閱時間:02/24/2014 03:22:49 - 修訂: 3.2

Microsoft Data Access Components 2.5 Service Pack 1, Microsoft Data Access Components 2.5

  • kbnosurvey kbarchive kbmt kbhotfixserver kbqfe kbmdac250sp3fix kbado260fix kbbug kbfix kbmdac260fix kbwin2000sp3fix KB282177 KbMtzh
意見反應