之前我知道有两种方法可以获取Mdb文件的 所有 表名： 1、调用TADOConnection::GetTableNames 2、查询系统表MSysObjects 但是实际中均遇到了问题，第1种方法会 得到 Access里表连同查询的名字，而且没有办法区分；第二种方法MSysObjects默认是没有读写的权限
之前我知道有两种方法可以获取mdb文件的所有表名：
1、调用TADOConnection::GetTableNames
2、查询系统表MSysObjects
采用zblog修改的模板，简单方便，直接解压上传到空间即可使用，页面简单，适合SEO，导航，次导航，最新文章列表，随机文章列表全部都有，网站采用扁平结构，非常适用淘宝客类小站，所有文章都在根目录下。所有需要修改的地方在网页上各个地方都有标注说明，一切在网站后台都可以修改，无须修改任何程序代码，是新手的不二选择。后台登陆地址： 域名/login.asp用户名：admin (建议不要修改)密码：adm
但是实际中均遇到了问题，第1种方法会得到Access里表格连同查询的名字，而且没有办法区分；第二种方法MSysObjects默认是没有读写的权限的，需要修改Access文件的设置才行，这样如果是自己的数据库文件还好，如果是其它同事的数据库，要求别人也按照自己的想法来做总感觉不是很妥当，而且可能数据库文件在客户中已经开始使用导致没办法修改。
鉴于以上原因，我找了第三种方法。请看代码：
void GetMdbAllTables(TADOConnection *Conn, TStrings *List)
{
List->Clear();
AnsiString sTableType;
auto_ptr
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从外部导入表格，很可能会出现这个“粘贴错误”这个表名。
