2022年VB和数据库 .pdf

《2022年VB和数据库 .pdf》由会员分享，可在线阅读，更多相关《2022年VB和数据库 .pdf（25页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB和数据库ODBC 数据源简介本文欢迎非商业用途的转载, 但需要注明出自 “编程入门网” 及相应的网址链接。ODBC （开放式数据库连接）是一种应用程序的接口（API）。这种接口提供了独立于任何的数据管理系统编写应用程序的能力。OCBC 通过 ODBC 驱动程序提供了对不同的数据库供应商的一组应用程序接口来给特殊的数据库管理系统（DBMS ）。用户的应用程序使用这组API 来调度 ODBC 驱动程序。然后驱动程序通过SQL语句同 DBMS 发生联系。下面我们开始介绍ODBC 数据源。 在“我的电脑” 中打开“控制面板” 中的“管理工具” ，在窗口中即可见ODBC 数据源图标。双击打开 ODB

2、C 数据源管理器，如下图所示：ODBC 数据源管理器为配置、添加、删除各种不同的数据源名称提供了最为简洁的方法。它使得用户可以轻松地完成数据源的配置工作，用户也可以删除原有的DSN （数据源名称） ，或对先前配置的数据源进行修改。ODBC 数据源管理器的具体功能如下：用户 DSN ：ODBC 用户数据源存储了如何与指定数据提供者连接的信息。用户数据源只对当前的用户可见，而且只能应用在本机上。系统 DSN ：ODBC 系统数据源存储了如何与指定数据提供者连接的信息。系统数据源对当前机器上的所有用户可见。文件 DSN ：ODBC 文件数据源允许用户连接数据提供者。文件 DSN可以由安装了相同驱动程

3、序的用户共享。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 25 页 - - - - - - - - - 驱动程序：ODBC 驱动程序允许那些支持ODBC 的程序通过ODBC 数据源获取信息。如果安装新的驱动程序，要使用其安装程序。跟踪： ODBC 跟踪允许创建调用ODBC 驱动程序的日志，以供技术人员查看；也可以辅助调试应用程序。Visual Studio跟踪启动Microsoft Visual Studio的 ODBC 跟踪。连接池：连接池允许应用程序重新打开连接句

4、柄，此操作将往返过程存入服务器。配置 Access 数据源发布时间： 2008-12-15 来源：本站专稿作者：小二黑本文欢迎非商业用途的转载, 但需要注明出自 “编程入门网” 及相应的网址链接。(1) 打开控制面板中的ODBC 数据源管理器，在“用户DSN ”（即“用户数据源”）中选择“MS Access Database”选项，可心删除或配置一个已有的用户数据，这里我们将要添加一个数据源。(2) 单击添加按钮， 系统将准备在MS Access Database下添加一个用户数据源，为了安装数据源，会弹出创建新数据源窗口，如下图：(3) 在创建新数据源窗口中，选择Microsoft Acce

5、ss Driver来安装数据源。(4) 单击“完成”按钮，进入ODBC Microsoft Access安装窗口，如下图：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 25 页 - - - - - - - - - 在“数据源名”项中键入数据源的名称，这里我们键入“Access_db”作为数据源名。在“描述”项中键入对数据源的描述，此处内容可选，这里我们键入“This is Access datab ase temp”。在“数据库”项中可以选取、创建、修复或者压缩数据库。

6、这里我们选择“选取”按钮来选取相应的Access 数据库。 如果用户没有自己建立的Access 数据库， 那么用户可以到安装 Access 的目录下面选取Access 自带的数据库。注意：Access 数据库文件的扩展名是.mdb 。最后，单击“确定”按钮。至此一个新的Access 数据源已经添加完成，如下图：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 25 页 - - - - - - - - - 说明：如果用户希望所创建的数据源名被本机中的多个用户所使用，请用户添加

7、系统DSN 。在实际情况中，开发一个单机单用户的系统没有什么意义，所以一般都需要对系统DSN进行配置。系统DSN的添加过程同用户DSN添加过程类似。配置 SQL Server 数据源发布时间： 2008-12-15 来源：本站专稿作者：小二黑本文欢迎非商业用途的转载, 但需要注明出自 “编程入门网” 及相应的网址链接。配置 SQL Server 数据源的步骤：(1) 打开控制面板中的ODBC 数据源管理器，单击“添加”按钮来添加一个数据源。(2) 单击添加按钮后，系统将准备添加一个用户数据源。为了安装数据源，会弹出创建新数据源窗口，如下图所示。由于VB和 SQL Server 的系列性，所以即

