VC ADO开发

第一部分

从上次在VC知识库发表《使用ADO封装类的数据库程序开发实例》一文后，得到许多网友的响应，甚觉欣慰。但由于我对ADO也非完全精通，所以上次写的类很不完美，甚至可能给某些朋友带来麻烦，因此一直想把它写得更完善一点。

现在写的这个类功能应该说比较完善了，基本上封装了ADO组件的大部分方法，并扩展了一些人们常用到的方法，如把文件或图片写到数据库中，从数据库中读出位图字段，字段的值的智能转换等等。

因为实在是时间不够，我几乎没有对command类做任何有效的测试，也没有写相关的文档，而对connection和recordset类的文档，也写得不甚明了，也许有人又要说我很不负责任了。呵呵!

在这个测试程序中，我对连接类和记录集类的大部分方法进行了测试，包括对常用数据类型的存取，添加删除等等，还有对多种数据类型以整型，双精度型，字符型类型的变量读取，其中以字符型兼容性最好，基本上对大部分数据都能返回有效值，其次是双精度型，和整型，它们不能读取字符型，日期型等字段的值. 另外对这两个象的属性进行了一些测试，当然有好多属性是没法全面测试得到的。

我在开发ADO相关程序中切身体会到有几个方法是很有用的方法，如SetFilter,SetSort,Find,书签等等，它们可以让你很有效的操纵记录，而不用老去想怎样去构建SQL语句来实现这样功能。

其中还有一个导入导出xml文件的方法，我不知道这个方法是不是很有用，因为它对中文支持不是很好，导出的xml文件中没法正常显示中文.

最后还一个就是datagrid控件与记录集绑定，我觉得这应该是一个比较有用的技巧，我以前都没想到过，在VC中也可以学VB一样绑定数据库的，这样不用写什么代码就可以方便地修改数据了。

代码在(vc6 + sp5) / vc7 + windows XP 英文专业版/ windows 2000 中文专业版/ windows 2003 英文测试版 /windows 2003 中文企业版下编译通过, 并在access, sqlserver, mysql下进行了测试，除mysql不支持事务等方法外，大部分方法都可以通过测试.

在原则上，我默许您自由地使用，修改，或传播此代码，但您要是用在某某项目中或用于商业用途，那请您注意了，我不会对因代码bug问题，或版权问题对您造成的损失负任何责任。

由于初次封装如此多又不是很熟悉的东西，有什么不当之处还请大家多指教.

本文代码运行效果图如下：

 

下面详细介绍这几个封装类：

CAdoConnection class

类成员：

构造函数: CAdoConnection()

创建Connection对象.

Open 方法:

BOOL CAdoConnection::Open(LPCTSTR lpszConnect, long lOptions)

连接到数据源.

Params:

[lpszConnect]: 连接字符串, 包含连接信息.

[lOptions]: 可选. 决定该方法是以同步还是异步的方式连接数据源. 可以是如下某个常量:

[常量]	[说明]
adConnectUnspecified	(默认)同步方式打开连接.
adAsyncConnect	异步方式打开连接.  Ado用 ConnectComplete 事件来通知已经完成连接.

BOOL CAdoConnection::ConnectSQLServer(CString dbsrc, CString dbname, CString user, CString pass, long lOptions)

连接到 SQL Server 数据库.

BOOL CAdoConnection::ConnectAccess(CString dbpath, CString pass, long lOptions)

连接到 Access 数据库.

Params:

[dbpath]: Access MDB 数据库文件路径名.

[pass]: 访问密码.

[dbsrc]: SQL SERVER 服务器名.

[dbname]: 默认的数据库名.

[user]: 用户名.

OpenUDLFile方法:

BOOL CAdoConnection::OpenUDLFile(LPCTSTR strFileName, long lOptions)

通过打开udl文件连接数据库.

Params:

[strFileName]: UDL 数据库连接文件路径名.

// 访问SQL Server 的例子:

01. CAdoConnection pAdoConnection;

02. CString strConnection = _T("Provider=SQLOLEDB.1;Persist Security Info=False;"

03. "Integrated Security=SSPI;"

04. "Data Source=cz\\xyy;Initial Catalog=NoteBook;");

05. if (pAdoConnection.Open(LPCTSTR(strConnection)))

06. {

07. DoSomething();

08. }

09. ...

或者:

1. if (pAdoConnection.ConnectSQLServer("cz\\xyy", "NoteBook", "sa","007"))

2. {

3. DoSomething();

4. }

//访问 ACCESS 的例子:

01. CAdoConnection pAdoConnection;

02. CString strConnection = _T("Provider=Microsoft.Jet.OLEDB.4.0;"

03. "Data Source=C:\\dbTest.mdb");

04. pAdoDb.SetConnectionString(strConnection);

05.  

06. if (pAdoConnection.Open(LPCTSTR(strConnection)))

07. {

08. DoSomething();

09.  

10. }

11. ...

或者:

1. if (pAdoConnection.ConnectAccess("C:\\dbTest.mdb", "007"))

2. {

3. DoSomething();

4. }

5. ...

Close 方法:

void CAdoConnection::Close()

关闭与数据源的连接.

Remarks: 使用 Close 方法可关闭 Connection 对象以便释放所有关联的系统资源. 关闭对象并非将它从内存中删除, 可以更改它的属性设置并且在此后再次打开. 在超出 Connection 对象作用域或重新连接新的数据库时会自动调用此方法.

Execute 方法:

_RecordsetPtr CAdoConnection::Execute(LPCTSTR lpszSQL, long lOptions)

执行指定的查询、SQL 语句、存储过程等.

Remarks: 请参考 CAdoRecordSet 类的Open方法. 返回的 Recordset 对象始终为只读、仅向前的游标. 连接对象的此方法一般用来执行一些不用返回记录集的SQL语句. 不需要为了执行一条小语句而动用RecordSet对象，显得更为灵活点.

