使用ADO及listCtrl控件操作ACCESS数据库.docVIP

使用ADO及listCtrl控件IDC_LIST1 View列表选Report Single selection 选中（限制列表项单选） ●在StdAfx.h文件加入下面命令： #importC:\Program Files\Common Files\System\ado\msado15.dllno_namespace rename(EOF,adoEOF) ●使用类向导为IDC_LIST1列表视控件绑定控件型变量m_list ●在CadoListDlg类添加下面三个成员变量 _ConnectionPtr m_pConnection; _RecordsetPtr m_pRecordset; ●在BOOL CAdoListDlg::OnInitDialog()窗口初始化函数中加入下面命令： // TODO: Add extra initialization here CoInitialize(NULL); try { HRESULT hr; m_pConnection.CreateInstance(ADODB.Connection); hr=m_pConnection-Open(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=stu1.mdb,,,adModeUnknown); } catch(_com_error e) { CString errormessage; errormessage.Format(连接数据库失败!\n错误信息:%s,e.ErrorMessage()); AfxMessageBox(errormessage); } try { m_pRecordset.CreateInstance(__uuidof(Recordset)); m_pRecordset-Open(SELECT * FROM student,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText); } catch(_com_error e) { CString errormessage; errormessage.Format(连接数据库表失败!\n错误信息:%s,e.ErrorMessage()); AfxMessageBox(errormessage); } m_list.SetExtendedStyle(LVS_EX_FLATSB |LVS_EX_FULLROWSELECT//点击一项时,整行都为选中状态 |LVS_EX_GRIDLINES); //设置网格线 m_list.InsertColumn(0,学号,LVCFMT_LEFT,80); m_list.InsertColumn(1,姓名,LVCFMT_LEFT,50); m_list.InsertColumn(2,年龄,LVCFMT_RIGHT,36); disp(); //显示数据库数据记录 return TRUE; // return TRUE unless you set the focus to a control ●在CAdoListDlg类添加下面成员函数disp()(并在类定义中声明)显示数据库记录： void CAdoListDlg::disp() { m_list.DeleteAllItems(); int i=0; m_pRecordset-MoveFirst(); while(!m_pRecordset-adoEOF)//adoEOF是末尾标识 { _variant_t theValue; CString id,name,age; theValue=m_pRecordset-GetCollect(StuID); //获取学号 if(theValue.vt!=VT_NULL) id=(char*)_bstr_t(theValue); theValue=m_pRecordset-GetCollect(StuName);//获取姓名 if(theValue.vt!=VT_NULL) name=(char *)_bstr_t(theValue); theValue=m_pRecordset-GetCollect(age);//获取年龄 if(theValue.vt!=VT_NULL) age.Format(%d,theValue.iVal); m_list.InsertItem(i,); m_li