BCB得到Access表格的所有表名

之前我知道有两种方法可以获取Mdb文件的 所有 表名： 1、调用TADOConnection::GetTableNames 2、查询系统表MSysObjects 但是实际中均遇到了问题，第1种方法会 得到 Access里表连同查询的名字，而且没有办法区分；第二种方法MSysObjects默认是没有读写的权限

之前我知道有两种方法可以获取mdb文件的所有表名：

1、调用TADOConnection::GetTableNames

2、查询系统表MSysObjects

MyBB 国外最好的免费论坛

MyBB的全称是mybboard，是一个基于PHP+MySQL搭建，功能强大，高效的开源论坛系统。 MyBB 使用了标准的论坛结构和模式，所以您的用户可以在您的论坛获得良好的用户体验。用户可以通过用户控制面板来自定义他们访问论坛的方式或者自定义他们想看到的论坛的内容，他们还可以方便地发表和答复一个主题并且标记与他们有关的主题。论坛管理员和版主可以使用MyBB的内置编辑器和版主工具等功能，控制并维

95

查看详情

但是实际中均遇到了问题，第1种方法会得到Access里表格连同查询的名字，而且没有办法区分；第二种方法MSysObjects默认是没有读写的权限的，需要修改Access文件的设置才行，这样如果是自己的数据库文件还好，如果是其它同事的数据库，要求别人也按照自己的想法来做总感觉不是很妥当，而且可能数据库文件在客户中已经开始使用导致没办法修改。

鉴于以上原因，我找了第三种方法。请看代码：

void GetMdbAllTables(TADOConnection *Conn, TStrings *List)
{   
    List->Clear();
    AnsiString sTableType;
    auto_ptr query(new TADOQuery(NULL));
    query->Connection = Conn;
    TSchemaInfo Schema = siTables;
    Conn->OpenSchema( Schema, EmptyParam, EmptyParam, (TADODataSet*)query.get());
    for ( ; !query->Eof; query->Next() )
    {
        sTableType = query->FieldByName("TABLE_TYPE")->AsString;
        if ( sTableType == "TABLE" )
        {
            if ( !query->FieldByName("TABLE_NAME")->AsString.Pos("粘贴错误") )  //见注1

            {
                List->Add( query->FieldByName("TABLE_NAME")->AsString );
            }
        }
    }
}

注1：/如果Access从外部导入表格，很可能会出现这个“粘贴错误”这个表名。