封裝ADO訪問資料庫的兩個類 (轉)[@more@]

對於初學者，使用ADO訪問的時候，涉及到各種資料型別轉換，可能有一些難度，我試圖封裝了ADO訪問資料庫，使其更方便的用現有的VC的資料型別，更加方便的使用ADO運算元據庫。
下面分別提供兩個封裝ADO資料庫訪問的類，一個是資料庫的連線類，一個是資料庫欄位訪問的類。

在連線類中，大家可以看到，連線類中並沒有Recordset的成員變數，因為這樣的，在整個資料庫應用中，資料庫的連線一般一個就夠了，而同時開啟的Reocordset則可能不只一個，所以，如果兩個在同一個類裡，那麼，如果要同時開啟兩個記錄集，需要建立類的兩個例項，就是需要同時開啟兩個資料庫連線，如果對於連線的是同一個資料庫，同時開啟兩個連線的話，意味著資源的不必要的浪費。

資料庫欄位訪問類，簡化了，獲取資料庫欄位內容的操作，避免了資料型別轉換的麻煩。

兩個類都對錯誤處理進行了較多的考慮，在訪問資料庫中，如果沒有錯誤處理，其害處是顯而易見的。

#ifndef _BBADOCONNECT_H
#define _BBADOCONNECT_H

//
// ADO訪問資料庫類
// 環境：需要MSADO15.DLL
// 作者：鄧振波
// 2001.4.20
// E：
//主頁：/">seesi.51.net

// 說明：封裝了ADO使用的操作和ADO訪問資料庫錯誤處理
// 使在VC上方便的使用ADO訪問資料庫
// 包括：ADO連線資料庫、開啟記錄集、、以及
// 事務處理、ADO記錄集內容轉換成C＋＋的常用資料型別（CString、char，long，float等）
//
// 使用：1。定義一個CBBAdoConnection例項：CBBAdoConnection m_adoConn;
// 2。建立連線：m_adoConn.Open(strConnstring);
// 如果需要無條件重新連線的可以，引數bRepen設成TREU
// 3。開啟記錄集：
//
// _RecordsetPtr* prsThis=NULL;
// prsThis=new _RecordsetPtr;
// CString strSQL;
// strSQL=" * from Table_Name";//
// 如果記錄集開啟失敗
//

if(!(m_adoConn.OpenRecordset(strSQL,prsThis)))
// return FALSE;
// 4。建立記錄集值
// 注意需要用引數構造
// CBBRstValues rsv(m_adoConn,prsThis);
//
// 5。獲得的欄位的值
// rsv.GetValueLong(&m_nDeptID,1L);//獲得第一個欄位的值
// rsv.GetValueStr(m_strName,"ID");//獲得第一個欄位名為ID的值
// 其它的同理.如果需要獲得中nText型別的欄位值請用
// GetValText(CString &strText, CString &strFieldName)函式
// 6。記錄集的記錄移動 (*prsThis)->MoveNext()等類似函式
// 7。記錄集不用時候需要釋放其資源
// 1)關閉記錄集
// 2)刪除記錄集指標
// e.g. (*prsThis)->Close();
// delete prsThis;
// prsThis=NULL;
// 否則會造成洩漏
//
// 注：
// 1。程式必須要初始化COM環境，請在應用類中加入AfxOleInit函式初始化環境,否則ADO的將失敗
// 2。如果需要呼叫過程SQL語句改為“Exec ” ＋儲存過程名即可，與執行SQL同樣
//
// CopyRight seesi,2001
//
// 說明：你可以隨便在的程式中任意使用、修改本程式碼，但請你不要刪除頭的部分說明。如果需要轉載，請註明出處。
// msado15.dll必須放在本檔案所在目錄，或者自己指定下面的msado15.dll全路徑
//

#if !defined(__AFXADO_H)
#import "msado15.dll" no_namespace rename ("EOF", "adoEOF")
rename ("LockTypeEnum", "adoLockTypeEnum")
rename ("DataTypeEnum", "adoDataTypeEnum")
rename ("FieldAttributeEnum",

"adoFieldAttributeEnum")
rename ("EditModeEnum", "adoEditModeEnum")
rename ("RecordStatusEnum", "adoRecordStatusEnum")

