＋设为首页 ＋添加到收藏夹
就是得到一个Disconnected RecordSet.
最好把各种方法都介绍一下
dim rsTmp as new recordset
rstmp.curorlocation=aduseclient
dim rsTmp as new recordset
rstmp.curorlocation=aduseclient
rstmp.open ...
set rstmp.activeconnection = nothing
http://www.codeguru.com/mfc_database/disconnectedado.shtml
Creating a Disconnected Recordset in C++ For VB
--------------------------------------------------------------------------------
This article was contributed by Jeff Lundgren.
Environment: Visual C++ 6.0 and VB 6.0, ADO 1.5
This article assumes that you are familiar with ADO, Visual C++ and ATL.
This article shows how to create a Visual C++ COM object that creates a disconnected ADO Recordset. With a disconnected ADO recordset, your ATL COM object can connect to the database, create the Recordset, and disconnect without having to keep a connection open, while allowing the client to read the data in the Recordset. This works great with MTS where database connection pooling requires this functionality.
Resources: HOWTO: Getting ADO Disconnected Recordsets in VBA/C++/Java
SAMPLE: ATL2ADO.exe Returns Disconnected ADO Recordset
In your project make sure you import dll to create your ADO classes.
#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF", "adoEOF") implementation_only
Next create a method with an [out, retval] property of type _Recordset **
[id(1), helpstring("method GetADORecordset")] HRESULT GetADORecordset( [out, retval] _Recordset **ppRecordset);
Your source code should look something like this:
STDMETHODIMP CReturnADO::GetADORecordset(_Recordset **ppRecordset)
{
_ConnectionPtr pConnection;
_RecordsetPtr pRecordset;
try
{
pConnection.CreateInstance(__uuidof(Connection));
pConnection->CursorLocation = adUseClient; // Important for disconnected sets
pConnection->Open("DSN=SQLSource","loginnmae","password",-1);
pRecordset.CreateInstance(__uuidof(Recordset));
pRecordset->CursorLocation = adUseClient; // Important for disconnected sets
pRecordset->PutRefActiveConnection(pConnection.GetInterfacePtr()); // Associate the connection to this recordset
pRecordset->Open("SELECT DISTINCT name FROM TBLWHATEVER WHERE name IS NOT NULL",vtMissing,
adOpenForwardOnly, adLockReadOnly,
adCmdText);
pRecordset->PutRefActiveConnection(NULL); // Disassociate the connection from the recordset.
if(pConnection->GetState() == adStateOpen)
pConnection->Close();
pConnection = NULL;
*ppRecordset = pRecordset.Detach();
}
catch(_com_error *e)
{
return AtlReportError(CLSID_ReturnADO,e->ErrorMessage(),IID_IReturnADO,E_FAIL);
}
catch(...)
{
return AtlReportError(CLSID_ReturnADO,"Unknown Error.",IID_IReturnADO,E_FAIL);
}
return S_OK;
}
Now your interface descriptions and CLSIDs will be different, but go ahead and use this code to build your own version. Your VB code might look something like this:
Dim adoset As ADODB.Recordset
Dim engine As New TESTRETURNADOLib.ReturnADO
Set adoset = engine.GetADORecordset
While Not adoset.EOF
List1.AddItem adoset.Fields(0)
adoset.MoveNext
Wend
Set adoset = Nothing
Date Posted: May 20, 1999
