VC中用Ado接口代码连接和使用与数据库

类别:VC语言 点击:0 评论:0 推荐:

标题:VC中用Ado接口代码连接和使用与数据库

一、阅读本文所需注意的其它事项:

1、进行方法调用时,所传递的参数的类型的转换(可能存在比本文更简便的处理方法但我未发现)

2、每个源文件的每行注释说明了其文件名

3、请关注相关头文件包含关系

4、请关注文中所有中文注释

5、更多的内容请参阅 "VC安装目录\Include\adoint.h"和"VC安装目录\Include\adoid.h"文件,adoint即ActiveX Data Object InterFace

 

二、下面的源文件与您的数据库应用程序不直接相关,但其目标代码(生成的.obj文件)是您必需的,请参考

//Ado.cpp文件///////////////////////////////////////////

#include <objbase.h>

#include <Initguid.h>

#include <adoid.h>

该文件使用方法:新建一个空的MFC工程,将此文件添加到该工程中,编译生成Ado.obj文件,再将此.obj文件添加到您的数据库应用程序.该源文件在您的数据库应用程序中是不需要的----作者

 

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

//1、ado.h文件////////////////////////////////////////

#ifndef __ADO__H__LZG

#define __ADO__H__LZG

#include <adoid.h>

#include <adoint.h>

#include <icrsint.h>

#endif

 

//2、stdafx.h文件////////////////////////////////////////

#if _MSC_VER > 1000

#pragma once

#endif // _MSC_VER > 1000

#define VC_EXTRALEAN       // Exclude rarely-used stuff from Windows headers

#include <afxwin.h>         // MFC core and standard components

#include <afxext.h>         // MFC extensions

#include <afxdisp.h>        // MFC Automation classes

#include <afxdtctl.h>      // MFC support for Internet Explorer 4 Common Controls

#include "ado.h"           //请注意这里

#ifndef _AFX_NO_AFXCMN_SUPPORT

#include <afxcmn.h> 

 

 

//3、数据库应用程序.h文件/////////////////////////////////////////////////////////////////////

//以下为用到的若干相关数据库引用变量(声明在其头文件中)

       ADOField* pfd;

       ADOFields* pfds;

       CString m_dbfile;

       ADORecordset* prs;

       ADOConnection* pdb;

 

 

//4、数据库应用程序.cpp文件/////////////////////////////////////////////////////////////////////

#include "stdafx.h"

#include "数据库应用程序.h"

//这里添加其它相关头文件

 

//以下为该.cpp文件中若干自定义或非自定义的方法,与数据库连接相关

//其中每一条语句都有含义,请关注其中的注释

BOOL CBKDlg::InitDataEnv()

{

      

      //下面定义了一个简单的连接字符串,当然还有更复杂的

       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数据域集合中的一个域

       //打开上述ADO连接

       pdb->Open((unsigned short*)(LPCSTR)s,(unsigned short*)"",(unsigned short*)"",0);

 

       //打开上述ADO数据集,但它的连接参数是使用的上述字符串

      //应当存在以上面的连接替换该字符串的方法,但我没找到

       prs->Open(COleVariant(_T("资料信息")),COleVariant(s),adOpenKeyset,adLockOptimistic,adCmdTable);

 

       //数据集的域不存在打开与否,只需直接到已打开的数据集中引用即可,详情请见      //CBKDlg::OnBeforeColUpdateDatagrid方法

 

       m_dg.ClearFields ();//MS DATAGRID 控件(Activex)的数据清空

       m_dg.SetRefDataSource(prs); //上述控件与数据集的绑定

       return TRUE;

}

 

BOOL CBKDlg::DestroyWindow()

{

       // TODO: Add your specialized code here and/or call the base class

       m_dg.SetRefDataSource(NULL);

       long state;

       //下面的处理可能存在逻辑上的错误,不过关闭数据集与数据连接的语法是正确的

       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)

{

       //该事件(方法)在MS DATAGRID 控件(ActiveX)的单元数据更新前发生

      //该事件您可能用不着,但其中的代码您可能用得着

       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控件的事件,无具体的处理代码,望海涵

 

 

 

 

本文地址:http://com.8s8s.com/it/it2964.htm