rename ("ParameterDirectionEnum",

"adoParameterDirectionEnum")
#endif // !defined(__AFXADO_H)

class CBBAdoConnection
{
public:
CBBAdoConnection();
virtual ~CBBAdoConnection();
public:
int SetConnTimeOut(long lTimeOut); // 設定連線超時
int SetCommTimeOut(long lTimeOut); // 設定命令執行超時
BOOL InnectClose(); // 判斷連線是否已經開啟
int ExecuteSQL(LPCSTR szSQL); // 簡單執行SQL語句，不返回記錄集
// 開啟資料庫記錄集
// 引數：
// strSQL 記錄集的SQL語句
// rs 返回的記錄集_RecordsetPtr物件
// sConnString 資料庫的連線字串
// 如果使用資料庫連線已經開啟，引數沒用
// 如果資料庫的連線沒有開啟，當給予一個連線字串,將先開啟資料庫連線
BOOL OpenRecordset(CString strSQL, _RecordsetPtr *rs,CString sConnString="");//開啟資料庫記錄集
BOOL OpenRecordset(const char *sSQL,_RecordsetPtr* rs,char* sConnString=NULL);

// 開啟資料庫連線
// 引數：
// strConnString 連線字串
// sConnString 連線字串
// bReOpen 是否重新開啟，如果為FALSE，，
// 將先判斷資料庫是否開啟如果沒有開啟則開啟，
// 如果已經開啟，將不執行任何操作
// 如果為TRUE，則無條件重新開啟。
BOOL OpenConnection(CString strConnString ,BOOL bReOpen=FALSE);
BOOL OpenConnection(char* sConnString,BOOL bReOpen=FALSE); void CloseConnect();// 關閉資料庫連線

BOOL ExecuteTrans(CStringArray arrStrSQL); // 事務處理,不返回任何記錄集，引數為事務SQL陣列

_ConnectionPtr* GetConnection(); // 得到_ConnectionPtr指標
CString GetConnString(); // 得到連線字串
private:
enum ERRORFrom {
ErrFormOpenConnsction,
ErrFromOpenRecordset,
ErrFormCloseConnection,
ErrFormTanslation
};
_ConnectionPtr* m_pConn;
char m_szConnString[512];
///
protected:
void ReportError(int nERRORfrom);
};

