如何通过ADO获得Access数据库中的所有用户表和表信息

最新推荐文章于 2021-03-28 04:02:38 发布
最新推荐文章于 2021-03-28 04:02:38 发布
阅读量1.9k 收藏 3
点赞数
文章标签： ADO AC access vc 数据库

原文地址:http://blog.youkuaiyun.com/stavck/article/details/3932114

 

 

本文介绍一种通过ADO列举Access文件中所用用户表和表信息的方法，仅供参考，源代码在VC6.0＋XP环境通过测试。

首先，需要引入msado15.dll文件，在stdafx.h中添加：

#import "c:\program files\commonfiles\system\ado\msado15.dll" no_namespacerename("EOF","adoEOF")

其次，将下面的代码复制到cpp文件中：

view plaincopy to clipboardprint?
CString GetType(int nType);   
void GetTableInfo(_ConnectionPtr& pConnection, CStringstrTableName);   
BOOL GetDatabaseInfo(CString strFile);   
  
int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])   
{   
    int nRetCode = 0;   
  
    //初始化com环境   
    CoInitialize(NULL);   
       
  
    GetDatabaseInfo("c:\\test.mdb");   
  
       
    CoUninitialize();   
    return nRetCode;   
}   
  
  
  
void GetTableInfo(_ConnectionPtr& pConnection, CStringstrTableName)   
{   
    _variant_t recAffected;   
  
  
    try  
    {   
        int nCount = 0;   
  
        //开始打开表，以便得到表的结构           
        _RecordsetPtrpRecordset;   
       pRecordset.CreateInstance(__uuidof(Recordset));   
       pRecordset->Open((LPCTSTR)strTableName, pConnection.GetInterfacePtr()   
               , adOpenDynamic, adLockOptimistic, adCmdTable);   
  
        FieldsPtr fds =pRecordset->GetFields();   
  
        //依次读取字段，并显示   
        //字段名   
        for(int i = 0; i <fds->GetCount(); i++)   
        {   
            FieldPtr fd= fds->GetItem(_variant_t(short(i)));   
           if(fd->Value.vt != NULL)   
           {   
               CString strName((LPCTSTR)fd->GetName());   
               printf("字段%i,名称%s,类型%s,长度%ld \r\n",i+1   
                   , (LPCTSTR)fd->GetName(), GetType(fd->GetType())   
                   , fd->GetDefinedSize());   
                   
           }   
                   
        }   
  
        pRecordset->Close();   
  
    }   
    catch(_com_error e)///捕捉异常   
    {   
        CString strStatus;   
        strStatus.Format("错误:%s",(LPCTSTR)e.Description());       
    }      
       
}   
  
