VC ADO库定义 和使用方法

来源:互联网 发布:淘宝高仿鞋店铺 2016 编辑:程序博客网 时间:2024/05/21 11:03

ADO(ActiveX Data Object)是Microsoft数据库应用程序开发的新接口,是建立在OLE DB之上的高层数据库访问技术


/***********************基本流程***********************************/   
  (1)初始化COM库,引入ADO库定义文件   
  (2)用Connection对象连接数据库   
  (3)利用建立好的连接,通过Connection、Command对象执行SQL命令,或利用Recordset对象取得结果记   
        录集进行查询、处理。   
  (4)使用完毕后关闭连接释放对象。   
    
      
    
  /***********************【1】COM库的初始化***********************************/   
  我们可以使用AfxOleInit()来初始化COM库,这项工作通常在CWinApp::InitInstance()的重载函数中完   
  成,请看如下代码:   
    
  BOOL   CADOTest1App::InitInstance()   
  {   
      AfxOleInit();   
      ......     
  }   
    
    
  /*****************【2】用#import指令引入ADO类型库**********************/   
  我们在stdafx.h中加入如下语句:   
  #import   "c:\program   files\common   files\system\ado\msado15.dll"   no_namespace   rename("EOF","adoEOF")   
  其最终作用同我们熟悉的#include类似,编译的时候系统会为我们生成msado15.tlh,ado15.tli两个C++头文件来定义ADO库。   
    
      
    
  /***************【3】创建Connection对象并连接数据库********************/   
    
  首先我们需要添加一个指向Connection对象的指针:   
    
  _ConnectionPtr   m_pConnection;   
    
  BOOL   CADOTest1Dlg::OnInitDialog()   
  {   
    CDialog::OnInitDialog();   
    try   
    {   
      HRESULT   hr   =   m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象   
      if(SUCCEEDED(hr))   
      {   
        hr   =   m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=test.mdb","","",adModeUnknown);//连接数据库   
        //上面一句中连接字串中的Provider是针对ACCESS2000环境的,对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;     }   
      }   
    }   
    catch   (_com_error   e)   //COM错误取得,当执行COM功能的时候,如果出错,可以捕捉到_com_error的异常   
    {       
      CString   strComError;   
      strComError.Format("错误编号:   %08lx\n错误信息:   %s\n错误源:   %s\n错误描述:   %s",   
                e.Error(),                                     //   错误编号   
                e.ErrorMessage(),                       //   错误信息   
                (LPCSTR)   e.Source(),                 //   错误源   
                (LPCSTR)   e.Description());     //   错误描述               
        
      ::MessageBox(NULL,strComError,"错误",MB_ICONEXCLAMATION);   
    }   
  }   
  也可以使用UDL文件进行连接。   
  try   
  {       
    m_pConnection.CreateInstance(__uuidof(Connection));         
    m_pConnection->ConnectionString   ="File   Name=e.udl";     
    m_pConnection->Open("","","",NULL);     
  }   
  catch(_com_error   e)   
  {....}   
    
  ◆在这段代码中我们是通过Connection对象的Open方法来进行连接数据库的,下面是该方法的原型   
    
  HRESULT   Connection15::Open   (_bstr_t   ConnectionString,   _bstr_t   UserID,   _bstr_t   Password,   long   Options   )   
    
  ConnectionString   为连接字串,   
  UserID         是用户名,     
  Password       是登陆密码,   
  Options         是连接选项,用于指定Connection对象对数据的更新许可权,     
            Options可以是如下几个常量:   
      
      adModeUnknown:       缺省。当前的许可权未设置   
      adModeRead:         只读   
      adModeWrite:       只写   
      adModeReadWrite:     可以读写   
      adModeShareDenyRead:   阻止其它Connection对象以读权限打开连接   
      adModeShareDenyWrite:   阻止其它Connection对象以写权限打开连接   
      adModeShareExclusive:   阻止其它Connection对象打开连接   
      adModeShareDenyNone:   允许其它程序或对象以任何权限建立连接   
    
    
  ◆常用的数据库连接方法:   
    
  (1)通过JET数据库引擎对ACCESS2000数据库的连接   
  m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=C:\\test.mdb","","",adModeUnknown);   
    
  (2)通过DSN数据源对任何支持ODBC的数据库进行连接:   
  m_pConnection->Open("Data   Source=adotest;UID=sa;PWD=;","","",adModeUnknown);   
  //m_pConnection->Open("DSN=test;","","",0);       //连接叫作test的ODBC数据源     
    
  (3)不通过DSN对SQL   SERVER数据库进行连接:     
  m_pConnection->Open("driver={SQL   Server};Server=127.0.0.1;DATABASE=vckbase;UID=sa;PWD=139","","",adModeUnknown);   
  其中Server是SQL服务器的名称,DATABASE是库的名称   
    
  ◆先介绍Connection对象中两个有用的属性ConnectionTimeOut与State   
  ConnectionTimeOut用来设置连接的超时时间,需要在Open之前调用,例如:   
      m_pConnection->ConnectionTimeout   =   5;   //设置超时时间为5秒   
      m_pConnection->Open("Data   Source=adotest;","","",adModeUnknown);   
    
  State属性指明当前Connection对象的状态,0表示关闭,1表示已经打开,我们可以通过   
  读取这个属性来作相应的处理,例如:   
  if(m_pConnection->State)   
      m_pConnection->Close();   //如果已经打开了连接则关闭它   
    
      
    
    
  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执行完后返回一个指向记录集的指针,下面我们给出具体代码并作说明。       
  try   
  {   
    _variant_t   ra;   
      
    m_pConnection->Execute("CREATE   TABLE   学生信息(学号   INTEGER,姓名   TEXT,年龄   INTEGER,生日   DATETIME)",&ra,adCmdText);   
    m_pConnection->Execute("INSERT   INTO   学生信息(学号,姓名,年龄,生日)   VALUES   (112105,   '程红秀',22,'1982-08-16')",&ra,adCmdText);//往表格里面添加记录   
    m_pRecordset   =   m_pConnection->Execute("SELECT   COUNT(*)   FROM   学生信息",&ra,adCmdText);       //执行SQL统计命令得到包含记录条数的记录集   
      
    _variant_t   vCount   =   m_pRecordset->GetCollect((_variant_t)(long)(0));   //取得第一个字段的值放入vCount变量   
      
    m_pRecordset->Close();     
    CString   message;   
    message.Format("共有%d条记录",vCount.lVal);   
    AfxMessageBox(message);         
  }   
    
  catch   (_com_error   e)     
  {   ...}   
    
      
  Top

