SQLSERVER資料庫連接的配置及資料集的設定
HRESULT hr =S_FALSE;
_RecordsetPtr m_QryRcdSet;
_ConnectionPtr m_pConnection;
hr =m_pConnection.CreateInstance("ADODB.Connection");
if (FAILED(hr))
return FALSE;
try
{
m_pConnection->ConnectionTimeout =8;
CString strConnect = "Provider=SQLOLEDB.1;Data Source=" + (資料庫伺服器的IP) + ";Initial Catalog=" + (資料庫的名稱)+ ";User ID="
+ (使用者名稱)+ "; PWD=" +(密碼);
m_pConnection->Open(_bstr_t(strConnect),"","",adModeUnknown);
}
catch(_com_error e)///捕捉異常
{
AfxMessageBox("資料庫連接失敗!" +CString(e.ErrorMessage()));
ASSERT(FALSE);
return FALSE;
}
hr =m_QryRcdSet.CreateInstance("ADODB.Recordset");
if (FAILED(hr))
return FALSE;
try
{
m_QryRcdSet->CursorType =adOpenStatic;
m_QryRcdSet->CursorLocation =adUseClient;
hr = m_QryRcdSet->Open(_bstr_t(SqlStr),_variant_t((IDispatch *)m_pConnection, true), adOpenDynamic, adLockPessimistic, adCmdText);
ADO_LONGPTR count =m_QryRcdSet->GetRecordCount();
if(count > 0)
m_QryRcdSet->MoveFirst();
}
catch(_com_error e)///捕捉異常
{
e.Description();
AfxMessageBox(e.Description());
AfxMessageBox("資料庫連接失敗!" + CString(e.ErrorMessage()));
ASSERT(FALSE);
return FALSE;
}
在stdafx.h檔案中加入以下語句:
#import "c:/program files/common files/system/ado/msado15.dll" no_namespace rename("EOF","adoEOF")