BOOL GetDatabaseInfo(CString strFile)   
{   
       
    //首先进行数据库连接：   
  
    _ConnectionPtr pConnection;   
    _RecordsetPtr pRecordset;   
  
    HRESULT hr;   
    try  
    {   
        hr =pConnection.CreateInstance("ADODB.Connection");//创建Connection对象   
        if(SUCCEEDED(hr))   
        {   
            CStringstr;   
           str.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s"),strFile);//需要设置文件的路径名   
  
            hr =pConnection->Open(_bstr_t(str.GetBuffer(1)), "", "",adModeUnknown);///连接数据库   
            ///上面一句中连接字串中的Provider是针对ACCESS2000环境的，   
            //对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51   

           // ACCESS2007: Provider=Microsoft.ACE.OLEDB.12.0;Data Source=XXX.accdb;
           if(!SUCCEEDED(hr))   
           {   
               printf("连接数据库失败");   
               return FALSE;   
           }   
        }   
    }   
    catch(_com_error e)///捕捉异常   
    {   
        CString errormessage;   
        errormessage.Format("连接数据库失败!\r\n%s",(LPCTSTR)e.Description());   
        printf(errormessage);///显示错误信息   
  
        return FALSE;   
    }   
  
    pRecordset.CreateInstance(__uuidof(Recordset));   
       
       
    //开始查询所有表名称   
    pRecordset = pConnection->OpenSchema(adSchemaTables);//枚举表的名称处理   
    while(!(pRecordset->adoEOF))   
    {   
        CString strTableType;   
        CString strTableName;   
        _bstr_t table_name =pRecordset->Fields->GetItem("TABLE_NAME")->Value;//获取表的名称   
  
        _bstr_t table_type =pRecordset->Fields->GetItem("TABLE_TYPE")->Value;//获取表的类型   
  
  
       strTableType.Format("%s",(LPCSTR) table_type);   
        strTableName.Format("%s",(LPCSTR)table_name);   
  
       if(!lstrcmp(strTableType,_T("TABLE")))   
        {   
           //strTableName是表名称   
           printf("查到一个表：%s\r\n", strTableName);   
  
           GetTableInfo(pConnection, strTableName);   
        }   
  
       pRecordset->MoveNext();   
    }   
    pRecordset->Close();   
    pConnection->Close();   
  
  
    return TRUE;   
  
}   
  
  
CString GetType(int nType)   
{   
    switch(nType)   
    {   
    case adEmpty:   
        {   
            return_T("Empty");   
        }   
    case adSmallInt:   
        {   
            return_T("SmallInt");   
        }   
    case adInteger:   
        {   
            return_T("Integer");   
        }   
    case adSingle:   
        {   
            return_T("Single");   
        }   
    case adDouble:   
        {   
            return_T("Double");   
        }   
    case adCurrency:   
        {   
            return_T("Currency");   
        }   
    case adTinyInt:   
        {   
            return_T("TinyInt");   
        }   
    case adBigInt:   
        {   
            return_T("BigInt");   
        }   
    case adUnsignedTinyInt:   
        {   
            return_T("UnsignedTinyInt");   
        }   
    case adUnsignedSmallInt:   
        {   
            return_T("UnsignedSmallInt");   
        }   
    case adUnsignedInt:   
        {   
            return_T("UnsignedInt");   
        }   
    case adUnsignedBigInt:   
        {   
            return_T("UnsignedBigInt");   
        }   
    case adDecimal:   
        {   
            return_T("Decimal");   
        }   
    case adNumeric:   
        {   
            return_T("Numeric");   
        }   
    case adBoolean:   
        {   
            return_T("Boolean");   
        }   
    case adError:   
        {   
            return_T("Error");   
        }   
    case adUserDefined:   
        {   
            return_T("UserDefined");   
        }   
    case adVariant:   
        {   
            return_T("Variant");   
        }   
    case adIDispatch:   
        {   
            return_T("IDispatch");   
        }   
    case adIUnknown:   
        {   
            return_T("IUnknown");   
        }   
    case adGUID:   
        {   
            return_T("GUID");   
        }   
    case adDate:   
        {   
            return_T("Date");   
        }   
    case adDBDate:   
        {   
            return_T("DBDate");   
        }   
    case adDBTime:   
        {   
            return_T("DBTime");   
        }   
    case adDBTimeStamp:   
        {   
            return_T("DBTimeStamp");   
        }   
    case adBSTR:   
        {   
            return_T("BSTR");   
        }   
    case adChar:   
        {   
            return_T("Char");   
        }   
    case adVarChar:   
        {   
            return_T("VarChar");   
        }   
    case adLongVarChar:   
        {   
            return_T("LongVarChar");   
        }   
    case adWChar:   
        {   
            return_T("WChar");   
        }   
    case adVarWChar:   
        {   
            return_T("VarWChar");   
        }   
    case adLongVarWChar:   
        {   
            return_T("LongVarWChar");   
        }   
    case adBinary:   
        {   
            return_T("Binary");   
        }   
    case adVarBinary:   
        {   
            return_T("VarBinary");   
        }   
    case adLongVarBinary:   
        {   
            return_T("LongVarBinary");   
        }   
    case adChapter:   
        {   
            return_T("Chapter");   
        }   
    case adFileTime:   
        {   
            return_T("FileTime");   
        }   
    case adPropVariant:   
        {   
            return_T("PropVariant");   
        }   
    case adVarNumeric:   
        {   
            return_T("VarNumeric");   
        }   
    case adArray:   
        {   
            return_T("Array");   
        }   
    default:   
        {   
            return_T("");   
        }   
    }  
CStringGetType(int nType);
void GetTableInfo(_ConnectionPtr& pConnection, CString strTableName);
BOOL GetDatabaseInfo(CString strFile);

int _tmain(int argc, TCHAR* argv[], TCHAR*envp[])
{
 int nRetCode = 0;

 //初始化com环境
 CoInitialize(NULL);
 

 GetDatabaseInfo("c:\\test.mdb");

 
 CoUninitialize();
 return nRetCode;
}

 

void GetTableInfo(_ConnectionPtr&pConnection, CString strTableName)
{
 _variant_t recAffected;


 try
 {
  int nCount = 0;

  //开始打开表，以便得到表的结构  
  _RecordsetPtr pRecordset;
  pRecordset.CreateInstance(__uuidof(Recordset));
  pRecordset->Open((LPCTSTR)strTableName,pConnection.GetInterfacePtr()
    , adOpenDynamic, adLockOptimistic, adCmdTable);

  FieldsPtr fds =pRecordset->GetFields();

  //依次读取字段，并显示
  //字段名
  for(int i = 0; i < fds->GetCount(); i++)
  {
   FieldPtr fd = fds->GetItem(_variant_t(short(i)));
   if(fd->Value.vt != NULL)
   {
    CString strName((LPCTSTR)fd->GetName());
    printf("字段%i,名称%s,类型%s,长度%ld \r\n",i+1
     , (LPCTSTR)fd->GetName(), GetType(fd->GetType())
     , fd->GetDefinedSize());
    
   }
    
  }

  pRecordset->Close();

 }
 catch(_com_error e)///捕捉异常
 {
  CString strStatus;
  strStatus.Format("错误:%s",(LPCTSTR)e.Description()); 
 } 
 
}

BOOL GetDatabaseInfo(CString strFile)
{
 
 //首先进行数据库连接：

 _ConnectionPtr pConnection;
 _RecordsetPtr pRecordset;

 HRESULT hr;
 try
 {
  hr = pConnection.CreateInstance("ADODB.Connection");//创建Connection对象
  if(SUCCEEDED(hr))
  {
   CString str;
   str.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=%s"), strFile);//需要设置文件的路径名

   hr =pConnection->Open(_bstr_t(str.GetBuffer(1)), "", "",adModeUnknown);///连接数据库
   ///上面一句中连接字串中的Provider是针对ACCESS2000环境的，
   //对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51
   if(!SUCCEEDED(hr))
   {
    printf("连接数据库失败");
    return FALSE;
   }
  }
 }
 catch(_com_error e)///捕捉异常
 {
  CString errormessage;
  errormessage.Format("连接数据库失败!\r\n%s", (LPCTSTR)e.Description());
  printf(errormessage);///显示错误信息

  return FALSE;
 }

 pRecordset.CreateInstance(__uuidof(Recordset));
    
 
 //开始查询所有表名称
 pRecordset = pConnection->OpenSchema(adSchemaTables);//枚举表的名称处理
    while(!(pRecordset->adoEOF))
    {
        CString strTableType;
        CString strTableName;
        _bstr_t table_name =pRecordset->Fields->GetItem("TABLE_NAME")->Value;//获取表的名称

       _bstr_t table_type =pRecordset->Fields->GetItem("TABLE_TYPE")->Value;//获取表的类型


       strTableType.Format("%s",(LPCSTR) table_type);
       strTableName.Format("%s",(LPCSTR) table_name);

       if(!lstrcmp(strTableType,_T("TABLE")))
        {
   //strTableName是表名称
   printf("查到一个表：%s\r\n", strTableName);

   GetTableInfo(pConnection,strTableName);
        }

       pRecordset->MoveNext();
    }
    pRecordset->Close();
 pConnection->Close();


 return TRUE;

}


CString GetType(int nType)
{
 switch(nType)
 {
 case adEmpty:
  {
   return _T("Empty");
  }
 case adSmallInt:
  {
   return _T("SmallInt");
  }
 case adInteger:
  {
   return _T("Integer");
  }
 case adSingle:
  {
   return _T("Single");
  }
    case adDouble:
  {
   return _T("Double");
  }
    case adCurrency:
  {
   return _T("Currency");
  }
    case adTinyInt:
  {
   return _T("TinyInt");
  }
    case adBigInt:
  {
   return _T("BigInt");
  }
    case adUnsignedTinyInt:
  {
   return _T("UnsignedTinyInt");
  }
    case adUnsignedSmallInt:
  {
   return _T("UnsignedSmallInt");
  }
    case adUnsignedInt:
  {
   return _T("UnsignedInt");
  }
    case adUnsignedBigInt:
  {
   return _T("UnsignedBigInt");
  }
    case adDecimal:
  {
   return _T("Decimal");
  }
    case adNumeric:
  {
   return _T("Numeric");
  }
    case adBoolean:
  {
   return _T("Boolean");
  }
    case adError:
  {
   return _T("Error");
  }
    case adUserDefined:
  {
   return _T("UserDefined");
  }
 case adVariant:
  {
   return _T("Variant");
  }
    case adIDispatch:
  {
   return _T("IDispatch");
  }
    case adIUnknown:
  {
   return _T("IUnknown");
  }
    case adGUID:
  {
   return _T("GUID");
  }
    case adDate:
  {
   return _T("Date");
  }
    case adDBDate:
  {
   return _T("DBDate");
  }
    case adDBTime:
  {
   return _T("DBTime");
  }
    case adDBTimeStamp:
  {
   return _T("DBTimeStamp");
  }
    case adBSTR:
  {
   return _T("BSTR");
  }
    case adChar:
  {
   return _T("Char");
  }
    case adVarChar:
  {
   return _T("VarChar");
  }
    case adLongVarChar:
  {
   return _T("LongVarChar");
  }
    case adWChar:
  {
   return _T("WChar");
  }
    case adVarWChar:
  {
   return _T("VarWChar");
  }
    case adLongVarWChar:
  {
   return _T("LongVarWChar");
  }
    case adBinary:
  {
   return _T("Binary");
  }
    case adVarBinary:
  {
   return _T("VarBinary");
  }
    case adLongVarBinary:
  {
   return _T("LongVarBinary");
  }
    case adChapter:
  {
   return _T("Chapter");
  }
    case adFileTime:
  {
   return _T("FileTime");
  }
    case adPropVariant:
  {
   return _T("PropVariant");
  }
    case adVarNumeric:
  {
   return _T("VarNumeric");
  }
    case adArray:
  {
   return _T("Array");
  }
 default:
  {
   return _T("");
  }
 }
 

编译运行，可以打印Access数据库的信息，一个例子如下：

view plaincopy to clipboardprint?
查到一个表：Result   
字段1,名称ResultID,类型Integer,长度4   
字段2,名称TaskID,类型Integer,长度4   
字段3,名称TestTime,类型Integer,长度4   
字段4,名称DestIP,类型VarWChar,长度255   
字段5,名称TestType,类型Integer,长度4   
字段6,名称AvgDelay,类型Integer,长度4   
字段7,名称MinDelay,类型Integer,长度4   
字段8,名称MaxDelay,类型Integer,长度4   
字段9,名称IPAvailability,类型Integer,长度4   
字段10,名称IPDV,类型Double,长度8   
字段11,名称LossRate,类型Double,长度8   
查到一个表：ResultData   
字段1,名称ResultDataID,类型Integer,长度4   
字段2,名称ResultID,类型Integer,长度4   
字段3,名称ElapsedTime,类型Integer,长度4   
字段4,名称PacketSize,类型Integer,长度4   
字段5,名称ResultType,类型Integer,长度4   
字段6,名称Delay,类型Integer,长度4   
字段7,名称ErrorInfo,类型VarWChar,长度255   
Press any key to continue 

 

 

原文地址:http://blog.youkuaiyun.com/stavck/article/details/3932114

memeai
关注
C# 获取Access数据库中所有的表名
08-08 1918
有两种方法  第一种：            OleDbConnection Connection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=demo.mdb");            Connection.Open();             System.Data.DataTable
利用ADO获取Access数据库中的表名
05-29
用ADO的方式获取access数据库中的表名，并将表名添加到listbox和listview中
透过ADO取得Access数据库的所有数据表名称
abcd0101001的博客
06-14 307
感谢小铺中的老顽童大大提供的方法 Dim DbFile, DBPath, Conn, Rs DbFile="Db.mdb" Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath(DbFile) Conn.open "Driver={Microsoft Access Driver (*.mdb)...
获取Access中的所有用户表(例子)
T87406621的博客
06-23 227
//检索ACCESS库里的所有属于用户的表 public DataView GetTable() { string sAccessConnection = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + @"\DataSourece\...
如何通过ADO,获取一个数据库文件里面所有的表?
polarmirror的专栏
04-10 1628
使用ADO来获取一个文件的思路是,通过Connection 对象的OpenSchema的方法,获取的一个REORDSET对象.     这个RECORDSET对象里包含有数据库文件里面所有表的名称和类型.     欲想了解这个RECORDESET对象里面的字段属性,可以使用VB的监视器在相应代码处中断,查看信息.下面给出例子和注释Public Sub OpenSchemaX() Dim
VC++直接通过ADO操作Access数据库
03-15
内容索引:VC/C++源码,数据库应用,ADO　VC++直接通过ADO操作Access数据库，都是些比较基础的操作，比如从Access中读取数据并显示，插入一条新内容，修改和删除指定条数据等，给VC入门者准备的基础数据库程序，希望VC...
ADO_QT_qtaccess_ADO_ACCESS数据库
09-11
描述中提到“QT通过ADO形式操作access数据库的封装类，亲测可用。”这表明已经有人实现了一个QT类，该类封装了ADO接口，用于与ACCESS数据库进行通信，并且这个实现已经被验证是有效的。 在标签中，“QT”指代框架...
MFC使用ADO读写Access数据库参考例程.pdf
最新发布
08-15
通过以上步骤，你可以在MFC应用中使用ADO与Access数据库进行交互。由于ADO的易用性，开发者可以快速地构建数据库应用，而无需深入理解底层技术的复杂性。不过，要注意处理好异常和错误，确保程序的健壮性。
VISUAL C++ vc++ ADO 操作access数据库mdb.zip
04-04
在Microsoft的Visual C++开发环境中，ADO（ActiveX Data Objects）是用于访问和操作数据库的强大工具，特别是对于小型数据库如Microsoft Access的mdb文件。本文将详细介绍如何使用VC++结合ADO来操作Access数据库。 ...
VC通过ADO访问ACCESS数据库
02-05
本教程将深入探讨如何使用Microsoft Visual C++ 6.0（简称VC++6.0）通过ActiveX Data Objects（ADO）来连接和操作ACCESS数据库。ADO是微软提供的一种高效、简洁的数据访问接口，它允许开发者轻松地在各种数据源之间...
PHP通过ado连接access,使用ADO连接access数据库
weixin_32428571的博客
03-10 211
时　间:2007-11-03 14:19:08作　者:摘　要:使用ADO连接ACCESS数据库正　文:实现过程:1新建一个数据库(ACCESS),新建一个窗体,默认属性为FORM12\引用ADO对象.和平台引用是一样的.引用MICROSOFT ACTIVEX DATA OBJECTS2.5LIBRY.此时,ADO对象中的CONNECTION,RECORDSET,COMMAND和FIELDS等对象成...
PHP通过ado连接access,PHP通过ADO COM组件访问Access数据库-
weixin_30126409的博客
03-10 250
一、前言今天在youkuaiyun.com上看到两个关于PHP连接Access的问题，意思大概是想知道不通过PHP的Odbc_connect方式，是否能连接Access数据库，于是，我想到用ADO COM组件的方式，试了一下，果然成功，写一文，贡献给大家！二、配置这里要注意的是，用这个方式，还是必须配置一个系统ODBC数据库源，我试了，不能用asp连接无数据源的方式连接，如果有哪位朋友用无数据源的方式连接成功...
php access 所有表,BCB得到Access表格的所有表名
weixin_31124869的博客
03-28 187
之前我知道有两种方法可以获取Mdb文件的 所有 表名： 1、调用TADOConnection::GetTableNames 2、查询系统表MSysObjects 但是实际中均遇到了问题，第1种方法会 得到 Access里表连同查询的名字，而且没有办法区分；第二种方法MSysObjects默认是没有读写的权限之前我知道有两种方法可以获取Mdb文件的所有表名：1、调用TADOConnection::G...
Qt操作Access数据库
09-27 7980
Qt为数据库访问提供QtSql模块实现了数据库与Qt应用程序的无缝集成。QtSql模块使用驱动插件与不同的数据库接口通信。Qt自带有QODBC驱动，通过windows平台上提供的ODBC驱动访问支持ODBC的数据库，如Ms Access、SQL Server等 (Windows XP 自带有Access和SQL Server的ODBC Driver)。下面我们就用QODBC对Access数据库进行
VBA-access表信息的获取
oyq的博客
07-31 6024
1.首先我们来直接获取某个数据库的所有表信息 Sub 获取数据库中所有表的名称和类型() Dim i As String Dim mydata As String Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset mydata = ThisWorkbook.Path &amp; "...
获取ACCESS2000数据库中的所有表的名称（vc ＋ ado）
zgqtxwd的专栏
04-27 459
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
用ADO怎样得到表的个数和每个表的名字?
我的编程之旅
06-12 1165
 用OpenSchema   方法     语法         Set   recordset   =   connection.OpenSchema   (QueryType,   Criteria,   SchemaID)         返回值         返回包含模式信息的   Recordset   对象。Recordset   将以只读、静态游标打开。         参数  
C# 判断 检测 access 建库 建表 文件是否存在等 数据操作 使用 ADOX
weixin_34112030的博客
01-07 286
  1.创建数据库 2.判断表是否存在 3.创建表 1.    #region access数据库操作 之 创建数据库         private void creatMDB(string dbName)         {             ADOX.CatalogClass cat = new ADOX.CatalogClass();       ...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值