4 楼alen_ghl(东方求*)回复于 2005-11-17 13:24:06 得分 0

  
  ◆(3)直接用Recordset对象进行查询取得记录集     
  例如     
      m_pRecordset->Open("SELECT   *   FROM   学生信息",_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请参考本文中对Connection对象的Execute方法的介绍   
    
      
    
    
  /***********************【5】记录集的遍历、更新*************************/   
    
  根据我们刚才通过执行SQL命令建立好的   学生信息   表,它包含四个字段:学号,姓名,年龄,生日   
  以下的代码实现:打开记录集,遍历所有记录,删除第一条记录,添加三条记录,移动光标到第二条   
  记录,更改其年龄,保存到数据库。   
    
    try   
    {   
      _variant_t   vUsername,vBirthday,vID,vOld;   
      _RecordsetPtr   m_pRecordset;   
        
      m_pRecordset.CreateInstance("ADODB.Recordset");   
      m_pRecordset->Open("SELECT   *   FROM   学生信息",_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("姓名");     //取得姓名字段的值   
        vOld   =   m_pRecordset->GetCollect("年龄");   
        vBirthday   =   m_pRecordset->GetCollect("生日");   
          
        TRACE("id:%d,姓名:%s,年龄:%d,生日:%s\r\n",   
          vID.lVal,   
          (LPCTSTR)(_bstr_t)vUsername,   
          vOld.lVal,   
          (LPCTSTR)(_bstr_t)vBirthday);     //在DEBUG方式下的OUTPUT窗口输出记录集中的记录   
      
        m_pRecordset->MoveNext();         //移到下一条记录   
      }   
        
      m_pRecordset->MoveFirst();         //移到首条记录   
      m_pRecordset->Delete(adAffectCurrent);         //删除当前记录   
        
        
      for(int   i=0;i<3;i++)         //添加三条新记录并赋值   
      {   
        m_pRecordset->AddNew();         //添加新记录   
        m_pRecordset->PutCollect("学号",_variant_t((long)(i+10)));   
        m_pRecordset->PutCollect("姓名",_variant_t("王斌年"));   
        m_pRecordset->PutCollect("年龄",_variant_t((long)21));   
        m_pRecordset->PutCollect("生日",_variant_t("1930-3-15"));   
      }   
        
      m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));         //从第一条记录往下移动一条记录,即移动到第二条记录处   
      m_pRecordset->PutCollect(_variant_t("年龄"),_variant_t((long)45));         //修改其年龄   
      m_pRecordset->Update();         //保存到库中   
        
    }   catch   (_com_error   e){}   
    
      
    
  /***********************【6】关闭记录集与连接   *************************/   
  记录集或连接都可以用Close方法来关闭                 
    m_pRecordset->Close();   //关闭记录集       
    m_pConnection->Close();   //关闭连接     
    
      
    
    
  在stdafx.h中进行宏定义:   
  #if   !defined   CATCH_ERROR   
  #define   CATCH_ERROR                       \   
      {                           \   
        CString   strComError;               \   
        strComError.Format("错误编号:   %08lx\n错误信息:   %s\n错误源:   %s\n错误描述:   %s",   \   
                  e.Error(),                                     \   
                  e.ErrorMessage(),                       \   
                  (LPCSTR)   e.Source(),                 \   
                  (LPCSTR)   e.Description());     \   
        ::MessageBox(NULL,strComError,"错误",MB_ICONEXCLAMATION);   \   
      }   
  #endif   
  使用方法:   
  try   
  {     ...}   
  catch(_com_error   e)   
  {   
    CATCH_ERROR;   
  }   
  Top

5 楼agentianle(那由他)回复于 2005-11-18 10:40:14 得分 0

MarkTop

6 楼xhl_dir(I'am 小强!)回复于 2005-11-18 11:13:49 得分 0

忍不住再回帖,Upppppp   To   end!!!Top

7 楼eagle1983(日光奇想)回复于 2005-11-21 20:37:24 得分 0

THX各位~~   
  很感谢很感谢   
    
  我后来也把问题解决了~~   
  所以都没上这里看~~   
    
  想不到有人回了这么多~~   
    
  我的问题的原因是在写入数据之前没有初始化数据连结没有打开记录集~~   
    
  所以写入失败~~   
    
    
  Top

8 楼eagle1983(日光奇想)回复于 2005-11-21 20:47:41 得分 0

但还遇到一个新问题:   
  我用了DataGrid网格来显示数据表里面的数据~~做了一个删除按钮~~   
  用的语句是:   
          m_pRecordset->Delete(adAffectCurrent);   
    
  每次删除都是第一条记录~~   
    
  如何实现删除用鼠标在DataGrid里面选定的那条记录呢?

0 0
原创粉丝点击