如:

1. if (pAdoConnection.IsOpen())

2. {

3. pAdoConnection.Execute("Delete From student Where number = 3");

4. }

Cancel 方法:

BOOL CAdoConnection::Cancel()

Remarks: 请参考 CAdoRecordSet 类 Cancel 方法.

GetLastErrorText 方法:

CString CAdoConnection::GetLastErrorText()

取得最后发生的错误信息.

Remarks: 任何涉及 ADO 对象的操作都可以产生一个或多个提供者错误. 产生错误时,可以将一个或多个 Error 对象置于 Connection 对象的 Errors 集合中. 其他 ADO 操作产生错误时, 将清空 Errors 集合, 并且将新的 Error对象置于 Errors 集合中.每个 Error 对象代表特定的提供者错误, 而不是 ADO 错误. ADO 错误被记载在运行时的异常处理机制中.没有产生错误的 ADO 操作对 Errors 集合没有影响. 使用 Clear 方式可手工清除 Errors 集合.

ErrorsPtr CAdoConnection::GetErrors()

获得错误集对象指针.

ErrorPtr CAdoConnection::GetError(long index)

获得错误对象指针.

IsOpen 属性:

BOOL CAdoConnection::IsOpen()

检测连接对象是否为打开状态.

ConnectTimeOut 属性:

BOOL CAdoConnection::SetConnectTimeOut(long lTime)

long CAdoConnection::GetConnectTimeOut()

设置或取得连接超时时间.

ProviderName 属性:

CString CAdoConnection::GetProviderName()

取得 Connection 对象提供者的名称.

Version 属性:

CString CAdoConnection::GetVersion()

取得当前使用的 ADO 的版本号

State 属性:

long CAdoConnection::GetState()

取得对象的状态(同 Recordset 对象的 GetState 方法).

returns: 返回下列常量之一的长整型值(连接对象一般为下面两种状态之一).

[常量]	[说明]
adStateClosed	指示对象是关闭的.
adStateOpen	指示对象是打开的.

Remarks: 可以随时使用 State 属性取得指定对象的当前状态.

Mode 属性:

ConnectModeEnum CAdoConnection::GetMode()

BOOL CAdoConnection::SetMode(ConnectModeEnum mode)

设置或取得在 Connection 对象中修改数据的可用权限.

returns: 返回以下某个 ConnectModeEnum 的值.

[常量]	[说明]
adModeUnknown	默认值. 表明权限尚未设置或无法确定.
adModeRead	表明权限为只读.
adModeWrite	表明权限为只写.
adModeReadWrite	表明权限为读/写.
adModeShareDenyRead	防止其他用户使用读权限打开连接.
adModeShareDenyWrite	防止其他用户使用写权限打开连接.
adModeShareExclusive	防止其他用户打开连接.
adModeShareDenyNone	防止其他用户使用任何权限打开连接.

Remarks: 使用 Mode 属性可设置或返回当前连接上提供者正在使用的访问权限. 只能在关闭 Connection 对象时方可设置 Mode 属性.

OpenSchema 方法:

_RecordsetPtr CAdoConnection::OpenSchema(SchemaEnum QueryType)

从数据源获取数据库信息.

Params: [QueryType]: 所要运行的模式查询类型, 下面列出一些较常用的类型及返回的表中多条字段中主要的字段名.

adSchemaAsserts	CONSTRAINT_NAME
adSchemaCatalogs	CATALOG_NAME
adSchemaCharacterSets	CHARACTER_SET_NAME
adSchemaCheckConstraints	CONSTRAINT_NAME
adSchemaCollations	COLLATION_NAME
adSchemaColumnDomainUsage	DOMAIN_NAME
	COLUMN_NAME
adSchemaColumnPrivileges	TABLE_NAME
	COLUMN_NAME
	GRANTOR
	GRANTEE
adSchemaColumns	TABLE_NAME
	COLUMN_NAME
adSchemaConstraintColumnUsage	TABLE_NAME
	COLUMN_NAME
adSchemaConstraintTableUsage	TABLE_NAME
adSchemaForeignKeys	PK_TABLE_NAME
	FK_TABLE_CATALOG
	FK_TABLE_SCHEMA
	FK_TABLE_NAME
adSchemaIndexes	INDEX_NAME
	TYPE
	TABLE_NAME
adSchemaKeyColumnUsage	CONSTRAINT_NAME
	TABLE_CATALOG
	TABLE_SCHEMA
	TABLE_NAME
	COLUMN_NAME
adSchemaPrimaryKeys	PK_TABLE_NAME
adSchemaProcedureColumns	PROCEDURE_NAME
	COLUMN_NAME
adSchemaProcedureParameters	PROCEDURE_NAME
	PARAMTER_NAME
adSchemaProcedures	PROCEDURE_NAME
	PROCEDURE_TYPE
adSchemaProviderSpecific	参见说明
adSchemaProviderTypes	DATA_TYPE
	BEST_MATCH
adSchemaReferentialConstraints	CONSTRAINT_NAME
adSchemaSchemata	SCHEMA_OWNER
adSchemaSQLLanguages	<无>
adSchemaStatistics	TABLE_NAME
adSchemaTableConstraints	CONSTRAINT_NAME
	TABLE_CATALOG
	TABLE_SCHEMA
	TABLE_NAME
	CONSTRAINT_TYPE
adSchemaTablePrivileges	TABLE_NAME
	GRANTOR
	GRANTEE
adSchemaTables	TABLE_NAME
	TABLE_TYPE
adSchemaTranslations	TRANSLATION_NAME
adSchemaUsagePrivileges	OBJECT_NAME
	OBJECT_TYPE
	GRANTOR
	GRANTEE
