vc6 ado mysql_VC中使用ADO操作数据库的方法(转)

_ConnectionPtr m_pConnect;

_RecordsetPtr pSet;

HRESULT hr;

try

{

hr = m_pConnect.CreateInstance("ADODB.Connection");

if(SUCCEEDED(hr))

{

CString dd;

dd.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s",file);

hr = m_pConnect->Open((_bstr_t)dd,"","",adModeUnknown);

pSet = m_pConnect->OpenSchema(adSchemaTables);

while(!(pSet->adoEOF))

{

//获取表格

_bstr_t table_name = pSet->Fields->GetItem("TABLE_NAME")->Value;

//获取表格类型

_bstr_t table_type = pSet->Fields->GetItem("TABLE_TYPE")->Value;

//过滤一下，只输出表格名称，其他的省略

if ( strcmp(((LPCSTR)table_type),"TABLE")==0){

CString tt;

tt.Format("%s",(LPCSTR)table_name);

AfxMessageBox(tt);

}

pSet->MoveNext();

}

pSet->Close();

}

m_pConnect->Close();

}catch(_com_error e)///捕捉异常

{

CString errormessage;

errormessage.Format("连接数据库失败!rn错误信息:%s",e.ErrorMessage());

AfxMessageBox(errormessage);

return -1;

}