vc+ado动态创建access数据库

原创 2004年08月30日 15:32:00

ado技术目前已经成为连接数据库的主流技术,下面我来介绍如何使用ado来动态创建access数据库。

为了使用ado,必须引入微软的两个动态连接库msadox.dll和msado15.dll:

#pragma warning (disable: 4146)
#import "c:/Program Files/Common Files/system/ado/msadox.dll"
#import "c:/Program Files/Common Files/system/ado/msado15.dll" no_namespace rename("EOF", "EndOfFile")
#pragma warning (default: 4146)

将上述代码加入到stdafx.h文件中,由于ado是com组件,因此使用ado之前还要初始化com环境:

CoInitialize(NULL);

 

下面是一个在access数据库中创建表的sql语句的例子:

create table test
(
  name      text(20) WITH COMPRESSION not null,

  score      decimal(12,4) not null default 0,

  ID           smallint not null default 0,

  birthday   date,

  sex           char(1),

  CONSTRAINT CK_CH_SEX Check(SEX in ('N','V')),

  CONSTRAINT PK_ID Primary Key (ID)

);

 

使用ADOX::CatalogPtr来创建mdb文件:

 HRESULT hr = S_OK;
 
 //Set ActiveConnection of Catalog to this string
 CString strcnn(_T("Provider=Microsoft.JET.OLEDB.4.0;Data source = d://test.mdb"));

 try
 {
      ADOX::_CatalogPtr m_pCatalog = NULL;
      hr = m_pCatalog.CreateInstance(__uuidof (ADOX::Catalog));

      if(FAILED(hr))

     {

            _com_issue_error(hr);

       }

       else

       {
              m_pCatalog->Create(_bstr_t(strcnn)); //Create MDB

       }
 } 
 catch(_com_error &e)
 {
     // Notify the user of errors if any.
     AfxMessageBox(_T(“error“));
 }

 

创建一个连接对象打开刚刚建立的mdb文件:

_ConnectionPtr g_pConn;

 g_pConn.CreateInstance(__uuidof(Connection));

 g_pConn->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d://test.mdb;",
  "", "", adConnectUnspecified); 

 

下面函数用来执行sql文件中的sql语句:

// Function name : RunSqlScript
// Description  : 执行SQL脚本,
peckermen@163.com, 2003-09-15
// Return type  : BOOL 成功返回TRUE
// Argument   : LPCSTR SqlScriptFile SQL脚本文件名
// Argument   : char separator SQL 分割符号, 缺省';'
// Argument   : char Remark    SQL 注释符号, 缺省'-'
BOOL RunSqlScript(LPCSTR SqlScriptFile, char separator = ';', char Remark = '-')
{
 BOOL bRet = FALSE;
 CFileFind finder;
 CString ErrLong;
 if (finder.FindFile(SqlScriptFile) == TRUE)
 {
  CFile fSql;
  TCHAR *buffer, *pSQL, *p;
  
  fSql.Open(SqlScriptFile,CFile::modeRead);
  UINT nFileLength = fSql.GetLength();
  
  buffer = (TCHAR *)malloc((nFileLength + 1) * sizeof(TCHAR));
  _tcsnset(buffer, TCHAR('/0'), nFileLength + 1);

  UINT nBytesRead = fSql.Read(buffer,nFileLength); //把sql文件内容读入内存缓冲区
  fSql.Close();

  p = pSQL = buffer;
  BOOL bRunOK = FALSE;
  BOOL bInNote = FALSE;
  BOOL bSkip = FALSE;
  CString strSQL;
  TCHAR ch;
  ErrLog = _T("");
  while (p < (buffer + nFileLength)){
          //判断是否是注释行
   if (bInNote)
   {
    if (*p == TCHAR('/x0a'))
     bInNote = FALSE;
   }
   else
   {
    if ((*p == Remark) && (*(p+1) == Remark))
    {
     bInNote = TRUE;
     p++;
    }
    else
    {
            //判断是否是sql语句结束标志
     if (*p == separator){
      strSQL = _T("");
      bSkip = FALSE;
      while (pSQL < p)
      {
       if (bSkip == FALSE){
        if ((*(pSQL) == Remark) &&(*(pSQL+1) == Remark))
        {
         bSkip = TRUE;
         pSQL++;
        }
        else
        {
         ch = *pSQL;
         strSQL = strSQL+ch;
        }
       }
       else{
        if (*pSQL = TCHAR('/x0a')){
         bSkip = FALSE;
         ch = TCHAR(' ');
         strSQL = strSQL + ch;
        }
       }
       
       pSQL++;
      }
      pSQL = p + 1;
      ErrLog = ErrLog + _T("-- SQL Running .../n");
      ErrLog = ErrLog + strSQL;
      
      _variant_t vRecords;
 
      m_nRecordsAffected = 0;

      try
      {
       g_pConn->CursorLocation = adUseClient;
       g_pConn->Execute(_bstr_t((LPCTSTR)strSQL), &vRecords, adExecuteNoRecords);
       m_nRecordsAffected = vRecords.iVal;
       bRunOK = TRUE;
      }
      catch(_com_error &e)
      {
       bRunOK = FALSE; 
      }
      
      if (bRunOK)
       ErrLog = ErrLog + _T("/n-- Successed!/n");
      else
      {
       ErrLog = ErrLog + _T("/n-- Failed!/n");
       break;
      }
      
     }
    }
   }
   p++;
  }
  free(buffer);
  bRet = bRunOK;
 }
 return bRet;
}

 

