VC如何用ADO连接ACSECC，给个简单的CODE例子,多谢

[zhangnanonnet]

VC如何用ADO连接ACSECC，给个简单的CODE例子,多谢,急

[masterz]

http://www.csdn.net/expert/Topic/391/391452.shtm

[masterz]

http://www.csdn.net/expert/Topic/249/249979.shtm

[cafecai]

例子多的是，自己search一下吧

[bobofu]

_ConnectionPtr m_pConnection;
AfxOleInit();
m_pConnection.CreateInstance("ADODB.Connection");
/******************连接数据库********************/
try
{
m_pConnection->ConnectionTimeout = 8;
//连接SQL SERVER
//m_pConnection->Open("Driver=SQL Server;Database=test;Server=127.0.0.1;UID=sa;PWD=;","","",adModeUnknown);
//连接ACCESS2000
m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mydatabase.mdb","","",adModeUnknown);
}
catch(_com_error e)///捕捉异常
{
AfxMessageBox("数据库连接失败!");
return FALSE;
}
catch(...)
{
}
/**********************************************/

_RecordsetPtr m_pRecordset;

m_pRecordset.CreateInstance("ADODB.Recordset");
HRESULT hr = m_pRecordset->Open("SELECT * FROM MyTab",_variant_t((IDispatch *)m_pConnection,true),adOpenDynamic,adLockPessimistic,adCmdText);
if(SUCCEEDED(hr))
{
_variant_t Holder;
try
{
m_pRecordset->MoveFirst();
while(!m_pRecordset->adoEOF)
{
Holder = m_pRecordset->GetCollect("MyField");
if(Holder.vt!=VT_NULL)
m_var.AddString((char*)_bstr_t(Holder)); //m_var为一combo box变量
m_pRecordset->MoveNext();
}
UpdateData(FALSE);
}

catch(_com_error * e)
{
CString Error = e->ErrorMessage();
AfxMessageBox(e->ErrorMessage());
}
catch(...)
{
}
}
m_pRecordset->Close();///关闭记录集
m_pConnection->Close();