在Visual C++中用ADO进行数据库编程(关键文章)

 

Visual C++中用ADO进行数据库编程

1. 生成应用程序框架并初始化OLE/COM库环境

  创建一个标准的MFC AppWizard(exe)应用程序,然后在使用ADO数据库的InitInstance函数中初始化OLE/COM库(因为ADO库是一个COM DLL库)。
本例为:

 BOOL CAdotestDlg::OnInitDialog()

 {

        ::CoInitialize(NULL); //初始化OLE/COM库环境

 }

  程序最后要调用 ::CoUninitialize()//释放程序占用的COM 资源。

  另外:

m_pRecordset->Close(); 注意!!!不要多次关闭!!!!!!!!!!!!

m_pConnection->Close();

m_pRecordset = NULL;

m_pConnection = NULL;

  2. 引入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对象不使用名称空间。在有些应用程序中,由于应用程序中的对象与ADO中的对象之间可能会出现命名冲突,所以有必要使用名称空间。如果要使用名称空间,则可把第三行程序修改为: rename_namespace("AdoNS")。第四行代码将ADO中的EOF(文件结束)更名为adoEOF,以避免与定义了自己的EOF的其他库冲突。

  3.利用智能指针进行数据库操作

  在CaboutDlg头文件中定义两个ADO智能指针类实例,并在对话框中加入一个ListCtrl

 class CAdotestDlg : public CDialog

{

     _ConnectionPtr m_pConnection;

     _RecordsetPtr m_pRecordset;

   ClistCtrl m_List;

     ......

}     

  ADO库包含三个智能指针:_ConnectionPtr_CommandPtr_RecordsetPtr

  _ConnectionPtr通常被用来创建一个数据连接或执行一条不返回任何结果的SQL语句,如一个存储过程。
  _CommandPtr返回一个记录集。它提供了一种简单的方法来执行返回记录集的存储过程和SQL语句。在使用_CommandPtr接口时,可以利用全局_ConnectionPtr接口,也可以在_CommandPtr接口里直接使用连接串。  _RecordsetPtr是一个记录集对象。与以上两种对象相比,它对记录集提供了更多的控制功能,如记录锁定、游标控制等。

  在使用ADO程序的事件响应中OnButton1加入以下代码:

void CAdotestDlg::OnButton1()

{

 m_List.ResetContent();

 m_pConnection.CreateInstance(_uuidof(Connection)); //初始化Connection指针

 m_pRecordset.CreateInstance(_uuidof(Recordset));//初始化Recordset指针

 try

 {

 m_pConnection->Open("DSN=ADOTest","","",0); //连接叫作ADOTestODBC数据源

 //注意:这是连接不需要用户ID或密码的open 函数

 // 否则形式为 ->Open("DSN=test;uid=sa;pwd=123;","","",0);

 

 // 执行SQL语句得到一个记录集把其指针赋值给m_pRecordset

 CString strSql="select * from middle";

 BSTR bstrSQL = strSql.AllocSysString();

 m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,
adCmdText);

 //adOpenDynamic:动态 adLockOptimistic乐观封锁法 adCmdText:文本查询语句

 while(!m_pRecordset->adoEOF)//遍历所有记录

 {

   //取纪录字段值方式之一

   _variant_t TheValue; //VARIANT数据类型

   TheValue = m_pRecordset->GetCollect("BIG_NAME");//得到字段BIG_NAME的值

   if(TheValue.vt!=VT_NULL)

    m_List.AddString((char*)_bstr_t(TheValue));

   //将该值加入到列表控件中

 

   //取纪录字段值方式之二

   // _bstr_t TheValue1=m_pRecordset->Fields->GetItem("BIG_NAME")->Value;

   // CString temp=TheValue1.copy();

   // m_List.AddString(temp);

   //数据类型转换

   _variant_t vUsername,vBirthday,vID,vOld;

   TRACE("id:%d,姓名:%s,年龄:%d,生日:%s\r\n",

   vID.lVal,(LPCTSTR)(_bstr_t)vUsername,vOld.lVal,(LPCTSTR)(_bstr_t)vBirthday);

 

   m_pRecordset->MoveNext();//转到下一条纪录

 }

 m_pRecordset->Close();

 m_pConnection->Close();

 }

 catch (_com_error e)//异常处理

 {

 AfxMessageBox(e.ErrorMessage());

 }

 m_pRecordset->Close(); //注意!!!不要多次关闭!!!!否则会出错

 m_pConnection->Close();

 m_pRecordset = NULL;

 m_pConnection = NULL;

}


  程序中通过_variant_t_bstr_t转换COM对象和C++类型的数据, _variant_t类封装了OLE自治VARIANT数据类型。在C++中使用_variant_t类要比直接使用VARIANT数据类型容易得多。

  好,编译后该程序就能运行了,但记住运行前要创建一个叫ADOTestODBC数据源。该程序将把表middle中的BIG_NAME字段值显示在列表控件中。

4.执行SQL命令并取得结果记录集

      为了取得结果记录集,我们定义一个指向Recordset对象的指针:_RecordsetPtr m_pRecordset;
