使用ADO对象向数据库添加数据

一、首先创建基于对话框的应用程序：

 

二、添加“List Contr”控件:

1、设置控件属性：

    （1）“style”->“View”->“Report”

                ->勾选：“Single selection”、“Auto arrange” 

    （2）“General”->勾选：“Client edge”

 

三、添加实现功能代码：

1、导入ADO动态链接库：
在Header File文件夹的StdAfx.h文件中添加：
  #import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace\
  rename("EOF","adoEOF")rename("BOF","adoBOF")     //导入ADO动态链接库

 

2、初始化COM环境：

BOOL CInsertDataDlg::OnInitDialog()
{
 CDialog::OnInitDialog();

 SetIcon(m_hIcon, TRUE);  
 SetIcon(m_hIcon, FALSE);  
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 

m_List.SetExtendedStyle(LVS_EX_FLATSB       //扁平风格显示滚动条
  |LVS_EX_FULLROWSELECT              //允许整行选中
  |LVS_EX_HEADERDRAGDROP           //允许整列拖动
  |LVS_EX_ONECLICKACTIVATE          //单击选中项
  |LVS_EX_GRIDLINES);                 //画出网格线
 //设置列标题及列宽度
 m_List.InsertColumn(0,"商品名称",LVCFMT_LEFT,110,0);
 m_List.InsertColumn(1,"销售数量",LVCFMT_LEFT,110,1);
 try
 {
  m_pConnection.CreateInstance("ADODB.Connection");     //创建连接对象实例
  _bstr_t strConnect="DRIVER={Microsoft Access Driver (*.mdb)};\
   uid=;pwd=;DBQ=Database.mdb;";
  m_pConnection->Open(strConnect,"","",adModeUnknown);   //打开数据库
 }
 catch (_com_error e)           //捕捉错误
 {
  AfxMessageBox(e.Description());        //弹出错误
 }
 CString sql = "select * from SellInfo";
 m_pRecordset.CreateInstance(__uuidof(Recordset));    //创建记录集对象实例
 m_pRecordset->Open(_bstr_t(sql), m_pConnection.GetInterfacePtr(),
  adOpenDynamic, adLockOptimistic, adCmdText);    //执行SQL得到记录集
 while (!m_pRecordset->adoEOF)      //记录集不为空时循环
 {
  m_List.InsertItem(0,"");        //向列表视图控件中插入行
  //向列表视图控件中插入列
  m_List.SetItemText(0,0,(char*)(_bstr_t)m_pRecordset->GetCollect("Merchandise"));
  m_List.SetItemText(0,1,(char*)(_bstr_t)m_pRecordset->GetCollect("Sum"));
  m_pRecordset->MoveNext();      //将记录集指针移动到下一条记录
 }
 m_pRecordset->Close();        //关闭记录集

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 return TRUE;  // return TRUE  unless you set the focus to a control
}

 

3、编写实现添加功能的函数：

void CInsertDataDlg::OnButinsert()
{
// TODO: Add your control notification handler code here
UpdateData(TRUE);
if (m_Name.IsEmpty()) //数据不能为空
 {
  MessageBox("基础信息不能为空！"); //为空时弹出提示信息
  return;
 }
 CString sql = "select * from SellInfo";    //设置查询字符串
 CString str;
 str.Format("%d",m_Num);
 m_pRecordset.CreateInstance(__uuidof(Recordset));  //创建记录集对象实例
 m_pRecordset->Open(_bstr_t(sql), m_pConnection.GetInterfacePtr(),
  adOpenDynamic, adLockOptimistic, adCmdText);  //执行SQL得到记录集
 try
 {
  m_pRecordset->AddNew();       //添加新行
  //向数据库中插入数据
  m_pRecordset->PutCollect("Merchandise",(_bstr_t)m_Name);
  m_pRecordset->PutCollect("Sum",(_bstr_t)str);
  m_pRecordset->Update();       //更新数据表记录
  m_pRecordset->Close();        //关闭记录集
 }
 catch (...)            //捕捉可能出现的错误
 {
  MessageBox("操作失败");        //弹出错误提示
  return;
 }
 MessageBox("添加成功");         //提示操作成功
 int num = m_List.GetItemCount();
 m_List.InsertItem(num,m_Name);

m_List.SetItemText(num,1,str);

}

 

4、编写退出函数：

void CInsertDataDlg::OnCancel()
{
          m_pConnection->Close();
         CDialog::OnCancel();

}