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

核心提示：CAdoRecordSet class:CAdoRecordSet:CAdoRecordSet::CAdoRecordSet()CAdoRecordSet::CAdoRecordSet(CAdoConnection *pConnection)void CAdoRecordSet::SetAdoConnection(CA

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("数据库连接失败!");
}