多谢各位高手

以前用到的一个ADO的封装。方法：

int adoGetAllTblName(_ConnectionPtr ipConn, CStringArray& TableNameSet)
{
    _RecordsetPtr    ipRst = ipConn->OpenSchema(adSchemaTables);
    if(NULL != NULL)   
        return 0;

    int nCount = 0;
    CString strTableName;
    while(ipRst->ADOEOF != VARIANT_TRUE)
    {
        _bstr_t bstrTableName = ipRst->GetFields()->GetItem("TABLE_NAME")->Value; //获取表的名称
        strTableName = (LPCTSTR)bstrTableName;
        TableNameSet.Add(strTableName);
        nCount++;
        ipRst->MoveNext();
    }
    ipRst->Close();
    return nCount;
}