adSchemaViewColumnUsage	VIEW_NAME
adSchemaViewTableUsage	VIEW_NAME
adSchemaViews	VIEW_NAME

returns: 返回包含数据库信息的 Recordset 对象. Recordset 将以只读、静态游标打开.

Remarks: OpenSchema方法返回与数据源有关的信息, 例如关于服务器上的表以及表中的列等信息, 上述数据仅供参考, 视具体的数据源可能会有不同.

Trans 相关方法:

long CAdoConnection::BeginTrans()

BOOL CAdoConnection::CommitTrans()

BOOL CAdoConnection::RollbackTrans()

BeginTrans - 开始新事务.

CommitTrans - 保存任何更改并结束当前事务.它也可能启动新事务.

RollbackTrans - 取消当前事务中所作的任何更改并结束事务. 它也可能启动新事务.

一旦调用了 BeginTrans 方法, 在调用 CommitTrans 或 RollbackTrans 结束事务之前, 数据库将不再立即提交所作的任何更改.
对于支持嵌套事务的数据库来说, 在已打开的事务中调用 BeginTrans 方法将开始新的嵌套事务. 返回值将指示嵌套层次: 返回值为 1 表示已打开顶层事务(即事务不被另一个事务所嵌套), 返回值为 2 表示已打开第二层事务(嵌套在顶层事务中的事务), 依次类推. 调用 CommitTrans 或 RollbackTrans 只影响最新打开的事务；在处理任何更高层事务之前必须关闭或回卷当前事务.

调用 CommitTrans 方法将保存连接上打开的事务中所做的更改并结束事务. 调用 RollbackTrans方法还原打开事务中所做的更改并结束事务. 在未打开事务时调用其中任何一种方法都将引发错误.

01. // 数值类型转换 -----------------------------------

02. COleDateTime vartodate(const _variant_t& var);

03. COleCurrency vartocy(const _variant_t& var);

04. bool vartobool(const _variant_t& var);

05. BYTE vartoby(const _variant_t& var);

06. short vartoi(const _variant_t& var);

07. long vartol(const _variant_t& var);

08. double vartof(const _variant_t& var);

09. CString vartostr(const _variant_t& var);

把变体型变量转换成其他类型变量.

===================================华丽的分割线========================================

第二部分

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:

01. if (m_adoConnection.OpenUDLFile("C:\\mm.udl"))

02. {

03. m_adoRecordSet.SetAdoConnection(&m_adoConnection);

04. m_adoRecordSet.SetCursorLocation(adUseClient);

05. m_adoRecordSet.Open("ado", adCmdTable);

06. // 开始事务 ------------------------

07. m_adoConnection.BeginTrans();

08.  

09. bool bSex = false;

10. if (m_strSex == "男") bSex = true;

11.  

12. m_adoRecordSet.AddNew();

13.  

14. if (!m_adoRecordSet.PutCollect("age", m_nAge)

15. || !m_adoRecordSet.PutCollect("length", m_fLength)

16. || !m_adoRecordSet.PutCollect("name", m_strName)

17. || !m_adoRecordSet.PutCollect("tel", m_strTel)

18. || !m_adoRecordSet.PutCollect("money", m_cyMoney)

19. || !m_adoRecordSet.PutCollect("date", m_dtDate)

20. || !m_adoRecordSet.PutCollect("sex", bSex))

21. {

22. m_adoRecordSet.CancelUpdate();

23. m_adoConnection.RollbackTrans();

24. }

25. else

26. {

27. m_adoRecordSet.Update;

28. m_adoConnection.CommitTrans();

29. }

30.  

31. ....

32.  

33. if (m_adoRecordSet.GetEditMode() != adEditNone)

34. {

35. m_adoRecordSet.CancelUpdate();

36. }

37. m_adoRecordSet.Close();

38.  

39. }

40. else

41. {

42. MessageBox("数据库连接失败!");

43. }

AddNew 方法:

BOOL CAdoRecordSet::AddNew()

Remarks: 开始添加新的纪录.

Update 方法:

BOOL CAdoRecordSet::Update()

Remarks: 在调用 AddNew 等方法后, 调用此方法完成更新或修改.

UpdateBatch 方法:

BOOL CAdoRecordSet::UpdateBatch(AffectEnum AffectRecords)

Remarks: 将所有挂起的批更新写入磁盘.

Params: AffectRecords 可选, AffectEnum 值. 决定 UpdateBatch 方法所影响的记录数目.可以为如下常量之一.

[常量]	[说明]
adAffectCurrent	只写入当前记录的挂起更改.
adAffectGroup	写入满足当前 Filter 属性设置的记录所发生的挂起更改. 必须将 Filter 属性设置为某个有效的预定义常量才能使用该选项.
adAffectAll(默认值)	. 写入 Recordset 对象中所有记录的挂起更改, 包括由于当前 Filter 属性设置而隐藏的任何记录.
adAffectAllChapters	写入所有子集的挂起更改.

Remarks: 按批更新模式修改 Recordset 对象时, 使用 UpdateBatch 方法可将 Recordset 对象中的所有更改传递到基本数据库.
如果 Recordset 对象支持批更新, 那么可以将一个或多个记录的多重更改缓存在本地, 然后再调用 UpdateBatch 方法. 如果在调用 UpdateBatch 方法时正在编辑当前记录或者添加新的记录, 那么在将批更新传送到提供者之前, ADO 将自动 调用 Update 方法保存对当前记录的所有挂起更改. 
只能对键集或静态游标使用批更新.

CancelUpdate 方法:

BOOL CAdoRecordSet::CancelUpdate()

Name: 取消在调用 Update 方法前对当前记录或新记录所作的任何更改.

