使用ADO操作数据库

1、 用import导入ADO 的 COM 文件msado15.dll

 

#import "C:\Program Files\Common Files\System\ADO\msado15.dll"\no_namespace 

2、COM 使用时初始化

 

 1HRESULT ComInit()
 2{ 
 3　HRESULT hr = S_OK; // 默认返回值
 4　if FAILED(CoInitialize(NULL)) // COM 初始化调用
 5　{
 6　　CoUninitialize();
 7　　hr = E_UNEXPECTED;
 8　}
 9　return hr;
} 

3、建立数据库连接

 

 1HRESULT ConnectToDB( LPSTR pUserId , // 用户名
 2　LPSTR pConnString, // 连接字串 
 3　LPSTR pUserPassword , // 用户密码
 4　ConnectOptionEnum ConnectOption) // 连接参数
 5　{
 6　　HRESULT hr = S_OK; // 默认返回值
 7　　_ConnectionPtr ptrConn; // 定义Connection对象
 8　　try
 9　　{
　　　// 创建一个连接实体
　　　hr = ptrConn.CreateInstance(__uuidof(Connection));
　　　// 设定连接等待的最大秒数，默认是15秒
　　　ptrConn->ConnectionTimeout = 20
　　　// 打开连接
　　　hr = ptrConn->Open(pConnString, 
　　　pUserId,
　　　pUserPassword,
　　　ConnectOption);
　　　return hr;
　　}
　　catch(_com_error &pComError)
　　{
　　　…… // 错误处理
　　　return E_UNEXPECTED;
　　}
　} 
_RecordsetPtr GetRecordSet(LPSTR strSql, _ConnectionPtr ptrConn)
{
　try
　{
　　RecordsetPtr ptrRS； // recordset 对象
　　// 创建recordset 对象实体
　　ptrRS.CreateInstance(__uuidof(Recordset));
　　ptrRS->Open( strSql,
　　　ptrConn.GetInterfacePtr(),
　　　adOpenForwardOnly, 
　　　adLockUnspecified, 
　　　adCmdText);
　或者
　　ptrRS = ptrConn ->Execute(m_ strSql,NULL, adCmdText);
　　return ptrRS;
　}
　catch(_com_error &a_pComError)
　{
　　….// 错误处理
　　return NULL;
　}
} 

4、通过数据集（recordset）得到列的名称

 

 1HRESULT GetColumnNames(
 2　_RecordsetPtr ptrRs, // recordset 对象
 3　char strColNames[][255],
 4　DataTypeEnum iColTypes[])
 5　{
 6　　try
 7　　{ // 参数变量
 8　　　_variant_t l_vaIndex;
 9　　　l_vaIndex.vt = VT_I2;
　　　// COLUMNS总数
　　　long lColCount;
　　　lColCount = ptrRs ->Fields->Count;
　　　// 循环取得列的属性和名称
　　　for(int iIndex = 0 ; iIndex < lColCount; iIndex++)
　　　{
　　　　l_vaIndex.iVal = iIndex; // 设置循环索引
　　　　// 取得字段名称
　　　　sprintf(strColNames[iIndex], "%s",(LPSTR)ptrRs ->Fields->GetItem(l_vaIndex)->Name);
　　　　// 取得字段属性
　　　　iColTypes = ptrRs ->Fields->GetItem(l_vaIndex)->Type;
　　　}
　　}
　　return S_OK;
　}
　catch(_com_error &a_pComError)
　{
　　…. // 错误处理
　　return E_UNEXPECTED;
　}
　catch()
　{
　　…. // 错误处理
　　return E_UNEXPECTED;
　}
} 

5、通过数据集（recordset）得到当前行记录

 1HRESULT getOneRecord(
 2　_RecordsetPtr ptrRs,
 3　const long lNoOfColumns,
 4　_variant_t varValue[])
 5　{
 6　　try
 7　　{
 8　　　// 参数变量
 9　　　_variant_t l_vaIndex;
　　　l_vaIndex.vt = VT_I2;
　　　// 循环取得列的值
　　　for(long lIndex = 0; lIndex < lNoOfColumns; lIndex ++)
　　　{ 
　　　　l_vaIndex.iVal = lIndex;
　　　　// 取得字段值
　　　　varValue[lIndex]= ptrRs->Fields->GetItem(l_vaIndex)->Value;
　　　}
　　　return S_OK;
　　}
　　catch(_com_error &a_pComError)
　　{
　　　…. // 错误处理
　　　return E_UNEXPECTED;
　　}
　　catch()
　　{
　　　…. // 错误处理
　　　return E_UNEXPECTED;
　　}
　} 

6、出错情况下错误信息的取得

 

 1void ErrorFunc(_com_error &pComError, _ConnectionPtr ptrConn);
 2{
 3　// COM 错误取得
 4　// 当执行COM功能的时候，如果出错，可以捕捉到_com_error的异常
 5　char lpComErrorStr512];
 6　sprintf(lpComErrorStr512,"ErrorCode = %08lx \ 
 7　　Error Message = %s \ 
 8　　Source = %s \
 9　　Description = %s ",
　　pComError.Error(), // 错误编号
　　pComError.ErrorMessage(),// 错误信息
　　(LPCSTR) pComError.Source(),// 错误源
　　(LPCSTR) pComError.Description());// 错误描述
　　// 通过上面的代码我们可以看出，_com_error对象中可以得到COM所有出错的信息
　　// ADO错误取得
　　ErrorPtr pErr = NULL;
　　if( (ptrConn ->Errors->Count) > 0)
　　{
　　　long nCount = ptrConn ->Errors->Count;
　　　for(long i = 0; i < nCount; i++)
　　　{
　　　　pErr = a_pConnPtr->Errors->GetItem(i);
　　　　char l_pchErrorString[512];
　　　　sprintf(l_pchErrorString,"Error:\n Error number: %x\t%s",
　　　　　pErr->Number, // 错误编号
　　　　　pErr->Description); // 错误描述
　　　}
　　}
　　// ADO 处理出错的情况下, 在connection对象里面都有记录，可以通过访问
　　// connection 对象取得错误编号和错误信息。