如何在VC中用Ado得到sql server 或 oracle 库中的所有表名？

Question

库里面有sysobjects表，这个表包含了这个数据库里面所有的对象。包括用户表，可以通过查询语句来获得所有用户表的名字。
我写了个SQL数据库浏览程序，就是这么做的。

Answer 1

m_pRecordset1=m_pConnection->OpenSchema(adSchemaTables);
    while(!m_pRecordset1->adoEOF) 
    { 
    l_vDBTableName=m_pRecordset1->GetCollect("TABLE_NAME");   
    /*bstrTableType=l_pRecordset->GetCollect("TABLE_TYPE"); 
    if  (bstrTableType  ==  (_bstr_t)"TABLE") 
    { 
        s+=(_bstr_t)l_vDBTableName; 
        s+="\n"; 
    } */
if(l_vDBTableName==(_variant_t)"table1")
s+=(_bstr_t)l_vDBTableName;
    m_pRecordset1->MoveNext(); 
    } 
    m_pRecordset1->Close();//关闭记录集
这样可以遍历所有的表名

Answer 2

_RecordSetPtr m_pRecordset1;
m_pRecordset1->adoEOF
m_pRecordset1没有adoEOF这个方法？