如何使用ADO得到数据库名称

[fcxj]

问题：
数据库服务器SQL Server有若干数据库，使用ADO如何能得到这些库的名称？

[syy64]

BOOL CDlgRecordset::GetMicTable()
{
try
{
m_pRecordset=theApp.m_pConnection->OpenSchema(adSchemaTables);

while(!(m_pRecordset->adoEOF))
{
//»ñÈ¡±í¸ñ
_bstr_t table_name = m_pRecordset->Fields->GetItem("TABLE_NAME")->Value;
//»ñÈ¡±í¸ñÀàÐÍ
_bstr_t table_type = m_pRecordset->Fields->GetItem("TABLE_TYPE")->Value;
//¹ýÂËһϣ¬Ö»Êä³ö±í¸ñÃû³Æ£¬ÆäËûµÄÊ¡ÂÔ
if ( strcmp(((LPCSTR)table_type),"TABLE")==0)
{
m_cmbTable.AddString((LPCSTR)table_name);
}
m_pRecordset->MoveNext();
}
m_pRecordset->Close();
}
catch(_com_error e)///²¶×½Òì³£
{
::MessageBox(NULL,e.Description(),"Ìáʾ",MB_OK);
return FALSE;
}

return true;

}

[fcxj]

先感谢 syy64(太平洋)
感谢在这里解难答疑的大虾们

[fcxj]

但是目下openschema的参数得出的是默认数据库的表名，而不是系统内的数据库名，没查到该怎么办

[fcxj]

m_pRecordset=theApp.m_pConnection->OpenSchema(adSchemaCatalogs);
...
_bstr_t table_name = m_pRecordset->Fields->GetItem("CATALOG_NAME")->Value;

好了。
得到了