8、使用户没有安装SQL Server ，在创建新数据源窗口中也列有SQL Server 这一项。 当然，这里的列表项只是起了一个标识作用，如果用户尚未安装SQL Server ，请先安装后再进行以下的步骤。(3) 在上图选择“ SQL Server”后，单击“完成”按钮，进入“创建新的数据源到SQL Server ”窗口，如下图所示：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 25 页 - - - - - - - - - 在“名称”项中键入新的数据源名，这里我们键入SQ

9、L Server1 作为新数据源名称。在“描述”项中键入对数据源的描述，此处可以不填。在“服务器” 项中键入想连接的SQL Server 服务器。 如果要连接的SQL Server 是安装在本机上，那么就从下拉框中选择“Local ”，local表示的是连接到本地的服务器。如果要连接的SQL Server 是安装在其它的服务器上，那么就应从下拉框中选取相应的选项。如果从列表中选择服务器名称，则不需要更多的配置。如果输入一个不存在的服务器的名字作为 SQL Client Configuration Utility中的一项，可在向导的下一个屏幕上为新名字创建一个服务器别名。单击“完成” 按钮完成新

10、数据源的配置。单击“下一步” 按钮进行下一步的配置工作。在“SQL Server”应该如何验证登录标识号的真伪？”下面有两个单选项供用户选择。如果选定“使用用户输入登录标识号和密码的SQL Server 验证”，请指定连接到SQL Server时 SQL Server 驱动程序使用的登录标识号。这仅适用于确定服务器默认配置的连接，而不适用于使用已创建数据源进行的后续连接。如果选定“使用用户输入登录标识号和密码的SQL Server 验证“，请指定连接到SQL Server时 SQL Server 使用的密码。这只适用于确定服务器默认配置的连接，而不适用于使用新数据源进行的后续连接。(5) 单击

11、“下一步”按钮将进行连接的验证。如果正确，则连接成功；否则，系统会指出具体的错误，用户应该重新验证输入的正确性。VB的 ADO 对象名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 25 页 - - - - - - - - - 发布时间： 2008-12-15 来源：本站专稿作者：小二黑本文欢迎非商业用途的转载, 但需要注明出自 “编程入门网” 及相应的网址链接。ADO简介参考资料：ADO简介 :http:/ ado 对象模型 :http:/ ADO是另一种用于开发访问OL

12、E DB数据源应用程序的API。 有多种程序设计语言都支持ADO ，如 VB ，VC+ ，VJ+等。ADO 提供了较为高级并容易被理解的访问OLE DB数据源的机制，它结合了DAO 和 RDO 的优点。并提供了OLE DB数据源的入口。OLE DB是一种数据库体系结构，它为企业网络提供了普遍的数据综合能力（从大型机到桌面上的数据，而不管数据的具体类型是什么），与ODBC 相比， OLE DB在数据通道方面更具有普遍性和有效性，这是因为它允许同建立在COM 基础上的更多的数据类型联系和由于ADO 是为开发客户机/ 服务器程序而专门设计的。下图是典型的ADO 应用程序的结构。ADO的特征如下 :

13、名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 25 页 - - - - - - - - - 支持成批更新. 即对更新的多个记录进行缓冲，并同步传输到服务器。支持所有类型的光标。包括只能前移型，关键值型以及动态和静态型。支持服务器端的存储过程。这些过程可以大大提高应用程序的通用性。支持返回多个记录集的查询。支持查询目的。包括限制返回的记录的个数，激活返回记录的过滤和预先语句。ADO是由以下对象组成的：Command,Connect,Error,Field,Paramete

14、r和 RecordSet 。下图给出了ADO对象的层次结构。 除了 Error和 Field之外的所有ADO 对象都是可以单独创建的，而Command ，Error和 Parameter 对象是可选的。ADO 对象介绍1.Connection对象详见vb 神童教程 ( 续)-vb adodb Connection对象简介Connection对象封装了到数据源的连接而且允许使用Execute() 方法来执行SQL命令，Execute() 命令返回一个RecordSet 对象。可使用Connection对象配置一个数据库的链接、定义脱机等级、执行SQL命令并对SQL语句的执行进行控制和管理。下图显