并为其创建Recordset对象的实例: m_pRecordset.CreateInstance("ADODB.Recordset");
SQL命令的执行可以采用多种形式,下面我们一进行阐述。

  (1)利用Connection对象的Execute方法执行SQL命令

  Execute方法的原型如下所示:

     _RecordsetPtr Connection15::Execute ( _bstr_t CommandText, VARIANT * RecordsAffected,
 long Options )

     其中CommandText是命令字串,通常是SQL命令。

 参数RecordsAffected是操作完成后所影响的行数,

 参数Options表示CommandText中内容的类型,Options可以取如下值之一:

 adCmdText:表明CommandText是文本命令

 adCmdTable:表明CommandText是一个表名

 adCmdProc:表明CommandText是一个存储过程

 adCmdUnknown:未知

    Execute执行完后返回一个指向记录集的指针,下面我们给出具体代码并作说明。

    _variant_t RecordsAffected;

    ///执行SQL命令:CREATE TABLE创建表格users,users包含四个字段:整形ID,字符串username,
整形old,日期型birthday

    m_pConnection->Execute("CREATE TABLE users(ID INTEGER,username TEXT,old INTEGER,birthday
DATETIME)",

   &RecordsAffected,

   adCmdText);

    ///往表格里面添加记录

    m_pConnection->Execute("INSERT INTO users(ID,username,old,birthday) VALUES
(1, ''''Washington'''',25,''''1970/1/1'''')",&RecordsAffected,adCmdText);

    ///将所有记录old字段的值加一

    m_pConnection->Execute("UPDATE users SET old = old+1",&RecordsAffected,adCmdText);

    ///执行SQL统计命令得到包含记录条数的记录集

    m_pRecordset = m_pConnection->Execute("SELECT COUNT(*) FROM users",&RecordsAffected,adCmdText);

    _variant_t vIndex = (long)0;

    _variant_t vCount = m_pRecordset->GetCollect(vIndex);///取得第一个字段的值放入vCount变量

    上两句可以写成— _variant_t vCount = m_pRecordset->GetCollect((_variant_t)((long)0));

    m_pRecordset->Close();///关闭记录集

    CString message;

    message.Format("共有%d条记录",vCount.lVal);

    AfxMessageBox(message);///显示当前记录条数

(2)利用Command对象来执行SQL命令

_CommandPtr m_pCommand;

m_pCommand.CreateInstance("ADODB.Command");

_variant_t vNULL;

vNULL.vt = VT_ERROR;

vNULL.scode = DISP_E_PARAMNOTFOUND;///定义为无参数

m_pCommand->ActiveConnection = m_pConnection;///非常关键的一句,将建立的连接赋值给它

m_pCommand->CommandText = "SELECT * FROM users";///命令字串

m_pRecordset = m_pCommand->Execute(&vNULL,&vNULL,adCmdText);///执行命令,取得记录集

  在这段代码中我们只是用Command对象来执行了SELECT查询语句,Command对象在进行存储过程的调用中能真正体现它的作用。下次我们将详细介绍。

  (3)直接用Recordset对象进行查询取得记录集

  实例——

void CGmsaDlg::OnDBSelect()

{

    // TODO: Add your control notification handler code here

     _RecordsetPtr Rs1; //定义Recordset对象

    _bstr_t Connect("DSN=GMS;UID=sa;PWD=;");//定义连接字符串

    _bstr_t Source ("SELECT count(*) FROM buaa.mdb010"); //要执行的SQL语句

    ::CoInitialize(NULL);    //初始化Rs1对象

        HRESUL hr = Rs1.CreateInstance( __uuidof( Recordset ) );

       //省略对返回值hr的判断

     Rs1->Open( Source,

            Connect,

                adOpenForwardOnly,

                    adLockReadOnly,

            -1 );

    _variant_t temp=Rs1->GetCollect(_variant_t((long)0));

    CString strTemp=(char* )(_bstr_t)temp;

    MessageBox("OK!"+strTemp);

}

例如

 m_pRecordset->Open("SELECT * FROM users",

 _variant_t((IDispatch *)m_pConnection,true),

 adOpenStatic,

 adLockOptimistic,

 adCmdText);

Open方法的原型是这样的:

HRESULT Recordset15::Open ( const _variant_t & Source,

   const _variant_t & ActiveConnection,

   enum CursorTypeEnum CursorType,

   enum LockTypeEnum LockType,

   long Options )

其中:

①Source是数据查询字符串

②ActiveConnection是已经建立好的连接(我们需要用Connection对象指针来构造一个_variant_t对象)

③CursorType光标类型,它可以是以下值之一,请看这个枚举结构:

enum CursorTypeEnum

{

 adOpenUnspecified = -1,///不作特别指定

 adOpenForwardOnly = 0,///前滚静态光标。这种光标只能向前浏览记录集,比如用MoveNext向前滚动,这种方
式可以提高浏览速度。但诸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能使用

 adOpenKeyset = 1,///采用这种光标的记录集看不到其它用户的新增、删除操作,但对于更新原有记录的操
作对你是可见的。

 adOpenDynamic = 2,///动态光标。所有数据库的操作都会立即在各用户记录集上反应出来。

 adOpenStatic = 3///静态光标。它为你的记录集产生一个静态备份,但其它用户的新增、删除、更新操作对你
的记录集来说是不可见的。

};

④LockType锁定类型,它可以是以下值之一,请看如下枚举结构:

enum LockTypeEnum

{

 adLockUnspecified = -1,///未指定

 adLockReadOnly = 1,///只读记录集

 adLockPessimistic = 2,悲观锁定方式。数据在更新时锁定其它所有动作,这是最安全的锁定机制

 adLockOptimistic = 3,乐观锁定方式。只有在你调用Update方法时才锁定记录。在此之前仍然可以做
数据的更新、插入、删除等动作

 adLockBatchOptimistic = 4,乐观分批更新。编辑时记录不会锁定,更改、插入及删除是在批处理模
式下完成。

};

⑤Options可以取如下值之一:

 adCmdText:表明CommandText是文本命令

 adCmdTable:表明CommandText是一个表名

 adCmdProc:表明CommandText是一个存储过程

 adCmdUnknown:未知

 5. 记录集的遍历、更新

      根据我们刚才通过执行SQL命令建立好的users表,它包含四个字段:ID,username,old,birthday
以下的代码实现:打开记录集,遍历所有记录,删除第一条记录,添加三条记录,移动光标到第二条记录,
更改其年龄,保存到数据库。

_variant_t vUsername,vBirthday,vID,vOld;

_RecordsetPtr m_pRecordset;

m_pRecordset.CreateInstance("ADODB.Recordset");

m_pRecordset->Open("SELECT * FROM users",

 _variant_t((IDispatch*)m_pConnection,true),

 adOpenStatic,

 adLockOptimistic,

 adCmdText);

while(!m_pRecordset->adoEOF)

{

    vID = m_pRecordset->GetCollect(_variant_t((long)0));///取得第1列的值,0开始计数,

    ///你也可以直接给出列的名称,如下一行

    vUsername = m_pRecordset->GetCollect("username");///取得username字段的值

    vOld = m_pRecordset->GetCollect("old");

    vBirthday = m_pRecordset->GetCollect("birthday");

    ///DEBUG方式下的OUTPUT窗口输出记录集中的记录

    if(vID.vt != VT_NULL && vUsername.vt != VT_NULL && vOld.vt != VT_NULL && vBirthday.vt
 != VT_NULL)

        TRACE("id:%d,姓名:%s,年龄:%d,生日:%s\r\n",

 vID.lVal,

 (LPCTSTR)(_bstr_t)vUsername,

 vOld.lVal,

 (LPCTSTR)(_bstr_t)vBirthday);

    m_pRecordset->MoveNext();///移到下一条记录

}

m_pRecordset->MoveFirst();///移到首条记录

m_pRecordset->Delete(adAffectCurrent);///删除当前记录

///添加三条新记录并赋值

for(int i=0;i<3;i++)

{

    m_pRecordset->AddNew();///添加新记录

    m_pRecordset->PutCollect("ID",_variant_t((long)(i+10)));

    m_pRecordset->PutCollect("username",_variant_t("叶利钦"));

    m_pRecordset->PutCollect("old",_variant_t((long)71));

    m_pRecordset->PutCollect("birthday",_variant_t("1930-3-15"));

}

(Chen Yong : 要想使下面的Move()正常运行请在上面使用adOpenKeyset adOpenStatic, 不要使用adOpenDynamic)

对于该 CursorType 的某Recordset

对于所有这些常量,Supports 方法必须返回 True

adOpenForwardOnly

adOpenKeyset

AdBookmarkadHoldRecordsadMovePreviousadResync

adOpenDynamic

adMovePrevious

adOpenStatic

adBookmarkadHoldRecordsadMovePreviousadResync

 

 

m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));///从第一条记录往下移动一条记录,即移动
到第二条记录处

