VC6中使用ADO连接SQL Server 2000

最新推荐文章于 2021-01-30 12:39:13 发布

chunqingzhu

最新推荐文章于 2021-01-30 12:39:13 发布

阅读量859

点赞数

本文链接：https://blog.csdn.net/chunqingzhu/article/details/3179974

版权

//StdAfx.h中
#import "C:/Program Files/Common Files/System/ado/msado15.dll" no_namespace rename("EOF","adoEOF")

//AdoDlg.cpp中
CoInitialize(NULL);
_ConnectionPtr pConn(__uuidof(Connection));
_RecordsetPtr pRcs(__uuidof(Recordset));
_CommandPtr pCmd(__uuidof(Command));

pConn->Open("Provider=SQLOLEDB.1;Persist Security Info=False;
Initial Catalog=pubs","sa","chinasa",adConnectUnspecified);
/*
pConn->ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;
User ID=sa;Password=chinasa;Initial Catalog=pubs";
pConn->Open("","","",adConnecUnspecified);
*/

pRcs=pConn->Execute("select * from authors",NULL,adCmdText);
/*
    pRcs->Open("select * from authors",_variant_t((IDispatch*)pConn),
        adOpenDynamic,adLockOptimistic,adCmdText);
*/
/*
    pCmd->put_ActiveConnection(_variant_t((IDispatch*)pConn));
    pCmd->CommandText="select * from authors";
    pRcs=pCmd->Execute(NULL,NULL,adCmdText);
*/

while(!pRcs->adoEOF)
{
    ((CListBox*)GetDlgItem(IDC_LIST1))->AddString(
           (_bstr_t)pRcs->GetCollect("au_fname"));
    pRcs->MoveNext();
}
pRcs->Close();
pConn->Close();
pCmd.Release();
pRcs.Release();
pConn.Release();
CoUninitialize();