使用ADO封装类的数据库程序开发实例[第二版]（下）

使用ADO封装类的数据库程序开发实例[第二版]（下）2008-04-20成真CAdoRecordSet class:

CAdoRecordSet:

CAdoRecordSet::CAdoRecordSet（）

CAdoRecordSet::CAdoRecordSet（CAdoConnection *pConnection）

void CAdoRecordSet::SetAdoConnection（CAdoConnection *pConnection）

创建Connection对象.

Params:

[pConnection]: 连接对象指针.

Open 方法:

BOOL CAdoRecordSet::Open（LPCTSTR strSQL, long lOption, CursorTypeEnum CursorType, LockTypeEnum LockType）

Params:

[strSQL]: SQL语句, 表名, 存储过程或持久 Recordset 文件名.

[lOption]: 可选. 长整型值, 用于指示 strSQL 参数的类型. 可为下列常量之一.

[常量]	[说明]
adCmdText	指示strSQL为命令文本, 即普通的SQL语句.
adCmdTable	指示ADO生成SQL查询返回以 strSQL 命名的表中的所有行.
adCmdTableDirect	指示所作的更改在strSQL中命名的表中返回所有行.
adCmdStoredProc	指示strSQL为存储过程.
adCmdUnknown	指示strSQL参数中的命令类型为未知.
adCmdFile	指示应从在strSQL中命名的文件中恢复保留（保存的）Recordset.
adAsyncExecute	指示应异步执行strSQL.
adAsyncFetch	指示在提取 Initial Fetch Size 属性中指定的初始数量后, 应该异步提取所有剩余的行. 如果所需的行尚未提取, 主要的线程将被堵塞直到行重新可用.
adAsyncFetchNonBlocking	指示主要线程在提取期间从未堵塞. 如果所请求的行尚未提取, 当前行自动移到文件末尾.

[CursorType]: 可选. CursorTypeEnum 值, 确定打开 Recordset 时应该使用的游标类型. 可为下列常量之一.

[常量]	[说明]
adOpenForwardOnly	打开仅向前类型游标.
adOpenKeyset	打开键集类型游标.
adOpenDynamic	打开动态类型游标.
adOpenStatic	打开静态类型游标.

[ LockType]: 可选, 确定打开 Recordset 时应该使用的锁定类型（并发）的 LockTypeEnum 值, 可为下列常量之一.

[常量]	[说明]
adLockReadOnly	只读 - 不能改变数据.
adLockPessimistic	保守式锁定 - 通常通过在编辑时立即锁定数据源的记录.
adLockOptimistic	开放式锁定 - 只在调用 Update 方法时才锁定记录.
adLockBatchOptimistic	开放式批更新 - 用于批更新模式（与立即更新模式相对）.

Cancel 方法:

BOOL CAdoRecordSet::Cancel（）

取消执行挂起的异步 Execute 或 Open 方法的调用.

Remarks: 使用 Cancel 方法终止执行异步 Execute 或 Open 方法调用（即通过 adAsyncConnect、adAsyncExecute 或 adAsyncFetch 参数调用的方法）. 如果在试图终止的方法中没有使用 adAsyncExecute, 则 Cancel 将返回运行时错误.

Close 方法:

void CAdoRecordSet::Close（）

关闭打开的对象及任何相关对象.

Remarks: 使用 Close 方法可关闭 Recordset 对象以便释放所有关联的系统资源. 关闭对象并非将它从内存中删除,

可以更改它的属性设置并且在此后再次打开. 要将对象从内存中完全删除, 可将对象变量设置为 NULL.

如果正在立即更新模式下进行编辑, 调用Close方法将产生错误,应首先调用 Updat e或 CancelUpdat 方法.

如果在批更新期间关闭 Recordset 对象, 则自上次 UpdateBatch 调用以来所做的修改将全部丢失.

如果使用 Clone 方法创建已打开的 Recordset 对象的副本, 关闭原始Recordset或其副本将不影响任何其他副本.

例1:

if （m_adoConnection.OpenUDLFile（"C:\mm.udl"））
{
  m_adoRecordSet.SetAdoConnection（&m_adoConnection）;
  m_adoRecordSet.SetCursorLocation（adUseClient）;
  m_adoRecordSet.Open（"ado", adCmdTable）;
  // 开始事务 ------------------------
  m_adoConnection.BeginTrans（）;
  bool bSex = false;
  if （m_strSex == "男"） bSex = true;
  m_adoRecordSet.AddNew（）;
  if （！m_adoRecordSet.PutCollect（"age", m_nAge）
   || ！m_adoRecordSet.PutCollect（"length", m_fLength）
   || ！m_adoRecordSet.PutCollect（"name", m_strName）
   || ！m_adoRecordSet.PutCollect（"tel", m_strTel）
   || ！m_adoRecordSet.PutCollect（"money", m_cyMoney）
   || ！m_adoRecordSet.PutCollect（"date", m_dtDate）
   || ！m_adoRecordSet.PutCollect（"sex", bSex））
  {
    m_adoRecordSet.CancelUpdate（）;
    m_adoConnection.RollbackTrans（）;
  }
  else
  {
    m_adoRecordSet.Update;
    m_adoConnection.CommitTrans（）;
  }
  
  ....
  if （m_adoRecordSet.GetEditMode（） ！= adEditNone）
  {
    m_adoRecordSet.CancelUpdate（）;
  }
  m_adoRecordSet.Close（）;
  
}
else
{
  MessageBox（"数据库连接失败！"）;
}