m_pRecordset->PutCollect(_variant_t("old"),_variant_t((long)45));///修改其年龄

m_pRecordset->Update();///保存到库中   

备注:多次查询可把查询过程做成一个函数ExecuteSQLm_pRecordset获得连接指针m_pConnection查询结果

void ExecuteSQL(_ConnectionPtr m_pConnection, _RecordsetPtr m_pRecordset,CString strSql)

{

    //执行Select 语句

    BSTR bstrSQL = strSql.AllocSysString();           

     try

     {

        m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,
adCmdText);

            //adOpenDynamic:动态 adLockOptimistic乐观封锁法 adCmdText:文本查询语句

     }

     catch(_com_error error)

     {

        CString errorMessage;

        errorMessage.Format("%s",(LPTSTR)error.Description());

        AfxMessageBox(errorMessage);

     }

}       

//出错处理:

3127——没有找到目标表

3092——目标表已经存在

例如:

catch(const _com_error e)

{

     AfxMessageBox(e.Description());

     long errorCode=e.WCode();

     if(3127==errorCode) AfxMessageBox("表不存在");

     if(3092==errorCode) AfxMessageBox("表已经存在");

     return FALSE;

}

 

posted on 2007-03-31 19:51  cy163  阅读(...)  评论(...编辑  收藏

导航