15、示了Connection 对象同其它对象的关系。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 25 页 - - - - - - - - - 2.Command对象Command 对象定义了将对数据源执行的指定命令。使用 Command 对象查询数据库并将查询所得到的记录集返回给RecordSet 对象，以便执行大量操作或处理数据库结构。Command对象的主要功能主要有：使用数据管理命令创建RecordSet 对象，完成成批更新和使用数据定义命令修改数据源结构。打开到数

16、据源的连接，指明一个命令，执行存储过程和创建语句。与 Parameter 对象联合创建参数化的命令。应用程序可以往各参数集中添加参数，而不需要数据提供者预先填充参数集。3.Error对象Error对象封装了从数据源返回的错误。如果Error对象可用，可使用它来获得错误描述、错误代码、创建错误的对象、参考帮助文件和当前的SQL状态。 Errors集合中包含了为响应涉及提供者的单个错误而创建的所有Error对象。任何涉及 ADO 对象的操作都可能产生一个或多个提供者错误。产生错误时，可以将一个或多个Error对象置于 Connection对象的 Errors集合中。其他ADO 操作产生错误时，将会

17、自动清空Errors集合，并且将新的Error对象置于Errors集合中。4.Field对象Field对象封装了RecordSet 对象中的一列。可以这样说，一个RecordSet 对象是由一组 Field对象组成的。可以使用Field对象来访问列的名称、列值、类型、精度、范围和列的大小。 Field对象只能从RecordSet 对象中来访问。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 25 页 - - - - - - - - - 5.Parameter对象Param

18、eter 对象封装了一个命令参数，此参数可以是输入型、输出型或者输入/ 输出型。许多数据源提供者都支持参数化的命令。需要进行的操作在这些命令中只定义一次，但可以使用变量（或参数）来改变命令的某些细节。例如，SQL SELECT 语句可以使用某个参数定义 WHERE 子句的匹配条件，而使用另一个参数来定义SORT BY子句的列的名称。6.RecordSet对象RecordSet 对象是 ADO的核心，可以单独地创建。RecordSet 对象表示的是来自基本表或命令执行结果的记录全集。任何时候，RecordSet 对象所指的当前记录均为集合内的单个记录。在 RecordSet 对象中有一个默认的指

19、针，用户程序可以通过这个默认指针的移动来访问记录集中的单个记录。RecordSet 对象封装了一组可以访问列级数据的Field对象。RecordSet 对象的方法 : 1.AddNew方法AddNew 方法为可更新的Recordset 对象创建一个新记录.AddNew方法将添加一条新的空记录 , 并且定位在该记录上, 用户可以在被绑定的数据感知控件中输入修改数据. 新增加的记录的值为指定的默认值, 如果没有指定值, 则为 Null. 例如 : 输入完新记录后,要使用 I.1pdate 方法才能将数据保存到数据库中, 在使用 Update 方法前 , 数据库中的数据不会发生改变,只有执行Upda

20、te 方法或通过Data 控件移动当前记录时, 记录才从缓冲区存储到数据库文件中. 使用 Update 方法后 , 新记录仍保持为当前记录. Data1.Recordset.AddNew 2.Delete方法Delete 方法可将当前记录从记录集中删除. 3.Edit方法要编辑修改数据库的记录, 首先使要编辑的记录成为当前记录, 然后使用 Edit方法修改记录内容 ,使用 Edit方法后 , 移动记录或者使用Update 方法把数据存入到数据库中. 4.Move 方法可以使用各种:Move 方法移动记录,使不同的记录成为当前记录. 有 5 种方法 : MoveFirst.移动到记录集的第一条记

21、录. Move,ash 移动到记录集的最好一条记录. MoveNext: 移动到记录集的下一条记录. MovePrevious: 移动到记录集的上一条记录. Move: 可以使用Move方法向前或向后移动若干条记录. 语法为 : 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 25 页 - - - - - - - - - Recordset.MoveNumRecords.Start 其中 NumRecords设置向前或向后移动记录的行数, 正数表示向后移动NumRecor

22、ds行,负数表示向前移动NumRecords行.Start参数为可选 , 表示基准位置 , 缺省时为当前记录的位置. 可以把当前记录集的Bookmark 作为基准位置 . 5.Find和 Seek 方法要查找一个符合条件的记录, 在 Table 型的记录集中可以使用Seek 方法 , 在其他类型的记录集中可以使用Find 方法 . 共有 4 种 Find 方法 :FindFirst,Find,ast,FindNext和:FindPrevious方法 . 使用 Seek方法要用到索引, 而且只能用于Table 类型的记录集. 6.I_Ipdate和 CancelIJpdate方法Update 方

