在C++ Builder中判断MS Access是否存在指定TADOTable并创建的方法

TADOTable没有直接的Exists方法，可通过以下两种可靠方案实现需求：

方案一：通过ADO连接的OpenSchema查询系统表 #

利用ADO的OpenSchema方法读取数据库系统表信息，筛选用户表并判断目标表是否存在，这是最准确的方式。

判断表是否存在的代码 #

#include <ComObj.hpp>

bool IsTableExists(TADOConnection *ADOConn, const String &TableName)
{
    if (!ADOConn || !ADOConn->Connected)
        return false;

    _RecordsetPtr rs = ADOConn->ConnectionObject->OpenSchema(adSchemaTables);
    bool exists = false;
    String tblName, tblType;

    while (!rs->adoEOF)
    {
        tblName = rs->Fields->Item["TABLE_NAME"]->Value.bstrVal;
        tblType = rs->Fields->Item["TABLE_TYPE"]->Value.bstrVal;
        // 仅匹配用户创建的普通表（排除系统表、视图等），且不区分大小写
        if (tblType == "TABLE" && tblName.LowerCase() == TableName.LowerCase())
        {
            exists = true;
            break;
        }
        rs->MoveNext();
    }
    rs->Close();
    return exists;
}

方案二：通过ADOQuery尝试查询表（备选方案） #

执行一条无结果的SELECT语句，通过捕获异常判断表是否存在。代码简洁，但需注意区分“表不存在”与其他数据库异常。

判断表是否存在的代码 #

bool IsTableExists(TADOConnection *ADOConn, const String &TableName)
{
    if (!ADOConn || !ADOConn->Connected)
        return false;

    TADOQuery *qry = new TADOQuery(NULL);
    qry->Connection = ADOConn;
    // 若表名含特殊字符/空格，需用方括号包裹："SELECT * FROM [" + TableName + "] WHERE 1=0"
    qry->SQL->Text = "SELECT * FROM " + TableName + " WHERE 1=0";
    
    bool exists = true;
    try
    {
        qry->Open();
    }
    catch (Exception &e)
    {
        // Access表不存在时的错误码通常为-2147217865，可针对性判断
        if (e.ErrorCode == -2147217865)
            exists = false;
        else
            throw; // 其他异常抛出处理
    }
    qry->Close();
    delete qry;
    return exists;
}

创建表的实现 #

确认表不存在后，使用TADOQuery执行CREATE TABLE语句，语法需遵循Access的SQL规范：

void CreateTable(TADOConnection *ADOConn, const String &TableName)
{
    if (!ADOConn || !ADOConn->Connected)
        return;

    TADOQuery *qry = new TADOQuery(NULL);
    qry->Connection = ADOConn;
    
    // 根据实际需求修改字段、类型和约束
    qry->SQL->Text = "CREATE TABLE " + TableName + " ("
                     "ID AUTOINCREMENT PRIMARY KEY, "
                     "UserName TEXT(50) NOT NULL, "
                     "Age INTEGER, "
                     "RegisterDate DATETIME DEFAULT NOW())";
    try
    {
        qry->ExecSQL();
        ShowMessage("表 " + TableName + " 创建成功");
    }
    catch (Exception &e)
    {
        ShowMessage("创建表失败：" + e.Message);
    }
    delete qry;
}

整合使用示例 #

在窗体事件中调用上述方法：

void __fastcall TForm1::btnCheckCreateClick(TObject *Sender)
{
    String targetTable = "UserInfo";
    if (!IsTableExists(ADOConnection1, targetTable))
    {
        CreateTable(ADOConnection1, targetTable);
    }
    else
    {
        ShowMessage("表 " + targetTable + " 已存在");
    }
}

注意事项 #

• 若表名包含空格、特殊字符（如中文、@等），需用方括号[]包裹表名，例如[用户信息]。
• 方案一中的OpenSchema方法能准确区分用户表和系统表，推荐优先使用。

内容的提问来源于stack exchange，提问作者breakou7z