vcado:VC中调用ADO对象访问数据库代码疯狂代码！

vcado:VC中调用ADO对象访问数据库代码

"stdafx.h" #

"stdio.h"
#

"windows.h"
#

.h"
#import "C:\Program Files\Common Files\

\ado\msado20.tlb" no_

rename("EOF", "adoEOF")
HRESULT ComInit

;

APIENTRY WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPSTR lpCmdLine,

nCmdShow)
{
_ConnectionPtr pCn;
_Record

Ptr pRs;

_variant_t vtEmpty;
_variant_t vRsinfo;
long ccc;
char jj[255];

j;

ComInit

;
pCn.CreateInstance(__uuidof(Connection));
pRs.CreateInstance(__uuidof(Record

));

pCn->Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\\VcADO\\users.mdb","","",-1);

(pCn->State

0){
MessageBox(0,"连接数据库失败

","连接失败",MB_OK);
}

{
vtEmpty="select * from 用户信息表";
pRs->Open(vtEmpty, pCn.GetInterfacePtr

,adOpenStatic,adLockOptimistic,adCmdText);
ccc=pRs->RecordCount;

(ccc>=1){
vRsinfo=pRs->Fields->GetItem("姓名")->GetValue

;
j=spr

f(jj,"查询到:%s",(char*)(_bstr_t)vRsinfo);
MessageBox(0,jj,"查询成功",MB_OK);
pRs->Close

;
}

{
MessageBox(0,"没有查询到数据.","查询失败",MB_OK);
}
pCn->Close

;
}

0;
}

//COM 使用时

化
HRESULT ComInit

{
HRESULT hr = S_OK; // 默认返回值

FAILED(CoInitialize(NULL)) // COM

化

{
CoUninitialize

;
hr = E_UNEXPECTED;
}

hr;
}

vcado:VC中调用ADO对象访问数据库代码