mdb数据库的操作

来源：互联网发布：程序员好书编辑：程序博客网时间：2024/04/28 18:34

void CPopManuDlg::LoadBookInfo(BOOL IsDesc){m_list.DeleteAllItems();CString sql;if (!IsDesc)sql = "Select * from tb_bookinfo ORDER BY PRICE ASC";elsesql = "Select * from tb_bookinfo ORDER BY PRICE desc";CString fieldvalue;m_pRecord = m_pCon->Execute((_bstr_t)sql,NULL,adCmdText);int i = 0;while (! m_pRecord->ADOEOF && !m_pRecord->BOF){m_list.InsertItem(100,"");fieldvalue = (TCHAR*)(_bstr_t)m_pRecord->GetFields()->GetItem("bookname")->Value;m_list.SetItemText(i,0,fieldvalue);fieldvalue = (TCHAR*)(_bstr_t)m_pRecord->GetFields()->GetItem("barcode")->Value;m_list.SetItemText(i,1,fieldvalue);fieldvalue =(TCHAR*) (_bstr_t)m_pRecord->GetFields()->GetItem("author")->Value;m_list.SetItemText(i,2,fieldvalue);fieldvalue = (TCHAR*)(_bstr_t)m_pRecord->GetFields()->GetItem("bookconcern")->Value;m_list.SetItemText(i,3,fieldvalue);fieldvalue =(TCHAR*) (_bstr_t)m_pRecord->GetFields()->GetItem("price")->Value;m_list.SetItemText(i,4,fieldvalue);i+=1;m_pRecord->MoveNext();}}

导入库文件

#import "C:\Program Files\Common Files\System\ado\msado15.dll" rename_namespace("ADODB")\ rename("EOF","ADOEOF")using namespace ADODB ;

定义变量

_ConnectionPtr m_pCon;_RecordsetPtr m_pRecord;

数据库的初始化，

AfxOleInit();m_pCon.CreateInstance(__uuidof(Connection));m_pRecord.CreateInstance(__uuidof(Recordset));m_pCon->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; \Data Source=./Menu.mdb;Persist Security Info=False";try{m_pCon->Open("","","",-1);}catch(...){AfxMessageBox("数据库连接错误",0,0);exit;}