class CBBRstValues
{
public:
// 三種構造類的方法
// 如果無引數構造，請構造後呼叫InitConnectAndRst方法
// 其他的兩種構造則不需呼叫InitConnectAndRst方法
CBBRstValues();
CBBRstValues(_ConnectionPtr* pConn,_RecordsetPtr* pRs);
CBBRstValues(CBBAdoConnection* pBBadoConn,_RecordsetPtr*

pRs);

virtual ~CBBRstValues();
public:
// 初始化連線隊象和記錄集物件
void InitConnectAndRst(_ConnectionPtr* pConn,_RecordsetPtr* pRs);
void InitConnectAndRst(CBBAdoConnection* pBBAdoConn, _RecordsetPtr * Rs);

// GetValText函式
// 得到資料庫nText欄位的值
// 引數：
// strText 用來接收返回值（欄位值）
// strFieldName 欄位名，該欄位資料型別必須是nText型別
BOOL GetValText(CString& strText,CString& strFieldName); //得到資料庫nText欄位的值

// GetValueStr函式
// 得到數字型，日期型和字元型欄位值函式
// 引數：
// cVal 用來接收返回值（欄位值）的字串指標，要求要開闢足夠的記憶體單元
// 或者足夠容納欄位內容的字元陣列。
// vIndex 資料庫欄位的名字或者，變體型,一般不直接用這個引數，
// 應該用同形式的多型函式的引數呼叫
// 資料庫欄位的資料型別可以是數字型，日期型和字元型
// nFieldLen 需要返回的資料的字串的長度，如果為－1,則返回整個欄位值
// lpszFieldName 欄位名,資料庫欄位的資料型別可以是數字型，日期型和字元型
// nFieldIndex 在SQL語句中欄位的索引序號資料庫欄位的資料型別可以是數字型，日期型和字元型

// GetValueLong函式
// 得到數字型，日期型和字元型欄位值函式
// 引數：
// lVal 用來接收返回值（欄位值）
// vIndex 資料庫欄位的名字或者索引，變體型,一般不直接用這個引數，
// 應該用同形式的多型函式的引數呼叫
// 資料庫欄位的資料型別要求是數字型（int,long)
// lpszFieldName 欄位名,資料庫欄位的資料型別可以是數字型，日期型和字元型
// nFieldIndex 在SQL語句中欄位的索引序號資料庫欄位的資料型別可以是數字型，日期型和字元型

// GetValueFlaot函式
// 得到數字型，日期型和字元型欄位值函式
// 引數：
// fVal 用來接收返回值（欄位值）
// vIndex 資料庫欄位的名字或者索引，變體型,一般不直接用這個引數，
// 應該用同形式的多型函式的引數呼叫
// 資料庫欄位的資料型別要求是字型（int,long,float,貨幣型等)
// lpszFieldName 欄位名,資料庫欄位的資料型別可以是數字型，日期型和字元型
// nFieldIndex 在SQL語句中欄位的索引序號資料庫欄位的資料型別可以是數字型，日期型和字元型

BOOL GetValueStr(char* cVal,_variant_t &vIndex,int

nFieldLen=-1);
BOOL GetValueLong(long* lVal,_variant_t &vIndex);
BOOL GetValueFloat(float* fVal,_variant_t &vIndex);

BOOL GetValueStr(char* cVal,long lIndex,int nFieldLen=-1);
BOOL GetValueLong(long* lVal,long lIndex);
BOOL GetValueFloat(float* fVal,long lIndex);

BOOL GetValueStr(char* cVal,CString strIndex,int nFieldLen=-1);
GetValueLong(long *lVal, LPCSTR lpszIndex);
BOOL GetValueFloat(float* fVal,CString strIndex);

BOOL GetValueStr(CString& str,LPCSTR lpszFieldName,int nFieldLen=-1);
BOOL GetValueStr(CString& str,UINT nFieldIndex,int nFieldLen=-1);
BOOL GetValueStr(CString& str,_variant_t &vIndex,int nFieldLen=-1);

// 判斷值是否有效,是否為NULL
BOOL VerifyVTData(_variant_t& value);
BOOL VerifyVTData(char* pData);
protected:
_RecordsetPtr* m_prsThis;
_ConnectionPtr* m_pConn;
void ReportError();

};

#endif // _BBADOCONNECT_H

////CPP檔案

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CBBAdoConnection::CBBAdoConnection()
{
m_pConn=NULL;
}

_ConnectionPtr* CBBAdoConnection::GetConnection()
{
return m_pConn;
}

CString CBBAdoConnection::GetConnString()
{
return m_szConnString;
}

CBBAdoConnection::~CBBAdoConnection()
{
// 關比連線
CloseConnect();
}

BOOL CBBAdoConnection::OpenConnection(char *sConnString,BOOL bReOpen /*=FALSE*/)
{

// 不需重新開啟
if(!bReOpen)
{
if(m_pConn !=NULL && ((*m_pConn)->State!=adStateClosed))
return TRUE;
}

VERIFY(sConnString);
strcpy(m_szConnString,sConnString);

try
{
m_pConn =new _ConnectionPtr;
m_pConn->CreateInstance(__uuidof(Connection));
if(m_pConn==NULL)
return FALSE;
HRESULT hr=(*m_pConn)->Open((char*)sConnString,"","",-1);
if(FAILED(hr))
return FALSE;
return TRUE;
}
catch(_com_error)
{
ReportError(ErrFormOpenConnsction);
return FALSE;
}
catch(...)
{
#ifdef _DE // 時顯示相應的錯誤資訊
MessageBox(NULL,"資料庫連線未處理的異常！","連線失敗",MB_OK|MB_ICONINFORMATION);
#else
MessageBox(NULL,"連線資料失敗，請檢查和資料庫設定是否正確","連線失敗",MB_OK|MB_ICONINFORMATION);
#endif
return FALSE;
}
SetConnTimeOut(5);
}