Remarks: 使用 CancelUpdate 方法可取消对当前记录所作的任何更改或放弃新添加的记录. 在调用 Update 方法后将无法撤消对当前记录或新记录所做的更改, 除非更改是可以用 RollbackTrans 方法回卷的事务的一部分, 或者是可以用 CancelBatch 方法取消的批更新的一部分.

如果在调用 CancelUpdate 方法时添加新记录, 则调用 AddNew 之前的当前记录将再次成为当前记录.

如果尚未更改当前记录或添加新记录, 调用 CancelUpdate 方法将产生错误.

CancelBatch 方法:

BOOL CAdoRecordSet::CancelBatch(AffectEnum AffectRecords)

Name: 取消挂起的批更新.

Params: AffectRecords 可选的 AffectEnum 值, 决定CancelBatch 方法所影响记录的数目, 可为下列常量之一:

[常量]	[说明]
AdAffectCurrent	仅取消当前记录的挂起更新.
AdAffectGroup	对满足当前 Filter 属性设置的记录取消挂起更新.使用该选项时,必须将 Filter 性设置为合法的预定义常量之一.
AdAffectAll 默认值	取消 Recordset 对象中所有记录的挂起更新,包括由当前 Filter 属性设置所隐藏的任何记录.

Delete 方法:

BOOL CAdoRecordSet::Delete(AffectEnum AffectRecords)

Params: AffectRecords: AffectEnum 值, 确定 Delete 方法所影响的记录数目, 该值可以是下列常量之一.

[常量]	[说明 ]
AdAffectCurrent 默认	仅删除当前记录.
AdAffectGroup	删除满足当前 Filter 属性设置的记录. 要使用该选项, 必须将 Filter 属性设置为有效的预定义常量之一.
adAffectAll	删除所有记录.
adAffectAllChapters	删除所有子集记录.

PutCollect/GetCollect 方法:

BOOL PutCollect(long index, const _variant_t &value);

BOOL PutCollect(long index, const CString &value);

BOOL PutCollect(long index, const double &value);

BOOL PutCollect(long index, const float &value);

BOOL PutCollect(long index, const long &value);

BOOL PutCollect(long index, const DWORD &value);

BOOL PutCollect(long index, const int &value);

BOOL PutCollect(long index, const short &value);

BOOL PutCollect(long index, const BYTE &value);

BOOL PutCollect(long index, const bool &value);

BOOL PutCollect(long index, const COleDateTime &value);

BOOL PutCollect(long index, const COleCurrency &value);

BOOL PutCollect(LPCTSTR strFieldName, const _variant_t &value);

BOOL PutCollect(LPCTSTR strFieldName, const CString &value);

BOOL PutCollect(LPCTSTR strFieldName, const double &value);

BOOL PutCollect(LPCTSTR strFieldName, const float &value);

BOOL PutCollect(LPCTSTR strFieldName, const long &value);

BOOL PutCollect(LPCTSTR strFieldName, const DWORD &value);

BOOL PutCollect(LPCTSTR strFieldName, const int &value);

BOOL PutCollect(LPCTSTR strFieldName, const short &value);

BOOL PutCollect(LPCTSTR strFieldName, const BYTE &value);

BOOL PutCollect(LPCTSTR strFieldName, const bool &value);

BOOL PutCollect(LPCTSTR strFieldName, const COleDateTime &value);

BOOL PutCollect(LPCTSTR strFieldName, const COleCurrency &value);

BOOL GetCollect(long index, CString &value);

BOOL GetCollect(long index, double &value);

BOOL GetCollect(long index, float &value);

BOOL GetCollect(long index, long &value);

BOOL GetCollect(long index, DWORD &value);

BOOL GetCollect(long index, int &value);

BOOL GetCollect(long index, short &value);

BOOL GetCollect(long index, BYTE &value);

BOOL GetCollect(long index, bool &value);

BOOL GetCollect(long index, COleDateTime &value);

BOOL GetCollect(long index, COleCurrency &value);

BOOL GetCollect(LPCSTR strFieldName, CString &strValue);

BOOL GetCollect(LPCSTR strFieldName, double &value);

BOOL GetCollect(LPCSTR strFieldName, float &value);

BOOL GetCollect(LPCSTR strFieldName, long &value);

BOOL GetCollect(LPCSTR strFieldName, DWORD &value);

BOOL GetCollect(LPCSTR strFieldName, int &value);

BOOL GetCollect(LPCSTR strFieldName, short &value);

BOOL GetCollect(LPCSTR strFieldName, BYTE &value);

BOOL GetCollect(LPCSTR strFieldName, bool &value);

BOOL GetCollect(LPCSTR strFieldName, COleDateTime &value);

BOOL GetCollect(LPCSTR strFieldName, COleCurrency &value);

在读取字段的值，本程序做了一些自动的转换，如: 如果字段的值是以数字组成的字符串，你可以用整型或双精度的值，直接读取.

Requery 方法:

BOOL CAdoRecordSet::Requery(long Options)

Name: 通过重新执行对象所基于的查询, 更新 Recordset 对象中的数据.

Params: Options 可选. 指示影响该操作选项的位屏蔽. 如果该参数设置为 adAsyncExecute, 则该操作将异步执行并在它结束时产生RecordsetChangeComplete 事件

Remarks: 通过重新发出原始命令并再次检索数据, 可使用 Requery 方法刷新来自数据源的 Recordset 对象的全部内容. 调用该方法等于相继调用 Close 和 Open 方法. 如果正在编辑当前记录或者添加新记录将产生错误.

Resync 方法:

BOOL CAdoRecordSet::Resync(AffectEnum AffectRecords, ResyncEnum ResyncValues)

Name: 从基本数据库刷新当前 Recordset 对象中的数据.

Params: AffectRecords: 可选, AffectEnum 值, 决定 Resync 方法所影响的记录数目, 可以为下列常量之一.

