我想用ADO访问access数据库,通过响应查询按钮,把数据读到一LISTBOX控件中,程序编译无错,点击查询按钮时报Runtime ERROR!哪位大哥帮看看代码,找找原因,小弟多谢了!!!查询按钮的响应函数如下:
void CAdo3Dlg::OnBtnQuery()
{
CoInitialize(NULL);
_ConnectionPtr pConn(__uuidof(Connection));
_RecordsetPtr pRst(__uuidof(Recordset));
_CommandPtr pCmd(__uuidof(Command));
pConn->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=program.mdb";
pConn->Open("","","",adConnectUnspecified);
pCmd->put_ActiveConnection(_variant_t((IDispatch*)pConn));
pCmd->CommandText="Select * from user";
pRst=pCmd->Execute(NULL,NULL,adCmdText);
while(!pRst->rsEOF)
{
((CListBox*)GetDlgItem(IDC_LIST1))->AddString((_bstr_t)pRst->GetCollect("username"));
pRst->MoveNext();
}
pRst->Close();
pConn->Close();
pRst->Release();
pCmd.Release();
pConn->Release();
CoUninitialize();
}
