求一个用ado连接sql2000的方法

Question

去www.vchome.net中下载一个例子吧，好多人都在上面学习的

Answer 1

_ConnectionPtr pConn; //定义一个连接变量 if(FAILED(pConn.CreateInstance("ADODB.Connection")))
{
pConn->Release();
return FALSE;
}
if(FAILED(pConn->Open((_bstr_t)("Provider=SQLOLEDB;Data Source=192.168.100.1;Initial Catalog=dbname;UID=username;PWD=passwd;"),"","",-1)))
{
pConn->Close(); pConn.Release();
return FALSE;
}

Answer 2

_ConnectionPtr m_pConnection;
//初始化COM，创建ADO连接等操作
AfxOleInit();
m_pConnection.CreateInstance(__uuidof(Connection));
try                 
{
m_pConnection->Open("Provider=SQLOLEDB;server=(local);uid=sa;pwd=;database=sambios",
"","",NULL);

}
catch(_com_error e)
{
AfxMessageBox("数据库连接失败!");
return FALSE;
} //打开记录集
_RecordsetPtr m_pRecordset;
m_pRecordset.CreateInstance(__uuidof(Recordset));//初始化Recordset指针
try
{
m_pRecordset->Open("select * from produt",theApp.m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}