23、法保存对Recordset 对象的当前记录所做的更改. 使用 IJpdate方法可以保存自从调用 .AddNew方法 , 或自从现有记录的任何字段值发生更改( 使用 Edit方法 ) 之后 , 对 Recordset对象的当前记录所作的所有更改. 调用 LIpdate方法后当前记录仍为当前状态. 如果希望取消对当前记录所做的所有更改或者放弃新添加的记录,则必须调用CancelUpdate 方法 . 调用 CanceltJpdate时, 更改缓存被重置为空, 并使用原来的数据对被绑定的数据感知控件进行刷新. 它们的语法为: 7.Close方法使用 Close 方法可以关闭 :Recordset对

24、象以便释放所有关联的系统资源. 关闭对象并非是将它从内存中删除, 可以更改它的属性设置并且在此之后再次打开. vb adodb Connection对象简介发布时间： 2008-12-15 来源：本站专稿作者：小二黑本文欢迎非商业用途的转载, 但需要注明出自 “编程入门网” 及相应的网址链接。Connection对象介绍Connection对象支持许多属性, 可以利用这些属性来操作当前的连接状态或者获取一些基本的Connection对象的信息 . 有一些属性是只读的, 而另一些属性是可读写的. 1.Attributes属性Attributes属性设置或返回一个整型值, 它用来指示对象的一项或多

25、项特性. 对于 Conn名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 25 页 - - - - - - - - - ection对象 ,Attributes属性为读 / 写, 并且其值可能为以下任意一个或多个XactAttributeEnum值的和 ( 默认为零 ). AdXactCommitRetaining: 执行保留的提交，即通过自动调用CommitTrans 启动新事务。并非所有提供者都支持该常量。AdXactAbortRetaining:执行保留的中上，即通

26、过自动调用RollbackTrans启动新事务。并非所有提供者都支持该常量。2.CommandTimeout 属性CommandTimeout属性设置或返回长整型值，该值指示等待命令执行的时间（单位为秒） 。默许值为30，指示在终止尝试和产生错误之前执行命令期间需要等待的时间。使用Connection对象或 Command 上的 CommandTimeout属性，允许由于网络拥塞或服务器负载过重产生的延迟而取消Execute 方法调用。如果在CommandTimeout属性中设置的时间间隔内没有完成命令执行，将产生错误，然后ADO 将取消该命令。如果将该属性设置为零，ADO将无限期等待直到命令

27、执行完毕。3.ConnectionString属性ConnectionString属性设置或返回字符串值, 这个字符串值包含用来建立到数据源的连接的信息 . 使用 ConnectionString属性 , 通过传递包含一系列由分号分隔的argument=value 语句的详细连接字符串可指定数据源。ADO支持 ConnectionString属性的四个参数，任何其他参数将直接传递到提供者而不经过ADO处理。Provider参数：指定用来连接的提供者名称。File Name参数：指定包含预先设置连接信息的特定提供者的文件名称。Remote Provider参数：指定打开客户端连接时使用的提供者名

28、称。Remote Server参数：指定打开客户端连接时使用的服务器的路径名称。例：使用 Connection对象的 ConnectionString属性的示例代码Public Sub ConnectionString_Example() Dim connection1 As ADODB.Connection Dim connection2 As ADODB.Connection Dim connection3 As ADODB.connection Dim connection4 As ADODB.Connection 不使用数据源名(DSN)打开连接Set connection1=New

29、ADODB.Connection connection1.ConnectionString=driver=SQL Server;&_ server=Myserver;uid=sa;pwd=password;database=pubs connection1.ConnectionTimeout=30 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 25 页 - - - - - - - - - connection1.Open 使用 DSN和 ODBC 标记打开连接。Set

30、 connection2=New ADODB.Connection connection2.ConnectionString=DSN=Pubs;UID=sa;PWD=password; connection2.Open 使用 DSN和 OLE DB标记打开连接。Set connection3=New ADODB.Connection connection3.ConnectionString=Data Source=Pubs;User ID=sa;Password=password; connection3.Open 使用 DSN和单个参数而非连接字符串打开连接。Set connection4=

