ADO в Visual C++ 6.0 - как узнать имена таблиц и типы полей?

Привет! Мне надо импортировать БД из Access в MySql. я подключился к аксес так
using namespace ADODB;
::CoInitialize(NULL);

_ConnectionPtr m_conn;
_RecordsetPtr m_rSet;
char connStr[1024], buf[1024];
FieldsPtr flds;

sprintf(connStr, "Provider=%s;Persist Security Info=False;Password=%s;User ID=%sata Source=%s", "Microsoft.Jet.OLEDB.4.0", "", "", "D:\\5 курс\\dbaccess\\dbacc.mdb");

try{
m_conn.CreateInstance(L"ADODB.Connection ");
m_conn->CursorLocation = adUseServer;
m_conn->ConnectionTimeout = 30;

m_conn->Open(connStr, "", "", 0);

m_rSet.CreateInstance(L"ADODB.Recordset" );
m_rSet->Open("SELECT * FROM Table_Name", (IDispatch*)m_conn, adOpenDynamic, adLockOptimistic, adCmdText);
flds = m_rSet->Fields;

int xx=10,yy=30;
while(!m_rSet->ADOEOF)
{
sprintf(buf,"%s %s",
(LPCTSTR)_bstr_t(flds->Item[L"pole1"]->Value),
(LPCTSTR)_bstr_t(flds->Item[L"pole2"]->Value));
...
m_rSet->MoveNext();
}

}
catch(_com_error &er)
{
sprintf(buf,"_com_error:\n"
"Error : %08lX\n"
"ErrorMessage: %s\n"
"Description : %s\n"
"Source : %s\n",
er.Error(),
(LPCTSTR)_bstr_t(er.ErrorMessage()),
(LPCTSTR)_bstr_t(er.Description()),
(LPCTSTR)_bstr_t(er.Source()));

MessageBox(hwnd,buf,"Error",MB_OK);
return FALSE;
}
::CoUninitialize();

здесь я читаю данные с определенной таблицы Table_Name с опред. полями. Я хочу получить список таблиц и их полей, как мне это сделать?? не обязательно адо, но без использования MFC.

0

Проблему решил так:

m_rSet = m_conn->OpenSchema(adSchemaColumns);

имя таблицы - flds->GetItem("TABLE_NAME")->Value
имя поля - flds->GetItem("COLUMN_NAME")->Value

0