实用技巧

关注公众号 jb51net

关闭
首页 > 网络编程 > ASP.NET > 实用技巧 > vc ado数据库

VC用Ado接口连接和使用数据库及注意事项

作者:

进行方法调用时,所传递的参数的类型的转换(可能存在比本文更简便的处理方法但我未发现) ,需要了解的朋友可以参考下
一、阅读本文所需注意的其它事项
  1、进行方法调用时,所传递的参数的类型的转换(可能存在比本文更简便的处理方法但我未发现)
  2、每个源文件的每行注释说明了其文件名
  3、请关注相关头文件包含关系
  4、请关注文中所有中文注释
  5、更多的内容请参阅 "VC安装目录\Include\adoint.h"文件,adoint即ActiveX Data Object
  InterFace(菜 鸟请勿惊慌,这仅仅只是个名称)

二、下面的源文件与您的数据库应用程序不直接相关,但其目标代码(生成的.obj文件)是您必需的,请参考
  file://Ado.cpp文件///////////////////////////////////////////
  #include
  #include
  #include
  该文件使用方法:新建一个空的MFC工程,将此文件添加到该工程中,编译生成Ado.obj文件,再将此.obj文件添加到您的数据库应用程序.该源文件在您的数据库应用程序中是不需要的。

三、下面是与您的数据库应用程序源文件相关代码(非所有代码)
复制代码 代码如下:

  file://1、ado.h文件////////////////////////////////////////
  #ifndef __ADO__H__LZG
  #define __ADO__H__LZG
  #include
  #include
  #include
  #endif
  file://2、stdafx.h文件////////////////////////////////////////
  #if _MSC_VER > 1000
  #pragma once
  #endif // _MSC_VER > 1000
  #define VC_EXTRALEAN // Exclude rarely-used stuff from Windows headers
  #include // MFC core and standard components
  #include // MFC extensions
  #include // MFC Automation classes
  #include // MFC support for Internet Explorer 4 Common Controls
  #include "ado.h" file://请注意这里
  #ifndef _AFX_NO_AFXCMN_SUPPORT
  #include
  file://3、数据库应用程序.h文件///////////////////////////////////////////////
  file://以下为用到的若干相关数据库引用变量(声明在其头文件中)
  ADOField* pfd;
  ADOFields* pfds;
  CString m_dbfile;
  ADORecordset* prs;
  ADOConnection* pdb;
  file://4、数据库应用程序.cpp文件/////////////////////////////////////////////
  #include "stdafx.h"
  #include "数据库应用程序.h"
  file://这里添加其它相关头文件
  file://以下为该.cpp文件中若干自定义或非自定义的方法,与数据库连接相关
  file://其中每一条语句都有含义,请关注其中的注释
  BOOL CBKDlg::InitDataEnv()
  {
   file://下面定义了一个简单的连接字符串,当然还有更复杂的
   CString s=_T("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\\data\\资料借阅管理.mdb");
   ::CoInitialize (NULL);//初始化COM环境
   CoCreateInstance(CLSID_CADOConnection,
   NULL,
   CLSCTX_INPROC_SERVER,
   IID_IADOConnection15,
   (LPVOID*)&pdb
   );//初始化一个ADO连接
  CoCreateInstance(CLSID_CADORecordset,
   NULL,
   CLSCTX_INPROC_SERVER,
   IID_IADORecordset,
   (LPVOID*)&prs
   );//初始化一个ADO数据集
  CoCreateInstance(CLSID_CADOField,
   NULL,
   CLSCTX_INPROC_SERVER,
   IID_IADOFields,
   (LPVOID*)&pfds
   );//初始化一个ADO数据域集合(域即是Fox中的字段,下同)
  CoCreateInstance (CLSID_CADOField,
   NULL,
   CLSCTX_INPROC_SERVER,
   IID_IADOField,
   (LPVOID*)&pfd
   );//初始化一个ADO数据域集合中的一个域
  file://打开上述ADO连接
  pdb->Open((unsigned short*)(LPCSTR)s,(unsigned short*)"",(unsigned short*)"",0);
   file://打开上述ADO数据集,但它的连接参数是使用的上述字符串
  file://应当存在以上面的连接替换该字符串的方法,但我没找到
  prs->Open(COleVariant(_T("资料信息")),COleVariant(s),adOpenKeyset,adLockOptimistic,adCmdTable);
  file://数据集的域不存在打开与否,只需直接到已打开的数据集中引用即可,详情请见
  
  file://CBKDlg::OnBeforeColUpdateDatagrid方法
  m_dg.ClearFields ();//MS DATAGRID 控件(Activex)的数据清空
  m_dg.SetRefDataSource(prs); file://上述控件与数据集的绑定
  return TRUE;
  }
  BOOL CBKDlg::DestroyWindow()
   {
    // TODO: Add your specialized code here and/or call the base class
    m_dg.SetRefDataSource(NULL);
    long state;
    file://下面的处理可能存在逻辑上的错误,不过关闭数据集与数据连接的语法是正确的
    if(!FAILED(prs->get_State(&state)))
     if(state!=adStateClosed)
      {
       prs->Close();
       prs=NULL;
      }
     if(!FAILED(pdb->get_State(&state)))
      if(state!=adStateClosed)
      {
       pdb->Close();
       pdb=NULL;
      }
     ::CoUninitialize ();//释放COM环境
     return CDialog::DestroyWindow();
    }
    void CBKDlg::OnBeforeColUpdateDatagrid(short ColIndex, VARIANT FAR* OldValue, short FAR* Cancel)
   {
    file://该事件(方法)在MS DATAGRID 控件(ActiveX)的单元数据更新前发生
    file://该事件您可能用不着,但其中的代码您可能用得着
    COleVariant v((LPCSTR)m_dg.GetText ());//获取上述控件当前单元格的数据
    CString fieldname=m_dg.GetColumns().GetItem(COleVariant(ColIndex)).GetCaption();
    DataTypeEnum fieldtype;//描述ADO数据类型的枚举类型
    prs->get_Fields(&pfds);//从数据集中获得数据域集合
    pfds->get_Item (COleVariant(fieldname),&pfd);//从数据域集合中获得特定名称的域
    pfd->get_Type (&fieldtype);//从上述域中获取其数据类型,如整型或字符串型
    switch (fieldtype){
     case adSmallInt:
     case adInteger:
          break;
     case adDate:
          break;
     case adCurrency://Data type describing for Money ,Understand?
          break;
     case adVarChar://对应于VB中的String类型和VC中的CString类型
          break;
     default:
          break;
     }
    }//该方法来源于MS DataGrid ActiveX控件的事件,无具体的处理代码,望海涵
您可能感兴趣的文章:
阅读全文