本文介紹一種通過ADO列舉Access檔案中所用使用者表和表資訊的方法，僅供參考，原始碼在VC6.0 ＋XP環境通過測試。

首先，需要引入msado15.dll檔案，在stdafx.h中新增：

#import "c:/program files/common files/system/ado/msado15.dll" no_namespace rename("EOF","adoEOF")

其次，將下面的程式碼複製到cpp檔案中：

CString GetType(int nType); void GetTableInfo(_ConnectionPtr& pConnection, CString strTableName); BOOL GetDatabaseInfo(CString strFile); int _tmain(int argc, TCHAR* argv[], TCHAR* envp[]) { int nRetCode = 0; //初始化com環境 CoInitialize(NULL); GetDatabaseInfo("c://test.mdb"); CoUninitialize(); return nRetCode; } void GetTableInfo(_ConnectionPtr& pConnection, CString strTableName) { _variant_t recAffected; try { int nCount = 0; //開始開啟表，以便得到表的結構 _RecordsetPtr pRecordset; pRecordset.CreateInstance(__uuidof(Recordset)); pRecordset->Open((LPCTSTR)strTableName, pConnection.GetInterfacePtr() , adOpenDynamic, adLockOptimistic, adCmdTable); FieldsPtr fds = pRecordset->GetFields(); //依次讀取欄位，並顯示 //欄位名 for(int i = 0; i < fds->GetCount(); i++) { FieldPtr fd = fds->GetItem(_variant_t(short(i))); if(fd->Value.vt != NULL) { CString strName((LPCTSTR)fd->GetName()); printf("欄位%i,名稱%s,型別%s,長度%ld /r/n",i+1 , (LPCTSTR)fd->GetName(), GetType(fd->GetType()) , fd->GetDefinedSize()); } } pRecordset->Close(); } catch(_com_error e)///捕捉異常 { CString strStatus; strStatus.Format("錯誤:%s", (LPCTSTR)e.Description()); } } BOOL GetDatabaseInfo(CString strFile) { //首先進行資料庫連線： _ConnectionPtr pConnection; _RecordsetPtr pRecordset; HRESULT hr; try { hr = pConnection.CreateInstance("ADODB.Connection");//建立Connection物件 if(SUCCEEDED(hr)) { CString str; str.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s"), strFile);//需要設定檔案的路徑名 hr = pConnection->Open(_bstr_t(str.GetBuffer(1)), "", "", adModeUnknown);///連線資料庫 ///上面一句中連線字串中的Provider是針對ACCESS2000環境的， //對於ACCESS97,需要改為:Provider=Microsoft.Jet.OLEDB.3.51 if(!SUCCEEDED(hr)) { printf("連線資料庫失敗"); return FALSE; } } } catch(_com_error e)///捕捉異常 { CString errormessage; errormessage.Format("連線資料庫失敗!/r/n%s", (LPCTSTR)e.Description()); printf(errormessage);///顯示錯誤資訊 return FALSE; } pRecordset.CreateInstance(__uuidof(Recordset)); //開始查詢所有表名稱 pRecordset = pConnection->OpenSchema(adSchemaTables);//列舉表的名稱處理 while(!(pRecordset->adoEOF)) { CString strTableType; CString strTableName; _bstr_t table_name = pRecordset->Fields->GetItem("TABLE_NAME")->Value;//獲取表的名稱 _bstr_t table_type = pRecordset->Fields->GetItem("TABLE_TYPE")->Value;//獲取表的型別 strTableType.Format("%s",(LPCSTR) table_type); strTableName.Format("%s",(LPCSTR) table_name); if(!lstrcmp(strTableType,_T("TABLE"))) { //strTableName是表名稱 printf("查到一個表：%s/r/n", strTableName); GetTableInfo(pConnection, strTableName); } pRecordset->MoveNext(); } pRecordset->Close(); pConnection->Close(); return TRUE; } CString GetType(int nType) { switch(nType) { case adEmpty: { return _T("Empty"); } case adSmallInt: { return _T("SmallInt"); } case adInteger: { return _T("Integer"); } case adSingle: { return _T("Single"); } case adDouble: { return _T("Double"); } case adCurrency: { return _T("Currency"); } case adTinyInt: { return _T("TinyInt"); } case adBigInt: { return _T("BigInt"); } case adUnsignedTinyInt: { return _T("UnsignedTinyInt"); } case adUnsignedSmallInt: { return _T("UnsignedSmallInt"); } case adUnsignedInt: { return _T("UnsignedInt"); } case adUnsignedBigInt: { return _T("UnsignedBigInt"); } case adDecimal: { return _T("Decimal"); } case adNumeric: { return _T("Numeric"); } case adBoolean: { return _T("Boolean"); } case adError: { return _T("Error"); } case adUserDefined: { return _T("UserDefined"); } case adVariant: { return _T("Variant"); } case adIDispatch: { return _T("IDispatch"); } case adIUnknown: { return _T("IUnknown"); } case adGUID: { return _T("GUID"); } case adDate: { return _T("Date"); } case adDBDate: { return _T("DBDate"); } case adDBTime: { return _T("DBTime"); } case adDBTimeStamp: { return _T("DBTimeStamp"); } case adBSTR: { return _T("BSTR"); } case adChar: { return _T("Char"); } case adVarChar: { return _T("VarChar"); } case adLongVarChar: { return _T("LongVarChar"); } case adWChar: { return _T("WChar"); } case adVarWChar: { return _T("VarWChar"); } case adLongVarWChar: { return _T("LongVarWChar"); } case adBinary: { return _T("Binary"); } case adVarBinary: { return _T("VarBinary"); } case adLongVarBinary: { return _T("LongVarBinary"); } case adChapter: { return _T("Chapter"); } case adFileTime: { return _T("FileTime"); } case adPropVariant: { return _T("PropVariant"); } case adVarNumeric: { return _T("VarNumeric"); } case adArray: { return _T("Array"); } default: { return _T(""); } }

編譯執行，可以列印Access資料庫的資訊，一個例子如下：

查到一個表：Result 欄位1,名稱ResultID,型別Integer,長度4 欄位2,名稱TaskID,型別Integer,長度4 欄位3,名稱TestTime,型別Integer,長度4 欄位4,名稱DestIP,型別VarWChar,長度255 欄位5,名稱TestType,型別Integer,長度4 欄位6,名稱AvgDelay,型別Integer,長度4 欄位7,名稱MinDelay,型別Integer,長度4 欄位8,名稱MaxDelay,型別Integer,長度4 欄位9,名稱IPAvailability,型別Integer,長度4 欄位10,名稱IPDV,型別Double,長度8 欄位11,名稱LossRate,型別Double,長度8 查到一個表：ResultData 欄位1,名稱ResultDataID,型別Integer,長度4 欄位2,名稱ResultID,型別Integer,長度4 欄位3,名稱ElapsedTime,型別Integer,長度4 欄位4,名稱PacketSize,型別Integer,長度4 欄位5,名稱ResultType,型別Integer,長度4 欄位6,名稱Delay,型別Integer,長度4 欄位7,名稱ErrorInfo,型別VarWChar,長度255 Press any key to continue