调用RunSqlScript创建access数据库中的表:

RunSqlScript(_T("d://test.sql"));

 

关闭数据库连接:

g_pConn->Close();

::CoUninitialize();

 

以上代码演示了怎样在vc中利用ado根据sql文件动态创建一个access数据库,欢迎指正。

 peckermen@163.com

 



VC+ADO动态创建Access数据库

ado技术目前已经成为连接数据库的主流技术,下面介绍如何使用ado来动态创建access数据库。为了使用ado,必须引入微软的两个动态连接库msadox.dll和msado15.dll:#pragma...
  • lzyint
  • lzyint
  • 2007-06-24 22:28:00
  • 670

vc+ado创建access数据库

 1.首先在stdafx.h文件中加入:#pragma warning (disable: 4146)#import "C:/Program Files/Common Files/system/ado...
  • sgdgoodboy
  • sgdgoodboy
  • 2007-11-08 09:39:00
  • 2223

C#动态创建及连接ACCESS数据库的详细步骤

连接ACCESS数据库的详细步骤 一、建立FORM窗体,加一个按钮控件,加一个DATAGRIDVIEW控件。 二、双击FORM,加入命名空间using System.Data.OleDb;   ...
  • Goldxwang
  • Goldxwang
  • 2016-10-25 08:36:51
  • 3652

在DELPHI源程序中动态创建ACCESS数据库及当即建表文件

Const     SConnectionString              =  Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=%s;       ...
  • riyao
  • riyao
  • 2005-10-13 17:03:00
  • 2133

C#动态创建Access数据库及表的方法

本文实例讲述了C#动态创建Access数据库及表的方法。分享给大家供大家参考。 具体实现方法如下: //添加两个com组件引用 //Microsoft ADO Ext. 2.8 for D...
  • u011981242
  • u011981242
  • 2016-03-06 23:00:23
  • 435

VB动态创建access数据库

  • 2014年03月09日 09:42
  • 6KB
  • 下载

VB 动态创建ACCESS数据库 源代码

  • 2016年03月05日 12:32
  • 4KB
  • 下载

动态创建ACCESS数据库及其表结构

1.动态创建表结构,引入com中的二个动态库,一个是ADOX,一个是ADODB二个dll,ADOX.dll和Interop.ADODB.dll 2.增加wfm中的按钮,按钮事件如下: 其中的m_p...
  • vbloveshllm
  • vbloveshllm
  • 2014-03-19 10:34:08
  • 1862

[收藏]用C++动态创建一个Access数据库

以下VC++6.0下调试通过//获取主程序所在路径,存在sPath中CString sPath;GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX...
  • pfboy
  • pfboy
  • 2006-10-19 18:41:00
  • 1582
收藏助手
不良信息举报
您举报文章:vc+ado动态创建access数据库
举报原因:
原因补充:

(最多只允许输入30个字)