...我在用ado 操作Acess2003的时候,总是出现"数据库连接失败"以下是代码:

#import "c:\program files\common files\system\ado\msado15.dll"no_namespaces rename("EOF" adoEOF")

BOOL CMyAdoTestApp：：InitInstance()

{

if(!AfxOleInit())//这就是初始化COM库

{

AfxMessageBox(“OLE初始化出错!”);

return FALSE;

}

……

}

ConnectionPtr pConn;

if (FAILED(pConn.CreateInstance("ADODB.Connection")))

{

AfxMessageBox("Create Instance failed!");

return;

}

CString strSRC;

strSRC="Driver=SQL Server;Server=";

strSRC+="suppersoft";

strSRC+=";Database=";

strSRC+="mydb";

strSRC+=";UID=SA;PWD=";

CString strSQL = "Insert into student(no,name,sex,address) values(3,’aaa’,’male’,’beijing’)";

_variant_t varSRC(strSRC);

_variant_t varSQL(strSQL);

_bstr_t bstrSRC(strSRC);

if (FAILED(pConn->Open(bstrSRC,"","",-1)))

{

AfxMessageBox("Can not open Database!");

pConn.Release();

return;

}

COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);

pConn->Execute(_bstr_t(strSQL),&vtOptional,-1);

pConn.Release();

AfxMessageBox("ok!");

5、使用_RecordsetPtr接口(以连接SQL Server为例)

_RecordsetPtr pPtr;

if (FAILED(pPtr.CreateInstance("ADODB.Recordset")))

{

AfxMessageBox("Create Instance failed!");

return FALSE;

}

CString strSRC;

strSRC="Driver=SQL Server;Server=";

strSRC+="210.46.141.145";

strSRC+=";Database=";

strSRC+="mydb";

strSRC+=";UID=sa;PWD=";

strSRC+="sa";

CString strSQL = "select id,name,gender,address from personal";

_variant_t varSRC(strSRC);

_variant_t varSQL(strSQL);

if(FAILED(pPtr->Open(varSQL,varSRC,adOpenStatic,adLockOptimistic,adCmdText)))

{

AfxMessageBox("Open table failed!");

pPtr.Release();

return FALSE;

}

while(!pPtr->GetadoEOF())

{

_variant_t varNo;

_variant_t varName;

_variant_t varSex;

_variant_t varAddress;

varNo = pPtr->GetCollect ("id");

varName = pPtr->GetCollect ("name");

varSex = pPtr->GetCollect ("gender");

varAddress = pPtr->GetCollect ("address");

CString strNo =(char *)_bstr_t(varNo);

CString strName =(char *)_bstr_t(varName);

CString strSex =(char *)_bstr_t(varSex);

CString strAddress =(char *)_bstr_t(varAddress);

strNo.TrimRight();

strName.TrimRight();

strSex.TrimRight();

strAddress.TrimRight();

int nCount = m_list.GetItemCount();

int nItem = m_list.InsertItem (nCount,_T(""));

m_list.SetItemText (nItem,0,strNo);

m_list.SetItemText (nItem,1,strName);

m_list.SetItemText (nItem,2,strSex);

m_list.SetItemText (nItem,3,strAddress);

pPtr->MoveNext();

}

pPtr->Close();

pPtr.Release();