VC6.0 ADO方式连接远程计算机的SQL Server 2000数据库的方法

AfxEnableControlContainer();

// Init Login Count
m_iLoginCount = 0;

// Create ADO Connection
if( FAILED(::CoInitialize(NULL)) )
{
AfxMessageBox("ADO Init failed");
return false;
}
try
{
ADOConn.CreateInstance(__uuidof(Connection));
ADOConn->Open("driver={SQL Server};Server=192.168.9.104;DATABASE=xxx;UID=sa;PWD=1234","sa","1234", adConnectUnspecified);
}
// Catch Exceptions
catch(_com_error &e)
{
CString err;
err.Format("%s", (char*)(e.Description()) );
AfxMessageBox(err);
}
catch(...)
{
AfxMessageBox("Unknown Error...");
}

// Init ADO RecordSet
m_pADOSet.CreateInstance(__uuidof(Recordset));