[常量]	[说明]
adAffectCurrent	只刷新当前记录.
adAffectGroup	刷新满足当前 Filter 属性设置的记录.只有将 Filter 属性设置为有效预定义常量之一才能使用该选项.
adAffectAll 默认值	刷新 Recordset 对象中的所有记录, 包括由于当前 Filter 属性设置而隐藏的记录.
adAffectAllChapters	刷新所有子集记录.

ResyncValues: 可选, ResyncEnum 值. 指定是否覆盖基本值. 可为下列常量之一.

[常量]	[说明]
adResyncAllValues 默认值	覆盖数据, 取消挂起的更新.
adResyncUnderlyingValues	不覆盖数据, 不取消挂起的更新.

Remarks: 使用 Resync 方法将当前 Recordset 中的记录与基本的数据库重新同步. 这在使用静态或仅向前的游标但希望看到基本数据库中的改动时十分有用.

如果将 CursorLocation 属性设置为 adUseClient, 则 Resync 仅对非只读的 Recordset 对象可用.

与 Requery 方法不同, Resync 方法不重新执行 Recordset 对象的基本的命令, 基本的数据库中的新记录将不可见.

Save/Load 方法:

BOOL CAdoRecordSet::Save(LPCTSTR strFileName, PersistFormatEnum PersistFormat)

BOOL CAdoRecordSet::Load(LPCTSTR strFileName)

Name: 将 Recordset 保存在持久性文件中.

Params:

[strFileName]: 可选. 文件的完整路径名, 用于保存 Recordset.

[PersistFormat]: 可选. PersistFormatEnum 值, 指定保存 Recordset 所使用的格式. 可以是如下的某个常量:

[常量]	[说明]
adPersistADTG	使用专用的“Advanced Data Tablegram”格式保存.
adPersistXML 默认	使用 XML 格式保存.

Remarks: 只能对打开的 Recordset 调用 Save 方法. 随后使用 Open 方法可以从文件中恢复 Recordset. 如果 Filter 属性影响 Recordset, 将只保存经过筛选的行.

在第一次保存 Recordset 时指定 FileName. 如果随后调用 Save 时, 应忽略 FileName, 否则将产生运行时错误. 如果随后使用新的 FileName 调用 Save, 那么 Recordset 将保存到新的文件中, 但新文件和原始文件都是打开的.

记录集导航方法:

BOOL CAdoRecordSet::MoveFirst()

BOOL CAdoRecordSet::MoveLast ()

BOOL CAdoRecordSet::MoveNext ()

BOOL CAdoRecordSet::MovePrevious ()

Remarks:

使用 MoveFirst 方法将当前记录位置移动到 Recordse 中的第一个记录.

使用 MoveLast 方法将当前记录位置移动到 Recordset 中的最后一个记录. Recordset 对象必须支持书签或向后光标移动; 否则调用该方法将产生错误.

使用 MoveNext 方法将当前记录向前移动一个记录(向 Recordset 的底部). 如果最后一个记录是当前记录并且调用 MoveNext 方法, 则 ADO 将当前记录设置到 Recordset (EOF为 True)的尾记录之后. 当 EOF 属性已经为 True 时试图向前移动将产生错误.

使用 MovePrevious 方法将当前记录位置向后移动一个记录(向记录集的顶部). Recordset 对象必须支持书签或向后游标移动; 否则方法调用将产生错误. 如果首记录是当前记录并且调用 MovePrevious 方法, 则 ADO 将当前记录设置在 Recordset (BOF为True)的首记录之前. 而BOF属性为 True 时向后移动将产生错误. 如果 Recordse 对象不支持书签或向后游标移动, 则 MovePrevious 方法将产生错误.

如果记录集是仅向前的, 但是用户希望支持向前和向后滚动, 则可以使用 CacheSize 属性创建记录缓存, 通过 Move 方法支持向后游标移动. 由于缓存记录是加载到内存中的, 所以应避免不必要地缓存太多记录. 可以调用仅向前 Recordset 对象的 MoveFirst 方法; 这样做可使提供者重新执行生成 Recordset 对象的命令.

Move:

BOOL CAdoRecordSet::Move(long lRecords, long Start)

Name: 移动 Recordset 对象中当前记录的位置.

Params:

[lRecords] 带符号长整型表达式, 指定当前记录位置移动的记录数.

[Start] 可选, 变体型书签. 也可以使用下列 BookmarkEnum 值:

[常量]	[说明]
adBookmarkCurrent 默认	从当前记录开始.
adBookmarkFirst	从首记录开始.
adBookmarkLast	从尾记录开始.

State 属性:

long CAdoRecordSet::GetState()

BOOL CAdoRecordSet::IsOpen()

Name: 取得记录集对象的状态(是打开状态还是关闭状态). 对异步方式执行的 Recordset 对象, 则说明当前的对象状态是连接、执行还是获取状态.

returns: 返回下列常量之一的长整型值.

[常量]	[说明]
adStateClosed	指示对象是关闭的.
adStateOpen	指示对象是打开的.
adStateConnecting	指示 Recordset 对象正在连接.
adStateExecuting	指示 Recordset 对象正在执行命令.
adStateFetching	指示 Recordset 对象的行正在被读取.

Remarks: 可以随时使用 State 属性确定指定对象的当前状态. 该属性是只读的. Recordset 对象的 State 属性可以是组合值.例如: 如果正在执行语句, 该属性将是 adStateOpen 和 adStateExecuting 的组合值.

long CAdoRecordSet::GetStatus()

Name: 指示有关批更新或其他大量操作的当前记录的状态.

returns: 返回下列一个或多个 RecordStatusEnum 值之和.

