1. 生成应用程序框架并初始化OLE/COM库环境
创建一个标准的MFC AppWizard(exe)应用程序,然后在使用ADO数据库的InitInstance函数中初始化OLE/COM库(因为ADO库是一个COM DLL库)。
本例为:
BOOL CAdotestDlg::OnInitDialog() { ::CoInitialize(NULL); //初始化OLE/COM库环境 }程序最后要调用 ::CoUninitialize();//释放程序占用的COM 资源。
m_pRecordset->Close(); 注意!!!不要多次关闭!!!!!!!!!!!! m_pConnection->Close(); m_pRecordset = NULL; m_pConnection = NULL;2. 引入ADO库文件
class CAdotestDlg : public CDialog { _ConnectionPtr m_pConnection; _RecordsetPtr m_pRecordset; ClistCtrl m_List; ...... }ADO库包含三个智能指针:_ConnectionPtr、_CommandPtr和_RecordsetPtr。
void CAdotestDlg::OnButton1() { m_List.ResetContent(); m_pConnection.CreateInstance(_uuidof(Connection)); //初始化Connection指针 m_pRecordset.CreateInstance(_uuidof(Recordset));//初始化Recordset指针 try { m_pConnection->Open("DSN=ADOTest","","",0); //连接叫作ADOTest的ODBC数据源 //注意:这是连接不需要用户ID或密码的open 函数 // 否则形式为 ->Open("DSN=test;uid=sa;pwd=123;","","",0); // 执行SQL语句得到一个记录集把其指针赋值给m_pRecordset CString strSql="select * from middle"; BSTR bstrSQL = strSql.AllocSysString(); m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,
adCmdText); //adOpenDynamic:动态 adLockOptimistic乐观封锁法 adCmdText:文本查询语句 while(!m_pRecordset->adoEOF)//遍历所有记录 { //取纪录字段值方式之一 _variant_t TheValue; //VARIANT数据类型 TheValue = m_pRecordset->GetCollect("BIG_NAME");//得到字段BIG_NAME的值 if(TheValue.vt!=VT_NULL) m_List.AddString((char*)_bstr_t(TheValue)); //将该值加入到列表控件中 //取纪录字段值方式之二 // _bstr_t TheValue1=m_pRecordset->Fields->GetItem("BIG_NAME")->Value; // CString temp=TheValue1.copy(); // m_List.AddString(temp); //数据类型转换 _variant_t vUsername,vBirthday,vID,vOld; TRACE("id:%d,姓名:%s,年龄:%d,生日:%s/r/n", vID.lVal,(LPCTSTR)(_bstr_t)vUsername,vOld.lVal,(LPCTSTR)(_bstr_t)vBirthday); m_pRecordset->MoveNext();//转到下一条纪录 } m_pRecordset->Close(); m_pConnection->Close(); } catch (_com_error e)//异常处理 { AfxMessageBox(e.ErrorMessage()); } m_pRecordset->Close(); //注意!!!不要多次关闭!!!!否则会出错 m_pConnection->Close(); m_pRecordset = NULL; m_pConnection = NULL; }