数据库访问层的实现

系统数据库操作采用ADO技术，在进行代码设计时，把数据库操作的代码单独写在一个自定义的ado.cpp文件里，包括CADODatabase和CADORecordset两个类分别实现对数据库和记录集的操作，并将这些操作封装在两个类中。

(1)引入ado库
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
no_namespace rename("EOF", "adoEOF"),rename("BOF","adoBOF")
(2)用_ConnectionPtr对象连接数据库
连接数据库操作中LPCTSTR lpstrConnection作为输入参数，在lpstrConnection参数中设置驱动driver={SQL Server}，数据源(本地) Server=127.0.0.1，数据库名称DATABASE=QUEStoreDB，数据库用户名UID，数据库用户密码PWD。

运用_ConnectionPtr连接数据源。

主要代码如下：
BOOL CADODatabase::Open(LPCTSTR lpstrConnection)
{
HRESULT hr = S_OK;
if(IsOpen())
Close();
if(strcmp(lpstrConnection, _T("")) != 0)
m_strConnection = lpstrConnection;
ASSERT(!m_strConnection.IsEmpty());
try
{
hr = m_pConnection->Open(_bstr_t(m_strConnection), "", "", NULL);
return hr == S_OK;
}
catch(_com_error &e)
{
dump_com_error(e);
}
return FALSE;
}
(3)用_ConnectionPtr对象执行指令
当对数据库进行插入、删除、更新操作时用此方法。

String sql为输入参数，传入SQL(Insert，Delete，Update)语句。

主要代码如下：
BOOL CADODatabase::Execute(LPCTSTR lpstrExec)
{
ASSERT(m_pConnection != NULL);
ASSERT(strcmp(lpstrExec, _T("")) != 0);
try
{
m_pConnection->Execute(_bstr_t(lpstrExec), NULL, adExecuteNoRecords);
}
catch(_com_error &e)
{
dump_com_error(e);
}
return TRUE;
}
(4)使用_RecordsetPtr对象返回记录集
使用数据记录集指针_RecordsetPtr来实现ADO数据操作。

lpstrExec为输入参数，传入SQL(Select)语句；通过_RecordsetPtr对象的操作提取记录集。

主要代码如下：
BOOL CADORecordset::Open(_ConnectionPtr mpdb, LPCTSTR lpstrExec, int nOption)
{
if (IsOpen()) Close();
if(strcmp(lpstrExec, _T("")) != 0)
m_strQuery = lpstrExec;
ASSERT(!m_strQuery.IsEmpty());
m_strQuery.TrimLeft();
BOOL bIsSelect = m_strQuery.Mid(0, strlen("Select ")).CompareNoCase("select ") == 0;
try
{
m_pRecordset->CursorLocation = adUseClient;
if(bIsSelect || nOption == openQuery)
m_pRecordset->Open((LPCSTR)m_strQuery,
_variant_t((IDispatch*)mpdb, TRUE),
adOpenStatic, adLockOptimistic, adCmdText);
else if(nOption == openTable)
m_pRecordset->Open((LPCSTR)m_strQuery,
_variant_t((IDispatch*)mpdb, TRUE),
adOpenDynamic, adLockOptimistic, adCmdTable);
else if(nOption == openStoredProc)
{
m_pRecordset->Open((LPCSTR)m_strQuery,
_variant_t((IDispatch*)mpdb, TRUE),
adOpenStatic, adLockOptimistic, adCmdStoredProc);
}
else
{
TRACE( "Unknown parameter. %d", nOption);
return FALSE;
}
}
catch(_com_error &e)
{
dump_com_error(e);
return FALSE;
}
return m_pRecordset != NULL;
}
(5)使用_RecordsetPtr对象逐个取出数据
当对数据库进行读取某一数据操作时选用此方法，区别于控件的大段数据源绑定。

LPCTSTR lpFieldName为输入参数，传入字段名；CString& strValue为输出参数，传出字段内容。

主要代码如下：
BOOL CADORecordset::GetFieldValue(LPCTSTR lpFieldName, CString& strValue)
{
CString str = _T("");
_variant_t vtFld;
try
{
vtFld = m_pRecordset->Fields->GetItem(lpFieldName)->Value;
switch(vtFld.vt)
{
case VT_BSTR:
str = vtFld.bstrVal;
break;
case VT_I4:
str = IntToStr(vtFld.iVal);
break;
case VT_DATE:
{
COleDateTime dt(vtFld);
str = dt.Format("%Y-%m-%d %H:%M:%S");
}
break;
case VT_EMPTY:
case VT_NULL:
break;
default:
strValue.Empty();
return FALSE;
}
strValue = str;
return TRUE;
}
catch(_com_error &e)
{
dump_com_error(e);
strValue= _T("");
return FALSE;
}
}
(6)关闭数据库
在所有数据操作结束后，关闭数据库。

void CADODatabase::Close()
{
try
{ if (IsOpen())
m_pConnection->Close();
}
catch (_com_error e)
{
dump_com_error(e);
}
}。