如何通過ADO獲得Access數據庫中的所有用戶表和表信息

本文介紹一種通過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