/* #import "C:/Program Files/Common Files/System/ado/msado15.dll" no_namespace rename ("EOF","rsEOF") */ void CADOTestDlg::OnBTNQuery() { CoInitialize(NULL); _ConnectionPtr pConn(_uuidof(Connection)); _RecordsetPtr pRst(_uuidof(Recordset));
pConn->ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs"; pConn->Open("","","",adConnectUnspecified); pRst = pConn->Execute("select * from authors",NULL,adCmdText); while (!pRst->rsEOF) { ((CListBox*)GetDlgItem(IDC_LIST1))->AddString((_bstr_t)pRst->GetCollect("au_lname")); pRst->MoveNext(); } pRst->Close(); pConn->Close(); pRst.Release(); pConn.Release(); CoUninitialize(); }