Function GetRecordset() As Object Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Open "DSN=AdvWorks" Set rs = cn.Execute("Select * From Customers") Set GetRecordset = rs End Function |
#import "c:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename ( "EOF", "adoEOF" ) |
STDMETHODIMP CADOSample::GetRecordset(IDispatch **RS) { _ConnectionPtr pCN; _RecordsetPtr pRS; _variant_t vtEmpty; pCN.CreateInstance(__uuidof(Connection)); pCN->Open("DSN=AdvWorks", "", "", -1); pRS = pCN->Execute("Select * From Customers", &vtEmpty, adCmdUnknown); pRS->QueryInterface(IID_IDispatch, (void**) RS); return S_OK; } |