31、New ADODB.Connection connection4.Open Pubs,sa,pwd End Sub 注意：如果没有复选“引用”对话框中的Data Access Object，程序会出错。在上面的程序段中，先定义了4 个 Connection对象的变量。这4 个变量分别对应于4 种不同的连接方式。语句Set connection1=New ADODB.Connection是创建一个新的Connection对象，然后再调用Connection对象的 Open方法来打开数据库连接。4.ConnectionTimeout属性ConnectionTimeout属性设置或返回指示等待连接打

32、开的时间的长整型值（单位为秒） 。其默认值为15，指示在终止尝试和产生错误前建立连接期间所等待的时间。如果由于网络拥塞或服务器负载过重导致的延迟使得必须放弃连接尝试时，请使用 Connection对象的 ConnectionTimeout属性。如果打开连接前所经过的时间超过ConnectionTimeout属性上设置的时间，将产生错误并且ADO 将取消该尝试。如果将该属性设置为零，ADO 将无限等待直到连接打开。5.DefaultDatabase属性DefaultDatabase属性可设置或返回指定Connection对象上默认数据库的名称。例：使用 Connection对象的 Default

33、Dababase属性的示例代码。Public Sub DefaultDatabase_Example() Dim connection1 As ADODB.Connection Set connection1=New ADODB.Connection connection1.ConnectionString=driver=SQL Server;&_ server=Myserver;uid=sa;pwd=password cnn1.Open cnn1.DefaultDatabase=pubs End Sub 6.IsolationLevel属性名师资料总结 - - -精品资料欢迎下载 - - -

34、 - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 25 页 - - - - - - - - - IsolationLevel属性指出Connection对象如何处理对象。7.Mode 属性Mode属性设置或返回以下某个ConnectModeEnum的值，指示用于更改在Connection中的数据的可用权限。AdModeUnknown: 默认值。表明权限尚未设置或无法确定。AdModeRead: 表明权限为只读。AdModeWrite:表明权限为只写。AdModeReadWrite:表明权限为读/写。AdModeShareD

35、eny Read:防止其他用户使用读权限打开连接。AdModeShareDenyWrite:防止其他用户使用写权限打开连接。AdModeShareExclusive: 防止其他用户打开连接。AdModeShareDenyNone: 防止其他用户使用任何权限打开连接。8.Provider属性Provider属性指出当前数据提供者的名字，或者是使用Open() 方法时没有指定名字的情况下所使用的提供者名。但是，调用Open方法时如果在多处指定提供者可能会产生无法预料的后果。如果没有指定提供者，该属性将默认为MSDASQL(Microsoft OLE DB Provider for ODBC) 。例

36、：使用 Connection对象的 Provider属性的示例代码。Public Sub Provider_Example() Dim connection1 As ADODB.Connection Set connection1=New ADODB.Connection connection1.Provider=Microsoft.Jet.OLEDB.3.51 connection1.OpenC:samplesnorthwind.mdb,admin, End Sub 9.State属性State 属性对所有可应用对象都可用，它用来说明其对象状态是打开或关闭的。可以随时使用 State 属性来

37、确定指定对象的当前状态。该属性是只读的， 并返回下列常量之一的长整型值。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 25 页 - - - - - - - - - AdStateClosed: 默认值，指示对象是关闭的。AdStateOpen:指示对象是打开的。AdStateConnecting: 指示Recordset 对象正在连接。AdStateExecuting:指示Recordset对象正在执行命令。AdStateFetching:指示Recordset 对象

38、的行正在被读取。例：使用 Connection对象的 State 属性的示例代码。Public Sub State_Example() Dim connection1 As ADODB.Connection Dim statestring AS String Set connection1=New ADODB.Connection connection1.ConnectionString=DSN=Pubs;UID=sa;PWD=password; connection1.Open Select Case connection1.State case adStateClosed statestr

39、ing=adStateClosed case adStateOpen statestring=adStateOpen End Select 显示连接的状态。MsgBox connection1.State:,statestring End Sub Connection对象的方法Connection对象的方法用来管理事务、执行命令、打开和关闭连接。需注意的是，ADO对象所支持的方法是独立于当前所使用的数据源的。例如一个 OLE DB数据源不必支持OLE DB规范的全部功能。1.BeginTrans方法BeginTrans方法开始一个连接到数据源的新事务，即启动一个新的事务。与之相应的还有 Com

40、mitTrans 和 RollbackTrans方法。 CommitTrans 保存所有的更改并结束当前事务，它也可以用来启动一个新的事务。RollbackTrans取消当前事务中所做的任何更改并结束事务，同 CommitTrans 类似，它也可以用来启动一个新的事务。它们的语法为：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 25 页 - - - - - - - - - Object.BeginTrans Object.CommitTrans Object.Roll

