向List Control中添加ACCESS数据内容

转：

给List Control 添加变量tt
      
加入引入ADO使用智能指针      
#import "c:\program files\common files\system\ado\msado15.dll"no_namespace \rename ("EOF", "adoEOF")rename ("BOF", "adoBOF")
   
添加几个全局变量
   RecordsetPtr vb;   
   _ConnectionPtr zhu;
   CString xm,dz,yb;
     
在*.cpp文件中寻找

BOOL CDfApp::InitInstance()
{     

      AfxOleInit();             // <---添加,初始化COM
      AfxEnableControlContainer();

   //在窗体初始化事件中加入
      tt.ModifyStyle(0L,LVS_REPORT);
      tt.ModifyStyle(0L,LVS_SINGLESEL);
      tt.ModifyStyle(0L,LVS_SHOWSELALWAYS);
      tt.ModifyStyle(0L,LVS_NOSORTHEADER);
      tt.SetExtendedStyle(LVS_EX_GRIDLINES);   //以上这些地方为设置List Control属性和风格
      tt.InsertColumn(0,"姓名");    //以下这些设置列和它们的长度
      tt.InsertColumn(1,"地址");
      tt.InsertColumn(2,"邮编");
      tt.SetColumnWidth(0,100);
      tt.SetColumnWidth(1,100);
      tt.SetColumnWidth(2,100);      

      zhu=NULL;
      zhu.CreateInstance(__uuidof(Connection));
      zhu->ConnectionString="uid=;pwd=;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=zhu.mdb;";

      //连接字符串
      zhu->Open(L"",L"",L"",adCmdUnspecified);      //打开连接
      _bstr_t ha="select * from zrn";    //查询ZRN表里的数据
      vb=zhu->Execute(ha,NULL,adCmdText);   //获取记录集
      int i=0;
      while(!vb->adoEOF)   
      {
         xm=(char*)(_bstr_t)vb->GetCollect("xm");    //xm,dz,yb 分别为你自己数据库的列名
         dz=(char*)(_bstr_t)vb->GetCollect("dz");     //把这一记录中数据库里dz列下的值给字符串dz
         yb=(char*)(_bstr_t)vb->GetCollect("yb");
         tt.InsertItem(i,"");     
         tt.SetItemText(i,0,xm);     //添加到list Control 中的第i行的第一列下
         tt.SetItemText(i,1,dz);     //添加到list Control 中的第i行的第二列下
         tt.SetItemText(i,2,yb);   //添加到list Control 中的第i行的第三列下
         i+=1;   //下次循环指向第2行
         vb->MoveNext();   //移动到下一个记录
     }
     vb->Close();   //关闭记录集指针
     zhu->Close(); //关闭数据库连接
     vb=NULL;
     zhu=NULL;
     ::CoUninitialize(); 收回COM

自己：

读取数据库中内容 输出到List Control里：

定义 CListCtrl m_ShowAdmin;

BOOL CSHOW::OnInitDialog()
{
 CDialog::OnInitDialog();
 
 // TODO: Add extra initialization here
 //获取原风格属性
 DWORD dwStyle = m_ShowAdmin.GetExtendedStyle();
 //添加CheckBox、整行选中、表格线属性
 dwStyle |= LVS_EX_FULLROWSELECT |LVS_EX_GRIDLINES;
 //设置新属性到控件
 m_ShowAdmin.SetExtendedStyle( dwStyle );

 m_ShowAdmin.InsertColumn(0,"用户名",LVCFMT_CENTER,80,0);
 m_ShowAdmin.InsertColumn(1,"密 码",LVCFMT_CENTER,80,1);

 _variant_t Sqlq="select * from Admin";
 theApp.ADOExecute(theApp.m_pRs,Sqlq);
 theApp.m_pRs->MoveFirst();
 int i=0;
 while(!theApp.m_pRs->adoEOF)
 {
  CString s1=(char*)(_bstr_t)theApp.m_pRs->GetCollect("Admin_User");  

  CString s2=(char*)(_bstr_t)theApp.m_pRs->GetCollect("Admin_Password

  m_ShowAdmin.InsertItem(i,"");
  m_ShowAdmin.SetItemText(i,0,s1);
  m_ShowAdmin.SetItemText(i,1,s2);
  i+=1;
  theApp.m_pRs->MoveNext();
 }

 return TRUE;  // return TRUE unless you set the focus to a control
               // EXCEPTION: OCX Property Pages should return FALSE
}

FROM: http://blog.sina.com.cn/s/blog_6854d4190100u1nh.html