[常量]	[说明]
adRecOK	成功地更新记录.
adRecNew	记录是新建的.
adRecModified	记录被修改.
adRecDeleted	记录被删除.
adRecUnmodified	记录没有修改.
adRecInvalid	由于书签无效, 记录没有保存.
adRecMultipleChanges	由于影响多个记录, 因此记录未被保存.
adRecPendingChanges	由于记录引用挂起的插入, 因此未被保存.
adRecCanceled	由于操作被取消, 未保存记录.
adRecCantRelease	由于现有记录锁定, 没有保存新记录.
adRecConcurrencyViolation	由于开放式并发在使用中, 记录未被保存.
adRecIntegrityViolation	由于用户违反完整性约束, 记录未被保存.
adRecMaxChangesExceeded	由于存在过多挂起更改, 记录未被保存.
adRecObjectOpen	由于与打开的储存对象冲突, 记录未被保存.
adRecOutOfMemory	由于计算机内存不足, 记录未被保存.
adRecPermissionDenied	由于用户没有足够的权限, 记录未被保存.
adRecSchemaViolation	由于记录违反基本数据库的结构, 因此未被保存.
adRecDBDeleted	记录已经从数据源中删除.

Remarks: 使用 Status 属性查看在批更新中被修改的记录有哪些更改被挂起. 也可使用 Status 属性查看大量操作时失败记录的状态. 例如, 调用 Recordset 对象的 Resync、UpdateBatch 或 CancelBatch 方法, 或者设置 Recordset 对象的 Filter 属性为书签数组. 使用该属性, 可检查指定记录为何失败并将问题解决.

long CAdoRecordSet::GetRecordCount()

Name: 获取当前记录集中记录数目

long CAdoRecordSet::GetFieldsCount()

Name: 获取当前记录集中字段数目

BOOL CAdoRecordSet::IsBOF()

Name: 指针是否在在记录集头

BOOL CAdoRecordSet::IsEOF()

Name: 指针是否在在记录集尾

字段属性:

FieldsPtr CAdoRecordSet::GetFields()

Remarks: Recordset 对象包括 Field 对象组成的 Fields 集合. 每个Field 对象对应 Recordset 集中的一列.

GetField

FieldPtr CAdoRecordSet::GetField(long lIndex)

FieldPtr CAdoRecordSet::GetField(LPCTSTR lpszFieldName)

Name: 取得指定列的字段对象的指针.

FieldName

CString CAdoRecordSet::GetFieldName(long lIndex)

Remarks: 取得指定列字段的字段名.

FieldAttributes:

long CAdoRecordSet::GetFieldAttributes(long lIndex)

long CAdoRecordSet::GetFieldAttributes(LPCTSTR lpszFieldName)

name: 取得 Field 对象一项或多项属性.

returns: 对于 Field 对象, Attributes 属性为只读, 其值可能为以下任意一个或多个 FieldAttributeEnum 值的和.

[常量]	[说明]
adFldMayDefer	指示字段被延迟, 即不从拥有整个记录的数据源检索字段值, 仅在显式访问这些字段时才进行检索.
adFldUpdatable	指示可以写入该字段.
adFldUnknownUpdatable	指示提供者无法确定是否可以写入该字段.
adFldFixed	指示该字段包含定长数据.
adFldIsNullable	指示该字段接受 Null 值.
adFldMayBeNull	指示可以从该字段读取 Null 值.
adFldLong	指示该字段为长二进制字段. 并指示可以使用 AppendChunk 和 GetChunk 方法.
adFldRowID	指示字段包含持久的行标识符, 该标识符无法被写入,并且除了对行进行标识(如记录号、唯一标识符等)外不存在有意义的值.
adFldRowVersion	指示该字段包含用来跟踪更新的某种时间或日期标记.
adFldCacheDeferred	指示提供者缓存了字段值, 并已完成随后对缓存的读取.

DefineSize:

long CAdoRecordSet::GetFieldDefineSize(long lIndex)

long CAdoRecordSet::GetFieldDefineSize(LPCTSTR lpszFieldName)

Name: 指示 Field 对象所定义的长度.

returns: 返回某个字段定义的长度(按字节数)的长整型值.

Remarks: 使用 DefinedSize 属性可确定 Field 对象的数据容量.

ActualSize:

long CAdoRecordSet::GetFieldActualSize(long lIndex)

long CAdoRecordSet::GetFieldActualSize(LPCTSTR lpszFieldName)

Name: 取得字段的值的实际长度.

returns: 返回长整型值.某些提供者允许设置该属性以便为 BLOB 数据预留空间, 在此情况下默认值为 0.

Remarks: 使用 ActualSize 属性可返回 Field 对象值的实际长度.对于所有字段,ActualSize 属性为只读.如果 ADO 无法确定 Field 对象值的实际长度, ActualSize 属性将返回 adUnknown. 如以下范例所示, ActualSize 和 DefinedSize 属性有所不同: adVarChar 声明类型且最大长度为 50 个字符的 Field 对象将返回为 50 的 DefinedSize 属性值, 但是返回的 ActualSize 属性值是当前记录的字段中存储的数据的长度.

FieldType:

DWORD CAdoRecordSet::GetFieldType(long lIndex)

DWORD CAdoRecordSet::GetFieldType(LPCTSTR lpszFieldName)

returns: 返回下列值之一. 相应的 OLE DB 类型标识符在下表的说明栏的括号中给出.

