获取Access2000数据库中所有表的名称

void OpenSchemaX(TCHAR *TableName)

{

HRESULT hr = S_OK;

::CoInitialize(NULL); //初始化Com



IADORecordBinding *picRs = NULL;



_RecordsetPtr pRstSchema(\\"ADODB.Recordset\\");

_ConnectionPtr pConnection(\\"ADODB.Connection\\" );



pConnection->ConnectionString = TableName;

pConnection->Provider = \\"Microsoft.Jet.OLEDB.4.0\\";



try

{

pConnection->Open(pConnection->ConnectionString, \\"\\", \\"\\", 

adModeUnknown);

pRstSchema->QueryInterface(

__uuidof(IADORecordBinding), (LPVOID*)&picRs);



pRstSchema = pConnection->OpenSchema(adSchemaTables);

//枚举表的名称处理



while(!(pRstSchema->EndOfFile))

{

CString strTableType;



_bstr_t table_name = pRstSchema->Fields->

GetItem(\\"TABLE_NAME\\")->Value;//获取表的名称



_bstr_t table_type = pRstSchema->Fields->

GetItem(\\"TABLE_TYPE\\")->Value;//获取表的类型



strTableType.Format(\\"%s\\",(LPCSTR) table_type);



if(!lstrcmp(strTableType,_T(\\"TABLE\\")))

{

m_strList.AddString((LPCSTR) table_name);

//添加表的名称

}



pRstSchema->MoveNext();

}

// Clean up objects before exit.



pRstSchema->Close();

pConnection->Close();

}



catch (_com_error &e)

{

// Notify the user of errors if any.

// Pass a connection pointer accessed from the Connection. 

PrintProviderError(pConnection);

PrintComError(e);

}

CoUninitialize();

}



void PrintProviderError(_ConnectionPtr pConnection)

{

ErrorPtr pErr = NULL;



if( (pConnection->Errors->Count) > 0)

{

long nCount = pConnection->Errors->Count;

// Collection ranges from 0 to nCount -1.

for(long i = 0;i < nCount;i++)

{

pErr = pConnection->Errors->GetItem(i);

CString strError;

strError.Format(\\"Error number: %xt%s\\", pErr->Number, pErr->Description);

AfxMessageBox(strError);

}

}

}



void PrintComError(_com_error &e)

{

_bstr_t bstrSource(e.Source());

_bstr_t bstrDescription(e.Description());



// Print COM errors. 

CString strError;

strError.Format(\\"Error number: 

Description = %stCode meaning = %s\\",(LPCSTR) 

bstrDescription, e.ErrorMessage());

AfxMessageBox(strError);

}

CString strFileName;

TCHAR FileName[MAX_PATH];

TCHAR bigBuff[2048] = _T(\\"\\"); // maximum common dialog buffer size

TCHAR szFilter[] = _T(\\"Text Files (*.mdb)|*.mdb|All Files (*.*)|*.*

\\");

CFileDialog dlg(TRUE, NULL, NULL,

OFN_HIDEREADONLY | OFN_ALLOWMULTISELECT, szFilter);



// Modify OPENFILENAME members directly to point to bigBuff

dlg.m_ofn.lpstrFile = bigBuff;

dlg.m_ofn.nMaxFile = sizeof(bigBuff);



if(IDOK == dlg.DoModal() )

{

strFileName = dlg.GetPathName();

lstrcpy(FileName,strFileName);

OpenSchemaX(FileName);

}