VB程序设计与数据管理

mand对象的常用方法 （1）Execute方法，执行CommandText属性指定的查询、 SQL语句或存储过程。 （2）Cancel方法，取消Execute方法的调用 例：Command对象应用示例
Command1按钮
“注册”按钮事件代码
Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim cmd As New mand Dim strSQL As String conn.ConnectionString = "Provider =Microsoft.ACE.OLEDB.12.0; DATA Source=" & App.Path & "\users.accdb" strSQL = "INSERT INTO users (username,userpsd) VALUES (' " & Text1 & " ',' " & Text2 & " ') " mandText = strSQL conn.Open Set cmd.ActiveConnection = conn cmd.Execute : conn.Close : Set conn = Nothing End Sub
（5）Requery方法，重新执行对象所基于的查询，更新Recordset对象
中的数据。 （6）Update方法，保存对Recordset对象当前记录所做修改。 CancelUpdate方法，可取消对当前记录修改。
四、Recordset对象
Recordset对象表示从数据库返回的一系列记录的 集合。一个 Recordset 对象由记录和列（字段）组成。通 过Recordset可以对记录及组成记录的列进行各种操作。 1.Recordset对象的常用属性 （1）ActiveConnection属性，设置或返回Recordset对 象所属的Connection对象。 （2）AbsolutePosition 属性，指定 Recordset 对象中当 前记录的序号位置。 （3）BOF属性，若当前的记录位置在第一条记录之前， 则返回 true，否则返回 fasle。 EOF属性， 若当前记录的位置在最后的记录之后， 则返回 true，否则返回 fasle。
（6）LockType属性，指定打开Recordset对象使用的 锁定类型，其值如下表所示。
常 量 AdLockReadOnly 值 1 默认值，只读锁 悲观锁，操作者打开之后立即上锁，直到修改 完成或者放弃修改为止，此时其他人无法编辑 乐观锁，当记录将要被更新的时候才开始上锁， 但是不能保证在提交修改之前是否有人改动过 批量乐观锁 说 明
（4）Cancel方法，取消Open或 Execute方法的调用。
‘ 创建Connection对象conn Dim conn As New ADODB.Connection ‘ 链接数据库路径 conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + App.Path + "\song.accdb" ‘ 打开到数据库的链接 conn.Open '判断链接的状态，如果conn处于打开状态，则显示“链接已成功打开” If conn.State = adStateOpen Then MsgBox "链接已成功打开" ‘ 关闭到数据库的链接 conn.Close ' 判断链接的状态，如果conn处于关闭状态，则显示“链接已关闭” If conn.State = adstatecolsed Then MsgBox "链接已成功关闭" '释放对象 Set conn = Nothing
单击 “确定”
选择该选项（不同环境下ADO的 版本号可能不同）
二、Connection对象
Connection用来创建到数据库建立连接。在建立连接时，最主要 的是设置连接字符串，用来指定连接数据库所用的驱动程序、数据源 名称、用户名和密码等。 1.Connection对象的常用属性： （1）ConnectionString属性 ConnectionString连接字符串，用于建立连接数据源的信息。 例.创建到数据库song.accdb的链接。 Dim cnn As New ADODB.Connection ＇New用于创建新对象 cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + App.Path + "\song.accdb " Provider定义数据源提供者，使用Microsoft.ACE.OLEDB.12.0 可以访问Access2010数据；Data Source定义数据库的文件名，需指 定绝对路径，App.Path返回当前应用程序所在的绝对路径。
AdLockPessimistic
AdLockOptimistic AdLockBatchOptimistic
2
3 4
（7）Sort属性，设置排序字段。 （8）Filter属性，设置Recordset对象中的筛选条件。
2. Recordset对象常用方法
（1）AddNew方法，创建和初始化新记录，其语法为: Recordset对象.AddNew FieldList, Values AddNew方法为记录集添加新记录后,需使用UpDate将所添加的数据
ADO对象模型图
指定连接数据来源 访问数据源时所返回的错误信息
发出命令信息从数据源获取所需数据
与命令对象有关的参数
查询命令的返回的记录集
记录集中某个字段的信息
每个ADO对象都有一组惟一的属 性，用来描述或控制对象
2.ADO对象基本操作流程
（1）初始化COM库，引入ADO库定义文件；
（2）用Connection对象连接数据库；
存储到数据库中。
（2）Delete方法，删除当前记录或记录组。 （3）Move方法，移动Recordset对象中当前记录的位置。
（4）MoveFirst、MoveLast、MoveNext和MovePrevious方法，移动
到指定Recordset对象中的第一条、最后一条、下一条或上一条记录， 使该记录成为当前记录。
AdOpenKeyset
AdOpenDynamic AdOpenStatic
1 据值,就是说可以即时看到修改信息 ,但是不能即时得到数据 是否删除的信息 , 因为这个关键字列表是事先初始化好的。 程序中常用此类型。 打开动态类型游标，完全可滚动游标，可得到数据的最新状 2 态，但执行效率也会有所降低。 打开静态类型游标，完全可滚动游标，它先将数据库备份文 3 件之后进行操作，可以断开数据库连接后继续使用。
主要内容
了解使用VB访问Access数据库的基本方法 初步掌握通过ห้องสมุดไป่ตู้DO对象从数据库中获取数据的方法 能够使用合适的算法处理从数据库中获取的数据
软硬件环境
Windows 7
Visual Basic 6.0
Access 2010
VB与数据库连接方式
Visual Basic提供了比较丰富的数据访问技术，
二、Command对象
定义了将对数据源执行的命令，如创建、添加、取回、删除或 更新记录等命令。使用命令对象来查询数据库，查询结果以数据 集对象（Recordset）形式返回。命令对象在操纵数据库前需要 与一个已经打开的连接对象（Connection）建立关联。
mand对象的常用属性 （1）ActiveConnection属性，设置到数据源的连接信息。通过 设置该属性使打开的链接与Command对象关联。 （2）CommandText属性，定义命令（例如，SQL语句）的可 执行文本。
（3）利用建立好的连接，通过Connection、
Command对象执行SQL命令，或利用Recordset
对象取得结果记录集进行查询、处理；
（4）使用完毕后关闭连接释放对象。
（1）引入ADO库定义文件
在VB程序中使用ADO对象，必须先为当前工程引用 ADO的对象库。方法：执行“工程”菜单中 “引用”命令， 弹出“引用”对话框，如图所示。
如ADO、DAO、RDO等，其中ADO (ActiveX
Data Objects，ActiveX数据对象）是一种面向对 象的编程接口，用以实现访问关系或非关系数据库 中的数据，ADO对象是OLE DB的接口，它能完成 DAO、RDO所有的功能。
一、ADO数据模型 二、Connection对象及应用 三、Command对象及应用 四、Recordset对象及应用
一、ADO对象模型
ADO (ActiveX Data Objects)数据库访问技术， 采用OLE DB的数据访问模 式。OLE DB 和ODBC 标 准都是为了提供统一的访问 数据接口，ODBC 标准的对 象是基于SQL 的数据源，而 OLE DB 的对象则是范围更 为广泛的任何数据存储。
应用程序
ADO
OLE DB
SQL Access Server
Excel
……
Email
1. ADO对象模型组成
ADO数据模型定义了一个可编程的对象集合，主要由三 个对象成员Connection、Command、Recordset和几个集 合对象Errors、Parameters、Fields、Properties组成。 Connection 对象完成链接功能，通过链接可以从应用程 序中访问数据源。 Command 对象可以通过已建立的链接发出命令，对数 据源进行指定的操作。 Recordset对象查询命令的返回数据以行（记录）为单 位存储在本地，这些数据的集合称为记录集。一条记录包含 一个或多个字段，模型中用Field 体现 Recordset 对象的字 段。 错误可能在应用程序中随时发生，通常是无法建立链接、 执行命令等引起的，模型中用Error对象体现错误。