vc连接Access2003

void CADO_1Dlg::OnBtnShow() 

{

       USES_CONVERSION;                                                                 // 使用类型转换

       CoInitialize(NULL);                                                                      // 初始化COM环境，没有这句的话，后面连接数据库将会失败

       _ConnectionPtr con(__uuidof(Connection));                            // 创建连接对象

       _RecordsetPtr rst(__uuidof(Recordset));                                 // 创建记录集

       _CommandPtr cmd(__uuidof(Command));                                     // 创建Command对象

 

       try

       {

              con->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Example.mdb;" ,"", "", adModeUnknown);     // 打开数据库并建立连接

              rst->Open(_variant_t("select * from info_reader"), _variant_t((IDispatch*) con), adOpenDynamic, adLockOptimistic, -1);       // 读取数据表

              while(!rst->adoEOF)

              {

                     m_list.AddString(W2A(rst->GetCollect(_variant_t("rname")).bstrVal));      // 向列表框中添加一项

                     rst->MoveNext();

              }

       }

       catch(_com_error e)

       {

              CString errormessage;                                                    // 保存错误信息

              errormessage.Format("Error: %s", e.ErrorMessage());       // 设置错误信息的格式

              AfxMessageBox(errormessage);                                       // 以对话框的形式输出错误信息

       }

       CoUninitialize();                                                                     //卸载COM环境库

}