手机
当前位置:查字典教程网 >编程开发 >Access数据库 >获取ACCESS2000数据库中所有表的名称
获取ACCESS2000数据库中所有表的名称
摘要:voidOpenSchemaX(TCHAR*TableName){HRESULThr=S_OK;::CoInitialize(NULL);/...

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);

}(出处:风闪网路学院)

【获取ACCESS2000数据库中所有表的名称】相关文章:

实现Access数据库的Web查询

ACCESS数据的优化和安全

Access数据库的压缩与修复图解教程

Access3.6 为数据库指定标题

SQL Server 2008 数据库教程

ACCESS表达式生成器

ACCESS中关于SQL语句的转义字符

获取Gridview中ButtonField的text属性

数据库的概念

Access数据库基于时间sql盲注的实现记录

精品推荐
分类导航