BOOL CBBAdoConnection::OpenRecordset(const char *sSQL, _RecordsetPtr *rs, char *sConnString)
{
// rs=new _RecordsetPtr;
VERIFY(sSQL);
try
{

if((m_pConn==NULL)||((*m_pConn)->State==adStateClosed))
{
int n=(*m_pConn)->State;
if(sConnString!=NULL)
{
if(!OpenConnection(sConnString))
return FALSE;
}
// 嘗試連線資料庫
else
{
//
// if(!OpenConnection(m_szConnString))
// return FALSE;
// MessageBox(NULL,"資料庫連線已經斷開，請重新連線！","連線問題",MB_OK|MB_ICONINFORMATION);
}

return FALSE;
}
// rs=new _RecordsetPtr;
HRESULT hr;
hr=rs->CreateInstance(__uuidof(Recordset));
if(FAILED(hr))
{
return FALSE;// 建立例項失敗
}
hr=(*rs)->Open(sSQL,m_pConn->GetInterfacePtr(),
adOpenStatic, adLockBatchOptimistic, -1);
if(FAILED(hr))
{
return FALSE;// 開啟連線失敗
}
return TRUE;// 成功返回
}
catch(_com_error)
{

// AfxMessageBox(ce->Description());
ReportError(ErrFromOpenRecordset);
return FALSE;
}
catch(...)
{
MessageBox(NULL,"資料庫記錄開啟失敗！","記錄失敗",MB_OK|MB_ICONINFORMATION);
return FALSE;
}
return TRUE;
}

void CBBAdoConnection::CloseConnect()
{
try
{
if(m_pConn!=NULL)
{
if((*m_pConn)->State!=adStateClosed)
(*m_pConn)->Close();
delete m_pConn;
m_pConn=NULL;
}
}
catch(_com_error)
{
ReportError(ErrFormCloseConnection);
}
catch(...)
{
AfxMessageBox("關閉資料庫連線未知錯誤！");
}
}

BOOL CBBAdoConnection::OpenConnection(CString strConnString, BOOL bReOpen)
{
char c[512];
strcpy(c,strConnString.GetBuffer(0));
strConnString.ReleaseBuffer();
return OpenConnection(c,bReOpen);
}

BOOL CBBAdoConnection::OpenRecordset(CString strSQL, _RecordsetPtr *rs, CString sConnString)
{
char c[1024];
strcpy(c,strSQL.GetBuffer(0));
strSQL.ReleaseBuffer();
return OpenRecordset(c,rs,(char*)(LPCTSTR)sConnString);
}

