如何实现返回记录集的Visual C++ COM对象

如何实现返回记录集的Visual C++ COM对象2010-07-20错误实现该对象可能会导致内存泄漏或下列错误之一：

The operation requested by the application is not allowed if the object is closed.

- 或 -

类型不匹配

- 或 -

error "ASP 0115" - A trappable error occured in an external object

更多信息

使用下列步骤实现一种方法，该方法从 Visual C++ COM 对象向 Active Server Pages 返回记录集。1.创建一个名为“PassRs”的 ATL DLL 项目。2.插入一个名为“PassRsObj”的 ATL 对象。 3.添加包含以下信息的方法：Method Name: TestMethod

Parameters : [out, retval] LPDISPATCH* ppRecordset

4.在对象的实现文件中包括下面一行：#import "msado15.dll" no_namespace rename（"EOF", "adoEOF"）

5.按如下所示实现该方法：

注意：您必须先将 UID=<username> 和 pwd=<strong password> 更改为正确的值，然后才能运行此代码。请确保该 UID 具有在数据库中执行此操作所需的适当权限。

STDMETHODIMP CPassRsObj::TestMethod（LPDISPATCH *ppRecordset ）
{
  _ConnectionPtr pConn;
  _RecordsetPtr pRs;
  
  pConn.CreateInstance（__uuidof（Connection））;
  pRs.CreateInstance（__uuidof（Recordset））;
  pConn->Open（"DSN=pubs;uid=<username>;pwd=<strong password>;", （BSTR） NULL, （BSTR） NULL, -1）;
  //Client side cursor is required for disconnected recordsets
  pRs->CursorLocation = adUseClient;
  pRs->Open（ "select * from authors",
        pConn.GetInterfacePtr（）,
        adOpenKeyset, adLockOptimistic, -1）;
  // Disconnect the recordset
  pRs->PutRefActiveConnection（NULL）;
  //Clone the recordset.
  //NOTE: Recordset to be cloned must support bookmarks
  pRs->Clone（adLockOptimistic）->QueryInterface（IID_IDispatch, （void**） ppRecordset）;
  pRs->Close（）;
  pConn->Close（）;
  pRs = NULL;
  pConn = NULL;
  return S_OK;
}

6.创建含有以下代码的 ASP 页：

<%
Dim rsTest, oTestPassRs
Set oTestPassRs = Server.CreateObject（"PassRs.PassRsObj"）
Set rsTest = oTestPassRs.TestMethod（）
Do
  Response.Write （ "Value in Record = " & rsTest（1） & "<BR>" ）
  rsTest.MoveNext
Loop until rsTest.EOF
rsTest.Close
Set rsTest = Nothing
Set oTestPassRs = Nothing
%>