Visual C++中ADO编程

最新推荐文章于 2024-11-09 20:38:27 发布

no_object_life

最新推荐文章于 2024-11-09 20:38:27 发布

阅读量688

点赞数

文章标签： c++ 数据库 sql listview import dll

Visual C++中ADO编程

2009-06-17 09:27

1 引入ADO库文件
使用ADO前必须在工程的stdafx.h文件最后用直接引入符号＃import引入ADO库文件，以使编译器能正确编译。代码如下：
#import "C:/Program Files/Common Files/System/ado/msado15.dll" no_namespace rename("EOF","adoEOF")
ADO类的定义是作为一种资源存储在ADO DLL(msado15.dll）中，在其内部称为类型库。类型库描述了自治接口，以及C++使用的COM vtable接口。当使用＃import指令时，在运行时Visual C++需要从ADO DLL中读取这个类型库，并以此创建一组C++头文件。这些头文件具有.tli 和.tlh扩展名，读者可以在项目的目录下找到这两个文件。在C++程序代码中调用的ADO类要在这些文件中定义。代码将ADO中的EOF(文件结束)更名为adoEOF，以避免与定义了自己的EOF的其他库冲突。

2 生成应用框架并初始化OLE|COM环境
创建一个标准的MFC AppWizard(exe)程序，然后在框架OnInitDialog()函数中初始化OLE/COM环境，如下：
BOOL CADOTestDlg::OnInitDialog()
{
      CoInitialize(NULL);//初始化COM环境
};
在程序结束是，调用OnDestroy()函数，结束OLE/COM环境，释放其占有的资源。
CoUninitialize();//释放占有的资源

3 定义智能指针
public:
   _ConnectionPtr m_pConnection;
   _RecordsetPtr m_pRecordset;
_ConnectionPt用于连接数据，也可以方便的对数据库进行操作。
_RecordsetPtr作为数据库操作返回集，查询完的数据存在里面。
在构造函数中，初始化他们为null，程序最后也要初始化他们，进行资源释放。

4 连接数据库
void CADOTestDlg::OnButtonconnect()
{
// TODO: Add your control notification handler code here
m_pConnection.CreateInstance(_uuidof(Connection));//初始化m_pConnection，生成一个实例
//try{}catch(){}是数据库操作中经常用的组合，可以捕捉错误信息有利于调试
try
{
   //m_pConnection->Open进行连接数据库。记住格式
   m_pConnection->Open("Provider=OraOLEDB.Oracle;Password=tiger;User ID=scott;Data Source=myoracle","","",0);
   AfxMessageBox("连接成功");
}
catch (_com_error e)
{
   AfxMessageBox(e.ErrorMessage());
}
}
Open函数的第一个参数包含了provider，password，user ID，data source四项数据库信息。

5 查询数据库
void CADOTestDlg::OnButtonselect()
{
m_pRecordset.CreateInstance(_uuidof(Recordset));//初始化m_pRecordset，生成一个实例
_variant_t recordvariant;
try
{
   CString sqlstr;
   sqlstr.Format("select *from scott.student");//一个SQL语句
   //利用Connection执行这个SQL语句，并把结果返回m_pRecordset记录集
   m_pRecordset=m_pConnection->Execute((_bstr_t)sqlstr,&recordvariant,adCmdText);
   while (!m_pRecordset->adoEOF)
   {
    //读取各个字段的值
    _bstr_t value_name=m_pRecordset->Fields->GetItem("NAME")->Value;
    _bstr_t value_id=m_pRecordset->Fields->GetItem("ID")->Value;
    _bstr_t value_professiongal=m_pRecordset->Fields->GetItem("PROFRESSIONAL")->Value;
    _bstr_t value_age=m_pRecordset->Fields->GetItem("AGE")->Value;
    _bstr_t value_th_id=m_pRecordset->Fields->GetItem("TH_ID")->Value;
    CString name_str,id_str,professionalfu_str,age_str,th_id_str;
    //转化为Cstring类型
    name_str.Format("%s",(const char*)value_name);
    id_str.Format("%s",(const char*)value_id);
    professionalfu_str.Format("%s",(const char*)value_professiongal);
    age_str.Format("%s",(const char*)value_age);
    th_id_str.Format("%s",(const char*)value_th_id);
    //向list表插入，博主补充，m_list是listview控件
    m_list.InsertItem(0,LPSTR_TEXTCALLBACK);
    m_list.SetItemText(0,0,id_str);
    m_list.SetItemText(0,1,name_str);
    m_list.SetItemText(0,2,professionalfu_str);
    m_list.SetItemText(0,3,age_str);
    m_list.SetItemText(0,4,th_id_str);
    //指向下一条记录
    m_pRecordset->MoveNext();
   }
}
catch(_com_error e)
{
   e.ErrorMessage();
}
}
Connection 执行SQL语句Execute的原型如下：
Execute ( _bstr_t CommandText, VARIANT *RecordsAffected, long Options )
CommandText是SQL语句，但是一定要把包含SQL语句的字符串转化为_bstr_t类型；RecordsAffected是_variant_t类型，是操作完成后影响的行数；Options指示CommandText中内容类型，具体取值如下：
adCmdText:表明CommandText是文本命令，一般就是这个参数
adCmdTable:表明CommandText是一个表名
adCmdProc:表明CommandText是一个存储过程
adCmdUnknown:未知

除了可以用connection执行SQL语句外，还可以用Command和recordset执行。

6 插入数据库
void CADOTestDlg::OnButtoninsert()
{
//控件向变量传递值
UpdateData(TRUE);
_variant_t recordvariant;
CString SQLstr;
SQLstr.Format("INSERT INTO SCOTT.STUDENT(ID,NAME,PROFRESSIONAL,AGE,TH_ID) VALUES(%d,'%s','%s',%d,%d)",id_int,m_namestr,m_prostr,age_int,th_id_int);
try
{
   m_pConnection->Execute((_bstr_t)SQLstr,&recordvariant,adCmdText);
   AfxMessageBox("插入成功");
}
catch(_com_error e)
{
   AfxMessageBox(e.ErrorMessage());
}
}
SQL语句中的知识点：
在VC中，如果SQL语句中有变量，其形式是这样的。如果是字符变量，则用’%s’关联，如果是整型变量，则用%d关联。

7 更新和删除
基本上和上面的一样。
void CADOTestDlg::OnButtonupdata()
{
   _variant_t recordvariant;
   try
{
     m_pConnection->Execute("update scott.student set NAME='sssss' where ID=10000001",
       &recordvariant,adCmdText);
     AfxMessageBox("更新成功");
   }
   catch(_com_error e)
   {
      AfxMessageBox(e.ErrorMessage());
   }
}

//删除
void CADOTestDlg::OnButtondelete()
{
   _variant_t recordvariant;
   try
{
      m_pConnection->Execute("delete from scott.student where ID=10000004",
          &recordvariant,adCmdText);
      AfxMessageBox("删除成功");
}
catch(_com_error e)
{
     AfxMessageBox(e.ErrorMessage());
   }

}