BOOL CBBAdoConnection::ExecuteTrans(CStringArray arrStrSQL) // 開始事務處理,不返回任何記錄集，引數為事務SQL陣列
{

(*m_pConn)->BeginTrans();

try
{
_RecordsetPtr* prsThis;
for(int i=0;i {
prsThis=new _RecordsetPtr;
OpenRecordset(arrStrSQL.ElementAt(i),prsThis);
delete prsThis;
}
prsThis=NULL;
(*m_pConn)->CommitTrans();
return TRUE;
}
catch(_com_error)
{
(*m_pConn)->RollbackTrans();
ReportError(ErrFormTanslation);
return FALSE;
}
}

// 執行SQL操作，不返回記錄集
int CBBAdoConnection::ExecuteSQL(LPCSTR szSQL)
{
// VARIANT vEffect;
try
{
(*m_pConn)->Execute(szSQL,NULL,adCmdText|adExecuteNoRecords);
return TRUE;
}
catch(_com_error)
{
ReportError(ErrFormTanslation);
return FALSE;
}
// return vEffect.lVal;
}

// 返回是否處在連線狀態
BOOL CBBAdoConnection::IsConnectClose()
{

return (m_pConn==NULL)||((*m_pConn)->State==adStateClosed);
}

// 設定連線超時
int CBBAdoConnection::SetConnTimeOut(long lTimeOut)
{
return (*m_pConn)->put_ConnectionTimeout(lTimeOut);
}

int CBBAdoConnection::SetCommTimeOut(long lTimeOut)
{
return (*m_pConn)->put_CommandTimeout(lTimeOut);
}

// 報告錯誤
void CBBAdoConnection::ReportError(int nERRORfrom)
{
switch(nERRORfrom)
{
case ErrFormOpenConnsction:
#ifdef _DEBUG // 除錯試時顯示相應的錯誤資訊
try
{
for(long l=0;lErrors->Count;l++)
{
ErrorPtr pErr;
pErr=(*m_pConn)->Errors->GetItem(l);
CString str;
str=(char*)pErr->Description;
MessageBox(NULL,str,"連線失敗",MB_OK|MB_ICONINFORMATION);
}
}
catch(...)
{
MessageBox(NULL,"資料庫連線未知錯誤，無法捕捉具體錯誤資訊!","錯誤",MB_ICONINFORMATION);
}
#else
MessageBox(NULL,"連線資料失敗，請檢查網路和資料庫設定是否正確","連線失敗",MB_OK|MB_ICONINFORMATION);
#endif
break;
case ErrFromOpenRecordset:
#ifdef _DEBUG
try
{
for(long i=0;iErrors->Count;i++)
{
ErrorPtr pErr;
pErr=(*m_pConn)->Errors->GetItem(i);
AfxMessageBox(pErr->Description);
}
}
catch(...)
{
MessageBox(NULL,"資料庫連線未知錯誤，無法捕捉具體錯誤資訊!","錯誤",MB_ICONINFORMATION);
}
#else
MessageBox(NULL,"開啟資料庫失敗,請檢查網路，並嘗試重新連線資料庫！","記錄失敗",MB_OK|MB_ICONINFORMATION);
#endif
break;
case ErrFormCloseConnection:
#ifdef _DEBUG // 除錯時顯示相應的錯誤資訊
try
{
for(long l=0;lErrors->Count;l++)
{
ErrorPtr pErr;
pErr=(*m_pConn)->Errors->GetItem(l);
CString str;
str=(char*)pErr->Description;
MessageBox(NULL,str,"連線失敗",MB_OK|MB_ICONINFORMATION);
}
}
catch(...)
{
MessageBox(NULL,"資料庫連線未知錯誤，無法捕捉具體錯誤資訊!","錯誤",MB_ICONINFORMATION);
}

#else
;// MessageBox(NULL,"關閉資料庫連線異常","關閉異常",MB_OK|MB_ICONINFORMATION);
#endif
break;
case ErrFormTanslation:
#if def _DEBUG
try
{
for(long i=0;iErrors->Count;i++)
{
ErrorPtr pErr;
pErr=(*m_pConn)->Errors->GetItem(i);
AfxMessageBox(pErr->Description);
}
}
catch(...)
{
MessageBox(NULL,"資料庫連線未知錯誤，無法捕捉具體錯誤資訊!","錯誤",MB_ICONINFORMATION);
}
#else
MessageBox(NULL,"資料庫執行任務失敗,請檢查資料庫。","任務失敗",MB_OK|MB_ICONINFORMATION);
#endif
break;
default:
break;
}
}

/////////////// CRecordsetValus

CBBRstValues::CBBRstValues()
{
;
}

CBBRstValues::CBBRstValues(_ConnectionPtr* pConn,_RecordsetPtr* pRs)
{
ASSERT(pConn);
ASSERT(pRs);
m_prsThis=pRs;
m_pConn=pConn;
}

CBBRstValues::CBBRstValues(CBBAdoConnection* pBBadoConn,_RecordsetPtr* pRs)
{
CBBRstValues(pBBadoConn->GetConnection(),pRs);
}

CBBRstValues::~CBBRstValues()
{
;
}

void CBBRstValues::InitConnectAndRst(_ConnectionPtr *pConn, _RecordsetPtr *pRs)
{
ASSERT(pConn);
ASSERT(pRs);
m_prsThis=pRs;
m_pConn=pConn;
}

void CBBRstValues::InitConnectAndRst(CBBAdoConnection *pBBAdoConn, _RecordsetPtr *pRs)
{
InitConnectAndRst(pBBAdoConn->GetConnection(),pRs);
}

BOOL CBBRstValues::GetValueLong(long *lVal, _variant_t &vIndex)
{
_variant_t value;
try{

if((*m_prsThis)==NULL||(*m_prsThis)->State==adStateClosed)
{

#ifdef _DEBUG
AfxMessageBox("記錄集未開啟！");
#else
MessageBox(NULL,"無法讀取資料庫資料，可能資料庫連線已經斷開，請重新連線、然後重試。","連線問題",MB_ICONINFORMATION);
#endif
return FALSE;
}

if((*m_prsThis)->adoEOF)
{
lVal=0;
return FALSE;
}

value=(*m_prsThis)->GetCollect(vIndex);
}
catch(_com_error)
{
ReportError();
return FALSE;
}
catch(...)
{
AfxMessageBox("資料庫欄位訪問未知錯誤！請檢查資料庫是否改動。",MB_ICONINFORMATION);
return FALSE;
}

if(VerifyVTData(value))
{
*lVal = long(value);
}
else
{
*lVal=0;
}

return TRUE;
}

BOOL CBBRstValues::GetValueStr(char *cVal, _variant_t &vIndex, int nFieldLen)
{
char * c=NULL;
_variant_t value;
DATE dt;
CString str;
COleDateTime da;

// 檢查是陣列
// VERIFY(sizeof(cVal)<1);
memset(cVal,0,sizeof(cVal));
try
{
if((*m_prsThis)==NULL||(*m_prsThis)->State==adStateClosed)
{
#ifdef _DEBUG
AfxMessageBox("記錄集未開啟！");
#else
MessageBox(NULL,"無法讀取資料庫資料，可能資料庫連線已經斷開，請重新連線、然後重試。","連線問題",MB_ICONINFORMATION);
#endif
return FALSE;
}

if((*m_prsThis)->adoEOF)
{
cVal[0]=';
return FALSE;
}
value = (*m_prsThis)->GetCollect(vIndex);
}
catch(_com_error)
{
ReportError();
// AfxMessageBox("資料庫欄位訪問錯誤！");
return FALSE;
}
catch(...)
{
AfxMessageBox("資料庫欄位訪問未知錯誤！請檢查資料庫是否改動。",MB_ICONINFORMATION);
return FALSE;
}

if(VerifyVTData(value))
{
switch(value.vt)
{
case VT_BSTR:
c = (char *)_com_util::ConvertBSTRToString( V_BSTR(&value) );
if(VerifyVTData(c))
{
if(nFieldLen<=0)
{
strcpy(cVal,(char*)c);
}
else
{
strncpy(cVal, (char*)c, nFieldLen);
}
}
delete c;
c=NULL;
break;
case VT_I4:
case VT_DECIMAL:
case VT_UI4:
case VT_I8:
case VT_UI8:
case VT_INT:
case VT_UINT:
long lVal;
lVal = long(value);
ltoa(lVal,cVal,10);
break;
case VT_DATE:
dt=value.date;
da=COleDateTime(dt);
// str=da.Format("%Y-%m-%d %H:%M:%S");
str=da.Format("%Y-%m-%d ");
c=new char[64];
memset(c,0,sizeof(char)*64);
strcpy(c,str.GetBuffer(0));
str.ReleaseBuffer();
if(VerifyVTData(c))
{
if(nFieldLen<=0)
{
strcpy(cVal,(char*)c);
}
else
{
strncpy(cVal, (char*)c, nFieldLen);
cVal[nFieldLen]=';
}
}
delete c;
c=NULL;
break;
default:
#ifdef _DEBUG
AfxMessageBox("未處理的欄位資料型別，請處理！");
#else
break;
#endif
break;
}
}

else
{
cVal[0]=';
}
return TRUE;
}

BOOL CBBRstValues::GetValueLong(long *lVal, long lIndex)
{
_variant_t vIndex(lIndex);
return GetValueLong(lVal,vIndex);
}

BOOL CBBRstValues::GetValueLong(long *lVal, LPCSTR lpszIndex)
{
_variant_t vIndex(lpszIndex);
return GetValueLong(lVal,vIndex);
}

BOOL CBBRstValues::VerifyVTData(char *pData)
{
if(pData == NULL)
{
return FALSE;
}
return TRUE;
}

BOOL CBBRstValues::VerifyVTData(_variant_t &value)
{
if(value.vt == VT_NULL)
{
return FALSE;
}
return TRUE;
}

BOOL CBBRstValues::GetValueStr(CString& str,LPCSTR lpszFieldName,int nFieldLen/*=-1*/)
{
_variant_t vIndex(lpszFieldName);
return GetValueStr(str,vIndex,nFieldLen);
}

BOOL CBBRstValues::GetValueStr(CString& str,UINT nFieldIndex,int nFieldLen/*=-1*/)
{
_variant_t vIndex((long)nFieldIndex);
return GetValueStr(str,vIndex,nFieldLen);

}

BOOL CBBRstValues::GetValueStr(CString& str,_variant_t &vIndex,int nFieldLen/*=-1*/)
{
TCHAR buffer[1024];
if(nFieldLen > 1023)
nFieldLen = 1023;

BOOL bResult=GetValueStr((char*)buffer,vIndex,nFieldLen);
str.Format(buffer);
str.TrimRight();
return bResult;
}

BOOL CBBRstValues::GetValueFloat(float* fVal,_variant_t &vIndex)
{
_variant_t value;
try
{
if((*m_prsThis)==NULL||(*m_prsThis)->State==adStateClosed)
{

#ifdef _DEBUG
AfxMessageBox("記錄集未開啟！");
#else
MessageBox(NULL,"無法讀取資料庫資料，可能資料庫連線已經斷開，請重新連線、然後重試。","連線問題",MB_ICONINFORMATION);
#endif
return FALSE;
}

if((*m_prsThis)->adoEOF)
{
fVal=0;
return FALSE;
}

value=(*m_prsThis)->GetCollect(vIndex);
}
catch(_com_error)
{
ReportError();
return FALSE;
}
catch(...)
{
AfxMessageBox("資料庫欄位訪問未知錯誤！請檢查連線資料庫結構是否已經更改。",MB_ICONINFORMATION);
return FALSE;
}

if(VerifyVTData(value))
{
*fVal = float(value);
}
else
{
*fVal = 0;
}
return TRUE;
}

BOOL CBBRstValues::GetValueFloat(float* fVal,long lIndex)
{
_variant_t vIndex(lIndex);
return GetValueFloat(fVal,vIndex);
}

BOOL CBBRstValues::GetValueFloat(float* fVal,CString strIndex)
{
_variant_t vIndex(strIndex);
return GetValueFloat(fVal,vIndex);
}

BOOL CBBRstValues::GetValueStr(char *cVal,long lIndex,int nFieldLen)
{
_variant_t vIndex;
vIndex=_variant_t(lIndex);
return GetValueStr(cVal,vIndex);
}

BOOL CBBRstValues::GetValueStr(char *cVal,CString strIndex,int nFieldLen)
{
_variant_t vIndex;
vIndex=_variant_t(strIndex);
return GetValueStr(cVal,vIndex);
}

void CBBRstValues::ReportError()
{
#ifdef _DEBUG
try
{
for(long l=0;lErrors->Count;l++)
{
ErrorPtr pErr;
pErr=(*m_pConn)->Errors->GetItem(l);
AfxMessageBox(pErr->Description);
}
}
catch(...)
{
AfxMessageBox("欄位錯誤物件訪問錯誤，請檢查書寫是否正確。");
}
#else
MessageBox(NULL,"欄位訪問發生錯誤，請確認資料庫結構沒有改動。","欄位訪問",MB_ICONINFORMATION);
#endif
// AfxMessageBox("資料庫欄位訪問錯誤！");
}

BOOL CBBRstValues::GetValText(CString &strText, CString &strFieldName)
{
_bstr_t varChunk;
_bstr_t varNotes;
long lngTotalsize,
lngOffSet = 0,
lngChunkSize = 100;
_variant_t vFieldName = _variant_t(strFieldName);
lngTotalsize = (*m_prsThis)->Fields->Item[vFieldName]->ActualSize/2;
if (lngTotalsize <= 0)
return FALSE;

try
{
while (lngOffSet < lngTotalsize)
{
varChunk = (*m_prsThis)->Fields->Item[vFieldName]->GetChunk(lngChunkSize);
varNotes = varNotes + varChunk;
lngOffSet = lngOffSet + lngChunkSize;
}
strText=(char*)varNotes;
}
catch(_com_error)
{
ReportError();
return FALSE;
}
catch(...)
{

#ifdef _DEBUG
AfxMessageBox("獲取Text欄位未知錯誤");
#endif
return FALSE;
}

return TRUE;
}

// 上面程式碼，還有沒有完善的地方，更完善的程式碼，在以後會發表，現在我已經做成了一個DLL，並而還有一些示例檔案，需要DLL和示例檔案的，請與我聯絡。:

更多文章在我的個人主頁：

封裝ADO訪問資料庫的兩個類 (轉)

相關文章