打开数据库连接
_ConnectionPtr
m_pConn;
_RecordsetPtr
m_pRs;
m_pConn.CreateInstance(__uuidof(Connection));
m_pRs.CreateInstance(__uuidof(Recordset));
//连接字符串在你的机器上可能不适用，自己试一下
CString
str = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User
ID=sa;Data
Source=ZHANGJIAN";
m_pConn->Open(_bstr_t(str),"","",-1);
_variant_t
vFieldValue;
CString
strFieldValue;
m_pRs=m_pConn->OpenSchema(adSchemaCatalogs);
包含字段名称CATALOG_NAME,DESCRIPTION，
列举m_pRs的所有_bstr_t(m_pRs->GetCollect("CATALOG_NAME"))就可以了
使用ADO如何获得SQLSERVER 2K的数据库名的列表,布布扣,bubuko.com
原文：http://www.cnblogs.com/a9999/p/3680431.html