41、backTrans 需注意， 并非所有提供者都支持事务。需验证提供者定义的属性Transaction DDL是否出现在 Connection对象的 Properties集合中， 如果在则表示提供者支持事务。如果提供者不支持事务，调用其中的某个方法将返回错误。一旦调用了BeginTrans方法，在调用CommitTrans或 RollbackTrans结束事务之前提供者将不再立即提交所做的任何更改。例：使用 Connection对象的 BeginTrans 、CommitTrans 和 RollbackTrans方法的示例代码。Public Sub BegiTrans_Example() Dim

42、 cnn1 As ADODB.Connection Dim rstTitles As ADODB.Recordset Dim strCnn As String Dim strTitle As String Dim strMessage As String 打开连接。strCnn=Provider=sqloledb;Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; Set cnn1=New ADODB.Connection cnn1.Open strCnn 打开 Titles表Set rstTitles=New ADODB.Re

43、cordset rstTitles.CursorType=adOpenDynamic rstTitles.LockType=adLockPessimistic rstTitles.Open titles,cnn1,adCmdTable rstTitles.MoveFirst cnn1.BeginTrans 在记录集中循环并询问是否想要更改指定标题的类型. Do Until rstTitles.EOF If Trim(rstTitles!Type)=psychology Then strTitle=rstTitles!Title strMessage=Title:&strTitle&vbCr&C

44、hange type to self help? 更改指定雇员的标题 If MsgBox(strMessage,vbYesNo)=vbYes Then rsttitles!Type=self_help rstTitles.Update End If Enf If rstTitles.MoveNext 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 25 页 - - - - - - - - - Loop 询问用户是否想提交以上所做的全部更改If MsgBox(Save a

45、ll changes?,vbYesNo)=vbYes Then cnn1.CommitTrans Else cnn1.RollbackTrans End If 打印记录集中的当前数据。rstTitiles.Requery rstTitles.MoveFirst Do While Not rstTitles.EOF Debug.Print rstTitles!Title&-&rstTitles!Type rstTitles.MoveNext Loop 恢复原始数据，因为这是一个演示rstTitles.MoveFirst Do Until rstTitles.EOF If Trim(rstTitl

46、es!Type)=self_help Then rstTitles!Type=paychology rstTitles.Update End If rstTitles.MoveNext Loop rstTitles.Close cnn1.Close End Sub 此例更改了数据库中Titles表中所有心理学书籍的类型。在 BeginTrans 方法启动事务将所有对Titles表的更改隔离后，CommitTrans 方法将保存更改。可使用Rollback方法撤消用 Update 方法保存的更改。2.Open 方法Open方法打开一个数据源的连接，语法如下：connection.Open Con

47、nectionString,UserID,Password,OpenOptions 参数说明：ConnectionString:这是一个可选的字符串，它包含了连接信息。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 25 页 - - - - - - - - - UserID: 可选的字符串，它包含了建立连接时所使用的用户名称。Password:可选的字符串，它包含了建立连接时所使用的密码。OpenOptions: 可选的字符串，它包含了建立连接时所使用的连接方式。3.C

48、lose方法Close 方法关闭一个到数据源的连接。在关闭的同时，此连接所使用的任何资源都会被释放。它的语法如下：Object.Close 例：使用 Connection对象的 Open和 Close 方法的示例代码。Public Sub OpenClose_Example() Dim conn As ADODB.Connection Open the Connection object,omit the password conn.Open Data Source=MyDatabase,john Use the Connection object here. Close the Connec

49、tion conn.Close End Sub 4.Execute方法Execute 方法用来执行查询或由数据源支持的其他命令，并且返回一个RecordSet 对象，语法如下：Set recordset=connection.Execute(CommandText,Recordsaffected,Options) 参数说明：CommandText: 这是一个包含要执行的SQL语句、表名、存储过程或特定提供者的文本的字符串。RecordsAffected:这是一个可选的长整型变量，提供者向其返回操作所影响的记录数目。Options: 可选的长整型变量，指示提供者应如何为CommandText参数

50、赋值。例：使用 Connection对象的 Execute 方法的示例代码。Public Sub Execute_Example() Dim cnn As ADODB.Connection Dim MyRecordset As ADODB.Recordset 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 25 页 - - - - - - - - - Dim Mysql As String Set cnn=New ADODB.Connection Set MyRecor