vb学习教程 7.ppt

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

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

3、原子性）：此属性可确保在特定事务中完成的所有修改均成为永久性的 Consistency（一致性）：此属性可确保在特定事务中完成的修改不会影响系统的一致状态 Isolation（隔离性）：此属性可确保处理并发事务时各事务不会相互干扰 Durability（持久性）：此属性可确保已提交的对托管资源（例如，数据库记录）的修改能够经受失败,7,事务和事务处理 3 - 3,Public Function ExecuteSQL() As Boolean On Error GoTo ON_ERROR g_DBCon.BeginTrans g_DBCon.Execute (UPDATE ABC SET A =

4、 001 WHERE A = 003) g_DBCon.Execute (UPDATE ABC SET B = 002 WHERE B = 001) g_DBCon.Execute (UPDATE ABC SET C = 003 WHERE C = 002) g_DBCon.CommitTrans ExecuteSQL = True Exit Function ON_ERROR: g_DBCon.RollbackTrans MsgBox 错误代码： & Err.Number & vbCrLf & _错误描述： & Err.Description, vbCritical + vbOKOnly,

5、连接错误 End Function,8,ADO对象模型 2 - 1,9,ADO对象模型 2 - 2,ADO 对象模型包括下列对象： Connection Command Error Field Parameter Property Recordset,10,使用COMMAND对象访问数据库,使用 Command 和 Recordset 对象之前，首先需要使用 Connection 对象与数据库建立连接； 可以使用 Command 来查询数据库以及访问从该 数据库返回的记录集； 如果要执行带参数的存储过程和SQL命令，需要使用 Command 对象；,11,ADO的Parameter 对象,通过

6、使用存储过程中的参数可以多次重用同一存储过程在数据库中搜索所需信息； 参数可以代替常量，但是，它无法代替表名、列名或其他任何数据库对象； Command 对象具有 Parameters 集合。此 Parameters 集合由 Parameter 对象组成； Parameter 对象实际表示与基于带参数的查询或存储过程的 Command 对象相关的参数；,12,ADO的Parameters集合对象,Parameters 集合由使用 CreateParameter 方法创建的Parameter 对象组成； Parameter 对象表示与基于查询或存储过程的Command 对象相关联的参数可以使用

7、Append 和 CreateParameter 方法将参数添加到 Parameters 集合， 语法如下： CommandObject.Parameters.Append object,13,使用Command对象访问存储过程,Dim cmd As New ADODB.Command Dim paraname As ADODB.Parameter Set cmd.ActiveConnection = COn cmd.CommandText = Namelookup cmd.CommandType = adCmdStoredProc Set paraname = cmd.CreateParam

8、eter(startletter, adChar, adParamInput, 1) cmd.Parameters.Append paraname cmd(startletter) = A Set rs = cmd.Execute,14,二进制文件的磁盘存储 4 - 1,根据文件包含的数据类型，需要使用相应的文件访问类型来访问该文件； 二进制文件包含一些编码信息，这些编码信息需根据创建该文件的应用程序进行解释； 可以使用随机文件访问或二进制文件访问方法访问二进制文件；,15,通过使用二进制访问方法对文件执行操作，可以维持对文件的完全控制； 要对文件执行任何读取或写入操作，请首先通过指定适当的访

9、问模式打开该文件； 用于打开文件的语法： 语法如下： Open For Binary As ,二进制文件的磁盘存储 4 - 2,16,打开文件后，可以使用 Put 语句将变量中的数据写入该文件。 Put 语句的语法如下： Put #filenumber, recnumber, varname 要读取使用 Put 语句存储在文件中的数据，可以使用 Get 语句。 Get 语句语法如下： Get #filenumber, recnumber, varname,二进制文件的磁盘存储 4 - 3,17,Dim Emp1 As Emprec, RecordNumber RecordNumber = 1

10、Dim CH As Long CH = FreeFile Open C:TestTrialfile.txt For Random As #CH Emp1.EmpID = 101 Emp1.EmpName = My Name & RecordNumber Put #CH, RecordNumber, Emp1 Close #CH,二进制文件的磁盘存储 4 - 4,18,ADO 提供了一种名为 AppendChunk() 的方法，通过该方法，可以将二进制文件中的数据追加到数据库表中； ADO 提供了一种名为 GetChunk 的方法，可用于从二进制数据字段对象中检索二进制数据； 与 AppendChunk 方法相似，GetChunk 方法可以检索部分数据而不必完整地检索数据；,二进制文件的数据库存储 4 - 1,19,二进制文件的数据库存储 4 - 2,20,二进制文件的数据库存储 4 - 3,演示实现二进制数据存储的代码,21,二进制文件的数据库存储 4 - 4,22,总结,ADO提供了层次化的对象模型，在设计自己的对象模型的时候，这中思路可以提供参考