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

文章翻譯 文章翻譯
文章編號: 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 = 1000

Private 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 = True
End 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.ReadLine
End 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.ReadLine
End sub

Call Main()
Wscript.Quit 0

'//////////////////////////////////////////////////////////////////////////////////////////////// 
'                                  End of file "adodbmem.vbs"
'//////////////////////////////////////////////////////////////////////////////////////////////// 

				

屬性

文章編號: 282177 - 上次校閱: 2014年2月24日 - 版次: 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
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:282177
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com