在VB中应用ADO数据对象访问数据库
开篇：润墨网以专业的文秘视角，为您筛选了一篇在VB中应用ADO数据对象访问数据库范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！
摘要：主要针对当前广泛应用的vb程序设计语言对数据库开发的支持，讨论了ado数据对象访问数据库的方法。
关键词：VB；ADO对象
中图分类号：TP30文献标识码：A 文章编号：1009-3044(2008)19-30011-02
Applying ADO Data Object to Accessing Database in VB
WANG Peng-yu
(Hebi College of Vocation and Technology，Hebi458030, China)
Abstract: At present, VB program design language is widely applied in database development. This article is mainly on the methods of ADO data object in accessing database.
Key words: VB; ADO
ADO（ActiveX Data Object）是当前应用最广泛的数据库访问技术，它提供了对OLE DB数据源的数据库应用程序级的访问功能。目前，许多C/S结构或B/S结构开发技术都支持ADO，使得应用开发模式统一到单一的ADO对象上来。ADO不仅支持本地数据源，而且具有远程数据服务功能，通过远程数据服务功能，可实现服务器到客户端或Web网页之间的数据传送。
与ADO Data控件类似，ADO对象用Connection对象选择数据库的类型与数据库，用Command对象与Recordset对象选择数据表与记录集，从而实现对数据库中数据表记录的处理。所不同的是，ADO Data是一个可视的控件，数据界面控件可通过其DataSource属性与ADO Data控件绑定，从而获取数据表中的记录数据。而ADO对象是用ADO模型中的类定义的对象，是通过编写程序代码实现ADO对象与数据库、数据表、数据记录的连接。
1 ADO对象模型
■
图1 ADO对象模型
2 用连接对象打开数据库
连接对象是用Connection类定义的对象，用于选择数据库类型、驱动程序与数据库，设置用户安全信息等，因此在使用连接对象打开数据库之前，必须先定义连接对象，然后才能用连接对象建立与数据库的连接。
2.1 定义连接对象
Dim As New ADODB.Connection
2.2 连接对象的属性和方法
(1)ConnectionString属性是一个连接数据库的字符串，用于提供数据库驱动程序、路径、数据库名、用户名、口令与安全等连接信息。
ConnectionString属性设置格式如下：
. ConnectionString =" DRIVER={SQL SERVER};SERVER=ServerName;UID=UserName;PWD=Password;DATABASE=DatabaseName"
(2)CommandTimeout属性用于限制连接数据库时间，属性赋值格式如下：
.CommandTimeout=连接时间
(3)Open方法用于打开数据库，其调用格式如下：
.Open [ConnectionString],[User ID],[Password]
说明：若连接对象的ConnectionString属性已赋值，则[ConnectionString],[User ID],[Password]可省略。
(4)Close方法用于关闭数据库，其调用格式如下：.Close
3 用记录集对象操作数据表
记录集对象是用RecordSet类定义的对象，然后用记录集对象的Open方法打开数据表，并对数据表中记录指针进行移动，用Addnew、Delete、Update方法可添加、删除、修改记录。完成对数据表的操作。
3.1 定义记录集对象
Dim As New ADODB.Recordset
3.2 记录集对象的方法
3.2.1 记录集对象的Open方法
.Open [Source] [ActiveConnection],[CursorType],[LockType],[Option]
各参数含义如下：
(1)Source：数据表或Select语句，用于选择指定的数据表。
(2)ActiveConnection：连接对象，用于连接数据表所在的数据库。
(3)CursorType：游标类型。
(4)LockType：记录加锁。
(5)Option：选项。
3.2.2 记录集对象的增、删、改方法
(1)Addnew方法：添加记录；
(2)Delete方法：删除记录；
(3)Update方法：修改记录。
3.2.3 记录集对象的指针移动方法
(1)MoveFirst方法：将记录指针移到首条记录；
(2)MovePrevious方法：将记录指针上移一条记录；
(3)MoveNext方法：将记录指针下移一条记录；
(4)MoveLast方法：将记录指针移到最后一条记录；
(5)Move n方法：将记录指针移动n条记录，当n>0向下移，当n
3.2.4 记录集对象的关闭方法Close
当记录集对象使用完毕后，应用Close方法关闭记录集对象，回收为记录集对象分配的内存空间。
4 用命令对象操作数据表
命令对象是用Command类定义的对象，用于存放SQL命令或存储过程，执行SQL命令或存储过程后可实现对数据库中指定数据表记录的查询、插入、替换与删除等操作。当要执行带有动态参数的Command命令时，需要使用参数对象（Parameter）。
4.1 定义命令对象
命令对象的定义格式为：Dim As New mand
4.2 命令对象的属性
(1)ActiveConnection属性：用于选择连接对象，使命令对象与数据库连接。
(2)CommandType属性：用于确定命令类型。
(3)CommandText属性：根据命令类型存放“数据表名”、“ SQL语句”、“存储过程名”、“文件名”等内容。
(4)CommandTimeout属性：用于限制命令执行时间。
4.3 命令对象的方法
Execute方法：用于执行命令，相当于Adodc控件的Refresh方法
5 程序示例
用ADO的三个对象完成下列工作：用连接对象打开数据库student；用记录集对象打开院系编码表（dept_code）；用命令对象执行“删除院系编码为 '07' 的院系信息”的命令。
5.1 定义ADO的三个对象
Dim Con As New ADODB.Connection
Dim Cmd As New mand
Dim Rs As New ADODB.Recordset
5.2 配置Connection对象的连接属性并打开连接
Con.ConnectionString = " DRIVER={SQL SERVER};SERVER=127.0.0.1;UID=sa;PWD=;DATABASE=student"
Con.Open
5.3 打开RecordSet对象
Rs.Open "Select * From dept_code",Con
5.4 配置Command对象的连接属性和命令语句，最后执行
Cmd.ActiveConnection = Con
mandType = adCmdText
mandText = "Delete From dept_codeWhere deptcode='07'"
Cmd.Execute
参考文献：
[1] 柳青,刘渝妍,何文华.Visual Basic程序设计教程[M].北京:高等教育出版社,2002,2.
[2] 刘凤声.VB中用ADO对象访问数据库编程方法分析[J]. 微型电脑应用,2005,21(1):51-53.
[3] 陈裕文.用ADO和SQL开发VB数据库应用系统[J].现代计算机,2007(5):99-101.
注：本文中所涉及到的图表、注解、公式等内容请以PDF格式阅读原文