获取ACCESS2000数据库中的所有表的名称（vc ＋ ado）

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: %x\t%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 = %s\tCode 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); } void CAdo5Dlg::OnButton2() { // TODO: Add your control notification handler code here HRESULT hr = S_OK; CoInitialize(NULL); IADORecordBinding *picRs = NULL; _RecordsetPtr pRstSchema("ADODB.Recordset"); _ConnectionPtr pConnection("ADODB.Connection"); try { pConnection->Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ado1.mdb;", "", "", adModeUnknown); pRstSchema->QueryInterface(__uuidof(IADORecordBinding), (LPVOID*)& picRs); pRstSchema = pConnection->OpenSchema(adSchemaTables); while(!(pRstSchema->adoEOF)) { 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_ListBox.AddString((LPCSTR)table_name); } pRstSchema->MoveNext(); } pRstSchema->Close(); pConnection->Close(); } catch(_com_error &e) { AfxMessageBox("Error!"); } CoUninitialize(); }

• ·着色器和效果——2.0 介绍顶点着色器
• ·Windows 2000 的注册表备份和恢复
• ·ado方式访问带密码数据库的方法
• ·注册表的结构
• ·编码web.config中的信息
• ·COM样例（四）——客户端代码
• ·如何在DataGrid里面使用动态图形表示数字
• ·JSP中读文件和写文件的例子
• ·myicq情景分析
• ·c中的数据类型