[常量]	[说明]
adArray	与其他类型一起加入逻辑 OR 以指示该数据是那种类型的安全数组 (DBTYPE_ARRAY).
adBigInt	8 字节带符号的整数 (DBTYPE_I8).
adBinary	二进制值 (DBTYPE_BYTES).
adBoolean	布尔型值 (DBTYPE_BOOL).
adByRef	与其他类型一起加入逻辑 OR 以指示该数据是其他类型数据的指针 (DBTYPE_BYREF).
adBSTR	以空结尾的字符串 (Unicode) (DBTYPE_BSTR).
adChar	字符串值 (DBTYPE_STR).
adCurrency	货币值 (DBTYPE_CY).货币数字的小数点位置固定、小数点右侧有四位数字.该值保存为 8 字节范围为10,000 的带符号整型值.
adDate	日期值 (DBTYPE_DATE).日期按双精度型数值来保存, 数字全部表示从 1899 年 12 月 30 开始的日期数.小数部分是 一天当中的片段时间.
adDBDate	日期值 (yyyymmdd) (DBTYPE_DBDATE).
adDBTime	时间值 (hhmmss) (DBTYPE_DBTIME).
adDBTimeStamp	时间戳 (yyyymmddhhmmss 加 10 亿分之一的小数)(DBTYPE_DBTIMESTAMP).
adDecimal	具有固定精度和范围的精确数字值 (DBTYPE_DECIMAL).
adDouble	双精度浮点值 (DBTYPE_R8).
adEmpty	未指定值 (DBTYPE_EMPTY).
adError	32 - 位错误代码 (DBTYPE_ERROR).
adGUID	全局唯一的标识符 (GUID) (DBTYPE_GUID).
adIDispatch	OLE 对象上 Idispatch 接口的指针 (DBTYPE_IDISPATCH).
adInteger	4 字节的带符号整型 (DBTYPE_I4).
adIUnknown	OLE 对象上 IUnknown 接口的指针 (DBTYPE_IUNKNOWN).
adLongVarBinary	长二进制值.
adLongVarChar	长字符串值.
adLongVarWChar	以空结尾的长字符串值.
adNumeric	具有固定精度和范围的精确数字值 (DBTYPE_NUMERIC).
adSingle	单精度浮点值 (DBTYPE_R4).
adSmallInt	2 字节带符号整型 (DBTYPE_I2).
adTinyInt	1 字节带符号整型 (DBTYPE_I1).
adUnsignedBigInt	8 字节不带符号整型 (DBTYPE_UI8).
adUnsignedInt	4 字节不带符号整型 (DBTYPE_UI4).
adUnsignedSmallInt	2 字节不带符号整型 (DBTYPE_UI2).
adUnsignedTinyInt	1 字节不带符号整型 (DBTYPE_UI1).
adUserDefined	用户定义的变量 (DBTYPE_UDT).
adVarBinary	二进制值.
adVarChar	字符串值.
adVariant	自动变体型 (DBTYPE_VARIANT).
adVector	与其他类型一起加入逻辑 OR 中, 指示数据是 DBVECTOR 结构(由 OLE DB 定义).该结构含有元素的计数和其他类型 (DBTYPE_VECTOR) 数据的指针.
adVarWChar	以空结尾的 Unicode 字符串.
adWChar	以空结尾的 Unicode 字符串 (DBTYPE_WSTR).

Remarks: 返回指定字段的数据类型.

IsFieldNull:

BOOL CAdoRecordSet::IsFieldNull(LPCTSTR lpFieldName)

BOOL CAdoRecordSet::IsFieldNull(long index)

当前的记录的指定字段值是否为NULL;

Supports 方法:

BOOL CAdoRecordSet::Supports(CursorOptionEnum CursorOptions)

Name: 确定指定的 Recordset 对象是否支持特定类型的功能.

Params: CursorOptions 长整型, 包括一个或多个下列 CursorOptionEnum 值.

[常量]	[说明]
adAddNew	可使用 AddNew 方法添加新记录.
adApproxPosition	可读取并设置 AbsolutePosition 和 AbsolutePage 的属性.
adBookmark	可使用 Bookmark 属性获得对特定记录的访问.
adDelete	可以使用 Delete 方法删除记录.
adHoldRecords	可以检索多个记录或者更改下一个检索位置而不必提交所有挂起的更改.
adMovePrevious	可使用 MoveFirst 和 MovePrevious 方法, 以及 Move 或 GetRows 方法将当前记录位置向后移动而不必使用书签.
adResync	通过 Resync 方法, 使用在基本的数据库中可见的数据更新游标.
adUpdate	可使用 Update 方法修改现有的数据.
adUpdateBatch	可以使用批更新(UpdateBatch 和 CancelBatch 方法) 将更改组传输给提供者.
adIndex	可以使用 Index 属性命名索引.
adSeek	可以使用 Seek 方法定位 Recordset 中的行.

returns: 返回布尔型值, 指示是否支持 CursorOptions 参数所标识的所有功能.

Remarks: 使用 Supports 方法确定 Recordset 对象所支持的功能类型. 如果 Recordset 对象支持其相应常量在 CursorOptions 中的功能, 那么 Supports方法返回 True.否则返回 False.
注意 尽管 Supports 方法可对给定的功能返回 True, 但它不能保证提供者可以使功能在所有环境下均有效. Supports 方法只返回提供者是否支持指定的功能(假定符合某些条件). 例如, Supports 方法可能指示 Recordset 对象支持更新 (即使游标基于多个表的合并), 但并且某些列仍然无法更新.

Bookmark 方法:

void CAdoRecordSet::GetBookmark()

获取当前记录的书签.

BOOL CAdoRecordSet::SetBookmark()

将当前记录移至书签指向的记录.

AppendChunk/GetChunk 方法:

BOOL AppendChunk(FieldPtr pField, LPVOID lpData, UINT nBytes);

BOOL AppendChunk(long index, LPVOID lpData, UINT nBytes);

BOOL AppendChunk(LPCSTR strFieldName, LPVOID lpData, UINT nBytes);

BOOL AppendChunk(long index, LPCTSTR lpszFileName);

BOOL AppendChunk(LPCSTR strFieldName, LPCTSTR lpszFileName);

BOOL GetChunk(FieldPtr pField, LPVOID lpData);

BOOL GetChunk(long index, LPVOID lpData);

BOOL GetChunk(LPCSTR strFieldName, LPVOID lpData);

BOOL GetChunk(long index, CBitmap &bitmap);

BOOL GetChunk(LPCSTR strFieldName, CBitmap &bitmap);

写入或取出BLOB数据

strFieldName 文件名:

lpData 指向缓冲区的指针:

nBytes 要写入或读出的数据的字节数:

例如:

01. // 写入 ----------------

02. m_adoRecordSet.AddNew();

03. m_adoRecordSet.SetFieldValue("ID", 5);

04. m_adoRecordSet.AppendChunk("Document", "C:\\doc1.txt");

05. m_adoRecordSet.Update();

06.  

07. // 读取 ----------------

08. long size = GetFieldActualSize(strFieldName);

09.  

10. if ((adFldLong & GetFieldAttributes(strFieldName)) && size > 0)

11. {

12. BYTE *lpData = new BYTE[size];

13.  

14. if (GetChunk(GetField(strFieldName), (LPVOID)lpData))

15. {

16. .....

17. DoSomeThing();

18.  

19. }

20. delete[] lpData;

21. lpData = NULL; 

22.  

23. }

Clone 方法:

BOOL CAdoRecordSet::Clone(CAdoRecordSet &pRecordSet)

克隆一份副本

Find 方法:

BOOL CAdoRecordSet::Find(LPCTSTR lpszFind, SearchDirectionEnum SearchDirection)

BOOL CAdoRecordSet::FindFirst(LPCTSTR lpszFind)

查找满足条件的记录.

Filter 方法:

BOOL CAdoRecordSet::SetFilter(LPCTSTR lpszFilter)

过滤出满足条件的记录.

01. CAdoRecordset m_pRs;

02. m_pRs = CAdoRecordSet(&m_pConnection);

03. if(m_pRs.Open("ado", CADORecordset::openTable))

04. {

05. CString strFilter = _T("Name <> ''anyou'' And Age > 20");

06. m_pRs.SetFilter(strFilter);

07. .

08. .

09. m_pRs.Close();

10. }

Sort 方法:

BOOL CAdoRecordSet::SetSort(LPCTSTR lpszCriteria)

使记录集以指定的字段排序.

EditMode 属性:

EditModeEnum CAdoRecordSet::GetEditMode()

根据当前的EditMode属性，你可以确定要不要Update 或 CancelUpdate!

AbsolutePage 属性:

BOOL CAdoRecordSet::SetAbsolutePage(int nPage)

long CAdoRecordSet::GetAbsolutePage()

name: 当前记录所在的页.

returns: 置或返回从 1 到 Recordset 对象 (PageCount) 所含页数的长整型值，或者返回以下常量。

[常量]	[说明]
adPosUnknown	Recordset 为空，当前位置未知，或者提供者不支持 AbsolutePage 属性。
adPosBOF	当前记录指针位于 BOF（即 BOF 属性为 True）。
adPosEOF	当前记录指针位于 EOF（即 EOF 属性为 True）。

AbsolutePosition 属性:

BOOL CAdoRecordSet::SetAbsolutePosition(int nPosition)

long CAdoRecordSet::GetAbsolutePosition()

name: Recordset 对象当前记录的序号位置。

returns: 设置或返回从 1 到 Recordset 对象 (PageCount) 所含页数的长整型值，或者返回以下常量。

[常量]	[说明]
adPosUnknown	Recordset 为空，当前位置未知，或者提供者不支持 AbsolutePosition 属性。
adPosBOF	当前记录指针位于 BOF（即 BOF 属性为 True）。
adPosEOF	当前记录指针位于 EOF（即 EOF 属性为 True）。

Remarks: 使用 AbsolutePosition 属性可根据其在 Recordset 中的序号 位置移动到记录，或确定当前记录的序号位置。提供者必须支持该属性的相应功能才能使用该属性。

同 AbsolutePage 属性一样，AbsolutePosition 从 1 开始，并在当前记录 为 Recordset 中的第一个记录时等于 1。从 RecordCount 属性可获得 Recordset 对象的总记录数。

设置 AbsolutePosition 属性时，即使该属性指向位于当前缓存中的记录，ADO 也将使用以指定的记录开始的新记录组重新加载缓存。CacheSize 属性决定该记录组的大小。

注意 不能将 AbsolutePosition 属性作为替代的记录编号使用。删除前面的记录时，给定记录的当前位置将发生改变。如果 Recordset 对象被重新查询或重新打开，则无法保证给定记录有相同的 AbsolutePosition。书签仍然是保持和返回给定位置的推荐方式，并且在所有类型的 Recordset 对象的定位时是唯一的方式。

如何与DataGrid控件进行绑定:

01. if (m_adoConnection.ConnectAccess("database.mdb"))

02. {

03. m_adoRecordSet.SetAdoConnection(&m_adoConnection);

04.  

05. // 这一步不能少，只有设成adUseClient才能进行绑定.

06. m_adoRecordSet.SetCursorLocation(adUseClient);

07. if (m_adoRecordSet.Open(lpszPathName, adCmdTable))

08. {

09. m_wndDataGrid.SetCaption(GetDocument()->GetPathName());

10. m_wndDataGrid.SetRefDataSource(NULL);

11. // 绑定数据源 ---------------------------.

12. m_wndDataGrid.SetRefDataSource((LPUNKNOWN)(m_adoRecordSet.GetRecordset()));

13.  

14. // 充许更新修改数据 ---------------------

15. m_wndDataGrid.SetAllowAddNew(TRUE);

16. m_wndDataGrid.SetAllowDelete(TRUE);

17. m_wndDataGrid.SetAllowUpdate(TRUE);

18.  

19. m_wndDataGrid.Refresh();

20.  

21. }

22. }