vb学习教程 7

《vb学习教程 7》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第七章存储过程和二进制存储回顾使用Word应用程序、文档对象实现桌面文档交互；使用Excel工作簿、工作表对象实现文档自动化；Application、Document、WorkBook、WorkSheet对象的属性、方法及使用；Word自定义宏及自定义设置；在VBE中使用应用程序、文档、工作簿和工作表对象；在VBE中进行宏代码的编写和文档控制；使用WithEvents引用Application对象的事件；自定义文档模板及操作；2目标了解ADO对象模型；使用ADO命令对象访问数据库的存储过程；理解和

2、掌握二进制文件的磁盘读写操作；理解二进制数据的数据库方式的存取操作；3复习：使用ADO访问数据库在分布式应用程序中，主要目的是将计算任务分为两个部分-客户端和服务器；ADO对象提供了大多数应用程序所需的全部数据访问和操纵功能；ADO能更好地控制应用程序如何与数据源交互，使用它我们可以创建功能更加强大且更加灵活的应用程序；在创建ADO对象之前，必须引用ADO对象库；4事务和事务处理3-1被视为单一工作单元并标记特定功能的完成的处理步骤序列称为“事务”；事务处理有助于将对数据库执行的一组修改、添加或删

3、除操作作为一个活动进行处理；所有事务均具有ACID属性5事务和事务处理3-2Atomicity（原子性）：此属性可确保在特定事务中完成的所有修改均成为永久性的Consistency（一致性）：此属性可确保在特定事务中完成的修改不会影响系统的一致状态Isolation（隔离性）：此属性可确保处理并发事务时各事务不会相互干扰Durability（持久性）：此属性可确保已提交的对托管资源（例如，数据库记录）的修改能够经受失败6事务和事务处理3-3PublicFunctionExecuteSQL()AsB

4、ooleanOnErrorGoToON_ERRORg_DBCon.BeginTransg_DBCon.Execute("UPDATEABCSETA='001'WHEREA='003'")g_DBCon.Execute("UPDATEABCSETB='002'WHEREB='001'")g_DBCon.Execute("UPDATEABCSETC='003'WHEREC='002'")g_DBCon.CommitTransExecuteSQL=TrueExitFunctionON_ERROR:g_D

5、BCon.RollbackTransMsgBox"错误代码："&Err.Number&vbCrLf&_"错误描述："&Err.Description,vbCritical+vbOKOnly,"连接错误"EndFunction7ADO对象模型2-18ADO对象模型2-2ADO对象模型包括下列对象：ConnectionCommandErrorFieldParameterPropertyRecordset9使用COMMAND对象访问数据库使用Command和Recordset对象之前，首先需要使用Con

6、nection对象与数据库建立连接；可以使用Command来查询数据库以及访问从该数据库返回的记录集；如果要执行带参数的存储过程和SQL命令，需要使用Command对象；10ADO的Parameter对象通过使用存储过程中的参数可以多次重用同一存储过程在数据库中搜索所需信息；参数可以代替常量，但是，它无法代替表名、列名或其他任何数据库对象；Command对象具有Parameters集合。此Parameters集合由Parameter对象组成；Parameter对象实际表示与基于带参数的查询或存储过

7、程的Command对象相关的参数；11ADO的Parameters集合对象Parameters集合由使用CreateParameter方法创建的Parameter对象组成；Parameter对象表示与基于查询或存储过程的Command对象相关联的参数可以使用Append和CreateParameter方法将参数添加到Parameters集合，语法如下：CommandObject.Parameters.Appendobject12使用Command对象访问存储过程DimcmdAsNewADODB.C

8、ommandDimparanameAsADODB.ParameterSetcmd.ActiveConnection=COncmd.CommandText="Namelookup"cmd.CommandType=adCmdStoredProcSetparaname=cmd.CreateParameter("startletter",adChar,adParamInput,1)cmd.Parameters.Appendparanamecmd("startletter")="A"Setr