如何获得对ADODB记录集对象的引用计数？

如何解决如何获得对ADODB记录集对象的引用计数？

我正在研究似乎与记录集对象有关的一些旧VB6代码中的内存泄漏，因此，我试图获取对象的引用计数。我在网上找到了一些代码，该代码将提供对一个对象的引用计数，并且该代码适用于自产类。但是，当我尝试将其应用于ADODB记录集对象时，计数始终为1492925242。我已经在现有应用程序中尝试过此操作，然后在虚拟应用程序中进行了尝试-始终返回相同的数字（除非没有引用，否则为0）。

以下是获得引用计数的代码：

    Private Declare Sub RtlMoveMemory Lib "kernel32" (dest As Any,src As Any,ByVal nbytes As Long)

Function objRefCnt(obj As IUnkNown) As Long 
    If Not obj Is nothing Then
       RtlMoveMemory objRefCnt,ByVal ObjPtr(obj) + 4,4
       objRefCnt = objRefCnt - 2
    Else
       objRefCnt = 0
    End If
End Function

以下是在ADODB记录集上调用它的代码：

    Sub main()
    Dim obj_1 As ADODB.Recordset
    Dim obj_2 As ADODB.Recordset

    Debug.Print objRefCnt(obj_1) ' 0

    Set obj_1 = New ADODB.Recordset
    Debug.Print objRefCnt(obj_1) ' 1

    Set obj_2 = obj_1
    Debug.Print objRefCnt(obj_1) ' 2
    Debug.Print objRefCnt(obj_2) ' 2

    Set obj_2 = New ADODB.Recordset
    Debug.Print objRefCnt(obj_1) ' 1
    Debug.Print objRefCnt(obj_2) ' 1
    End Sub

这将返回以下内容：

 0
 1492925242 
 1492925242 
 1492925242 
 1492925242 
 1492925242

但是，当我添加一个名为Class1的具有单个属性（整数）的虚拟类，并创建obj_1和obj_2作为Class1对象时，我得到了：

 0 
 1 
 2 
 2 
 1 
 1 

关于如何在ADODB记录集上获得引用计数的任何想法？ 预先感谢。

解决方法

您发现的代码假定引用计数存储在对象内部的偏移量4处。没有这样的要求。 IUnknown定义了方法，而不是必须在其中存储私有变量的地方（并且引用计数是对象的私有变量）。

获取参考计数（仅用于测试目的）的方法是call IUnknown.Release。

为了通过VB6做到这一点，请在Internet上使用find olelib.tlb（Edanmo的OLE接口和功能），对其进行引用并拥有

Public Function GetRefCount(ByVal obj As olelib.IUnknown) As Long
  obj.AddRef
  GetRefCount = obj.Release - 2
End Function

Dim r1 As ADODB.Recordset
Dim r2 As ADODB.Recordset
  
Set r1 = New ADODB.Recordset
Set r2 = r1
  
MsgBox GetRefCount(r1)  ' 2

,

似乎m_dwRefCount实例的ADODB.Recordset成员变量在偏移量16处。

尝试这种objRefCnt替代：

Private Declare Sub RtlMoveMemory Lib "kernel32" (dest As Any,src As Any,ByVal nbytes As Long)

Function RecordsetRefCnt(rs As Recordset) As Long
    If Not rs Is Nothing Then
       RtlMoveMemory RecordsetRefCnt,ByVal ObjPtr(rs) + 16,4
       RecordsetRefCnt = RecordsetRefCnt - 1
    Else
       RecordsetRefCnt = 0
    End If
End Function

JFYI，这是一个基于AddRef / Release的{​​{1}}暗示，没有其他类型库

GetRefCount