程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> .NET網頁編程 >> ASP.NET >> ASP.NET基礎 >> VC用Ado接口連接和使用數據庫及注意事項

VC用Ado接口連接和使用數據庫及注意事項

編輯:ASP.NET基礎
一、閱讀本文所需注意的其它事項
  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控件的事件,無具體的處理代碼,望海涵
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved