1、1VB 神童教程2008-12-15 编程入门网 http:/ 作者：小二黑序VB 数据库操作是初学者普遍感到头疼的地方，因为现有的 VB 教材和资料中的数据库操作这部分，多是泛泛而谈或是一带而过。因此就想组织一个包括添加、修改、删除这些基本功能的数据库操作实例供大家参考。久已未用 VB6，机器里已经装上了 VS 2008，再改回 VB6，感觉实在是怪怪的。还好有朋友帮忙。也许有朋友觉得 vb6 版本已经很低了，做这个事还有意义吗？其实对微软来说，VB5 是 VB，VB6 是 VB，VS.net 中的 VB.net 也是 VB；而对于许多初学者来说，VB 只是 VB6，为什么这么说呢？因为对于
2、许多不了解编程的朋友来说，似乎 VB就是编程的代名词，学编程的第一反应就是学 VB，而民间的电脑培训学校开设的多数都是 VB6 课程，那么他们学到的都是 VB6；同时计算机等级考试也可以用VB6 来过级，有相当部分的朋友是为了考证而学编程的，你相信他会放着简单易学的 VB6 不学，而去研究庞大的.net 吗？因此我觉得这个事还是值得去做的。祝朋友们学习愉快！第一部分:VB 数据库操作实例VB 神童教程- 编写一个小型的信息管理系统VB 神童教程- 准备数据库VB 神童教程- 设计系统的界面及对象的属性VB 神童教程- 为对象添加事件代码第二部分:补充内容VB 神童教程-ODBC 数据源简介VB
3、 神童教程- 配置 Access 数据源VB 神童教程-配置 SQL Server 数据源VB 神童教程-VB 的 ADO 对象VB 神童教程-VB adodb Connection 对象简介VB 神童教程-VB 连接 Access 数据库实例VB 神童教程- 使用 ADO Data 控件连接 Access 的简单实例附录一:编写一个小型的信息管理系统 受委托为编程入门网做一个简单的 VB 操作数据库的实例，来演示一下如何用VB 向数据库中添加、修改、删除记录这些操作。我觉得自己是比较菜的，几年来别人都在进步，只有我还在原地踏步。不过没有办法，我们这一圈人里现在只有我机器上还有 VB6，勉为其
4、难，只有尝试一下了。如果我写的这点幼稚的东西能为想要了解 VB 数据库操作的朋友提供哪怕是一丁点儿的参考和帮助，将是我最为高兴的事情，同时也希望高手不要见笑。我做的这个实例名为“编程入门网网址管理系统” ，算是一个小型的信息管理系统吧。该系统后台使用的是 Access 数据库，程序中使用 ADO 代码链接的形式连接 Access。该系统具有向数据库中添加、修改、删除记录的功能，进行某项操作后能够实时刷新显示数据。并在程序中加了相应的代码对输入的数据进行合法性校验，以避免输入错误的数据造成程序运行不正常，程序运行时各个操作及退出系统时均有友好的提示框请用户确认。所有代码均在 Windows 20
5、03+Vusual Basic 6.0 环境下调试通过。系统运行时如下图：2准备数据库 我用的是 Access 2003，因为需要讲解的仅仅是数据的添加、修改及删除，因此单数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多表操作，则您还需要补充一些关系数据库方面的知识，比如实体、一对一联系、一对多联系等等；此外，对 sql 语言也需要有所了解。具体您可以参考：数据库基础知识 ABC。首先，在“我的电脑”的 e 盘新建一个名为 vb 文件夹，先打开 Access，新建一个名为 Access_db 的数据库（Access 数据库文件的扩展名是.mdb ） ，保存到刚才建立的文件
6、夹中，则以后在程序中调用数据源的位置为 E:vbAccess_db.mdb。然后在 Access_db.mdb 中建立一个名为 wzdz 的表（ wzdz 是“网站地址”的首字母缩写）, 然后在 wzdz 表中添加网站名称、网站地址及网站描述三个字段，三个字段的属性是相同的，如下：数据类型：文本。字段大小：50有效性规则：无。必填字段：否允许空字符串：否索引：无“编号”这个字段使用的是 Access 的自动编号，并将其作为主键。也就是说，您在表中设置以上三个字段即可，设置完毕保存表时，按 Access 的提示添加主键，Access 会自动为您搞定。具体操作您可以参考：vb 神童教程(续)-vb
7、 连接 Access 数据库实例这样在建立了数据库及表结构之后，即使是调用没有记录的空库，系统也可以无差错运行，可以在运行时通过“添加记录”按钮向数据库中添加记录。不过由于数据库是空的，系统第一次运行时数据显示控件没有数据可显示，显得空荡荡的，不太美观哦。为了方便起见，我们在 Access 中给 wzdz 表中预先添加两条初始记录：编号 网站名称 网站地址 网站描述1 编程入门网 http:/ 各种编程文档、电脑教程及软件应用技巧，您的电脑技术加油站!2 健康生活网 www.health163.org 您的健康指南添加的方法很简单：在 Access 的设计器中直接双击 wzdz 表名，在出来的
8、窗口中添加即可。添加时注意：因为我们使用的是 Access 的自动编号做主键，所以在添加时不用理“编号”这个字段，直接添加后三个字段即可。下一步的工作，是设计系统的界面及设置各个对象的属性。设计系统的界面及对象的属性 本系统是一个很简单的数据库操作实例，能够对数据库的添加、修改及删除记录这几个基本的操作。系统使用数据显示控件 MSHFlexGrid 显示数据库中的记录，使用数据链接控件 Adodc 链接数据库作为 MSHFlexGrid 的数据源，使用文本框来接收系统运行时用户输入的数据。步骤如下：一、启动 VB6，新建一个标准 exe 工程，并将工程中的 form1 的 caption 属性
9、设置为“编程入门网网址管理系统” ，width 属性值设为 7950，height 属性值设为4620。二、向窗体中添加一个 Adodc 控件。如果在工具箱中找不到 Adodc 控件，可以右击工具箱，选择“部件.”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft ADO Data Control6.0(OLEDB)”。在 VB 的属性窗口我们对 Adodc 控件的三个个属性值进行编辑，其余属性值使用默认的即可：1、ConnectionString 属性值设为： Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:vbAccess_d
10、b.mdb;Persist Security Info=False这个属性设置了连接 Access_db.mdb 这个数据库。2、RecordSourc 属性值设为：select * from wzdz这个属性值中的 sql 语句的作用是查询出 wzdz 表中的所有记录。3、Visible 属性值设为 False，作用是使其在运行时不可见。三、向窗体添加一个 MSHFlexGrid 控件，如果工具箱中没有 MSHFlexGrid 控件，可以右击工具箱，选择“部件.”菜单项，然后在“部件”窗口的“控件”选项卡中选中“Microsoft Hierarchical FlexGrid Control
11、6.0 ”。然后在 vb 的属性窗口中将 MSHFlexGrid 控件的名称修改为 MS1，如下图：3然后对 MSHFlexGrid 控件进行如下设置：1、DataSource 属性：在 VB 的属性窗口中将其值设为 Adodc1，即使用 Adodc控件作为其数据源。2、BackColorBkg 属性：在 VB 的属性窗口中将其值设为“Str2 = “Data Source=E:vbAccess_db.mdb;“Str3 = “Jet OLEDB:Database Password=“conn.Open Str1 “Str2 = “Data Source=E:vbAccess_db.mdb;“
12、Str3 = “Jet OLEDB:Database Password=“conn.Open Str1 “Str2 = “Data Source=E:vbAccess_db.mdb;“Str3 = “Jet OLEDB:Database Password=“conn.Open Str1 & Str2 & Str3strSQL = “select * from wzdz where 编号=“ & Val(Text4.Text) & “rs.Open strSQL, conn, 3, 3If rs!编号 = Val(Text4.Text) Then由于系统数据库使用的是自动编号作为主键因此以编号字
13、段的内容作为判断的依据如果 rs!编号 = Val(Text4.Text)说明数据库中有此记录并进行删除操作否则给“不存在此记录”的提示信息并关闭数据连接rs.Deleters.Closeconn.CloseMsgBox (“删除记录成功！“)Adodc1.Refresh 刷新数据源，MSHFlexGrid 控件会实时刷新显示数据ElseMsgBox (“不存在此记录！“)Text4.Text = “rs.Closeconn.CloseExit SubEnd IfEnd If以下四条语句的作用是在操作完成后将文本框置空Text1.Text = “: Text2.Text = “: Text3.
14、Text = “: Text4.Text = “End Sub五、 “退出系统”按钮(command4)的 click 事件代码：Private Sub Command4_Click()Dim sc As Integersc = MsgBox(“确实要退出系统吗？“, vbOKCancel, “ 提示信息“)If sc = 1 Then运行时如果用户点击的是 MsgBox 提示框的“确定”按钮，返回值是 1EndEnd IfEnd Sub六、添加完事件代码之后，我们这个实例至此完成，运行一下吧！ODBC 数据源简介 ODBC（开放式数据库连接）是一种应用程序的接口（API） 。这种接口提供了独
15、立于任何的数据管理系统编写应用程序的能力。OCBC 通过 ODBC 驱动程序提供了对不同的数据库供应商的一组应用程序接口来给特殊的数据库管理系统（DBMS） 。用户的应用程序使用这组 API 来调度 ODBC 驱动程序。然后驱动程序通过 SQL 语句同 DBMS 发生联系。下面我们开始介绍 ODBC 数据源。在“我的电脑”中打开“控制面板”中的“管理工具” ，在窗口中即可见 ODBC 数据源图标。7双击打开 ODBC 数据源管理器，如下图所示：ODBC 数据源管理器为配置、添加、删除各种不同的数据源名称提供了最为简洁的方法。它使得用户可以轻松地完成数据源的配置工作，用户也可以删除原有的DSN（
16、数据源名称） ，或对先前配置的数据源进行修改。ODBC 数据源管理器的具体功能如下：用户 DSN：ODBC 用户数据源存储了如何与指定数据提供者连接的信息。用户数据源只对当前的用户可见，而且只能应用在本机上。 系统 DSN：ODBC 系统数据源存储了如何与指定数据提供者连接的信息。系统数据源对当前机器上的所有用户可见。文件 DSN：ODBC 文件数据源允许用户连接数据提供者。文件 DSN 可以由安装了相同驱动程序的用户共享。驱动程序：ODBC 驱动程序允许那些支持 ODBC 的程序通过 ODBC 数据源获取信息。如果安装新的驱动程序，要使用其安装程序。跟踪：ODBC 跟踪允许创建调用 ODBC
17、 驱动程序的日志，以供技术人员查看；也可以辅助调试应用程序。Visual Studio 跟踪启动 Microsoft Visual Studio 的 ODBC跟踪。连接池：连接池允许应用程序重新打开连接句柄，此操作将往返过程存入服务器。配置 Access 数据源 (1)打开控制面板中的 ODBC 数据源管理器，在“用户 DSN”（即“用户数据源”）中选择“MS Access Database”选项，可心删除或配置一个已有的用户数据，这里我们将要添加一个数据源。(2)单击添加按钮，系统将准备在 MS Access Database 下添加一个用户数据源，为了安装数据源，会弹出创建新数据源窗口，如
18、下图：(3)在创建新数据源窗口中，选择“Microsoft Access Driver“来安装数据源。(4)单击“完成”按钮，进入 ODBC Microsoft Access 安装窗口，如下图：8在“数据源名”项中键入数据源的名称，这里我们键入“Access_db”作为数据源名。在“描述”项中键入对数据源的描述，此处内容可选，这里我们键入“This is Access database temp”。在“数据库”项中可以选取、创建、修复或者压缩数据库。这里我们选择“选取”按钮来选取相应的 Access 数据库。如果用户没有自己建立的 Access 数据库，那么用户可以到安装 Access 的目录
19、下面选取 Access 自带的数据库。注意：Access 数据库文件的扩展名是.mdb。最后，单击“确定”按钮。至此一个新的 Access 数据源已经添加完成，如下图：说明：如果用户希望所创建的数据源名被本机中的多个用户所使用，请用户添加系统 DSN。在实际情况中，开发一个单机单用户的系统没有什么意义，所以一般都需要对系统 DSN 进行配置。系统 DSN 的添加过程同用户 DSN 添加过程类似。配置 SQL Server 数据源 配置 SQL Server 数据源的步骤：(1) 打开控制面板中的 ODBC 数据源管理器，单击“添加”按钮来添加一个数据源。(2)单击添加按钮后，系统将准备添加一个
20、用户数据源。为了安装数据源，会弹出创建新数据源窗口，如下图所示。由于 VB 和 SQL Server 的系列性，所以即使用户没有安装 SQL Server，在创建新数据源窗口中也列有 SQL Server 这一项。当然，这里的列表项只是起了一个标识作用，如果用户尚未安装 SQL Server，请先安装后再进行以下的步骤。9(3)在上图选择“SQL Server”后，单击“完成”按钮，进入“创建新的数据源到 SQL Server”窗口，如下图所示：在“名称”项中键入新的数据源名，这里我们键入 SQL Server1 作为新数据源名称。在“描述”项中键入对数据源的描述，此处可以不填。在“服务器”项
21、中键入想连接的 SQL Server 服务器。如果要连接的 SQL Server 是安装在本机上，那么就从下拉框中选择 “Local”，local 表示的是连接到本地的服务器。如果要连接的 SQL Server 是安装在其它的服务器上，那么就应从下拉框中选取相应的选项。如果从列表中选择服务器名称，则不需要更多的配置。如果输入一个不存在的服务器的名字作为 SQL Client Configuration Utility 中的一项，可在向导的下一个屏幕上为新名字创建一个服务器别名。单击“完成”按钮完成新数据源的配置。单击“下一步”按钮进行下一步的配置工作。在“SQL Server”应该如何验证登录
22、标识号的真伪？”下面有两个单选项供用户选择。如果选定“使用用户输入登录标识号和密码的 SQL Server 验证” ，请指定连接到 SQL Server 时 SQL Server 驱动程序使用的登录标识号。这仅适用于确定服务器默认配置的连接，而不适用于使用已创建数据源进行的后续连接。如果选定“使用用户输入登录标识号和密码的 SQL Server 验证“，请指定连接到 SQL Server 时 SQL Server 使用的密码。这只适用于确定服务器默认配置的连接，而不适用于使用新数据源进行的后续连接。(5)单击“下一步”按钮将进行连接的验证。如果正确，则连接成功；否则，系统会指出具体的错误，用户
23、应该重新验证输入的正确性。VB 的 ADO 对象 ADO 简介参考资料：ADO 简介:http:/ 对象模型:http:/ 是另一种用于开发访问 OLE DB 数据源应用程序的 API。有多种程序设计语言都支持 ADO，如 VB，VC+，VJ+等。ADO 提供了较为高级并容易被理解的访问 OLE DB 数据源的机制，它结合了 DAO 和 RDO 的优点。并提供了 OLE DB数据源的入口。OLE DB 是一种数据库体系结构，它为企业网络提供了普遍的数据综合能力（从大型机到桌面上的数据，而不管数据的具体类型是什么） ，与 ODBC相比，OLE DB 在数据通道方面更具有普遍性和有效性，这是因为它
24、允许同建立在COM 基础上的更多的数据类型联系和由于 ADO 是为开发客户机 /服务器程序而专门设计的。下图是典型的 ADO 应用程序的结构。ADO 的特征如下:支持成批更新.即对更新的多个记录进行缓冲，并同步传输到服务器。支持所有类型的光标。包括只能前移型，关键值型以及动态和静态型。支持服务器端的存储过程。这些过程可以大大提高应用程序的通用性。支持返回多个记录集的查询。支持查询目的。包括限制返回的记录的个数，激活返回记录的过滤和预先语句。ADO 是由以下对象组成的：Command,Connect,Error,Field,Parameter 和RecordSet。下图给出了 ADO 对象的层次
25、结构。除了 Error 和 Field 之外的所有ADO 对象都是可以单独创建的，而 Command，Error 和 Parameter 对象是可选的。10ADO 对象介绍1.Connection 对象详见 VB 神童教程-vb adodb Connection 对象简介Connection 对象封装了到数据源的连接而且允许使用 Execute()方法来执行 SQL命令，Execute()命令返回一个 RecordSet 对象。可使用 Connection 对象配置一个数据库的链接、定义脱机等级、执行 SQL 命令并对 SQL 语句的执行进行控制和管理。下图显示了 Connection 对象同
26、其它对象的关系。2.Command 对象Command 对象定义了将对数据源执行的指定命令。使用 Command 对象查询数据库并将查询所得到的记录集返回给 RecordSet 对象，以便执行大量操作或处理数据库结构。Command 对象的主要功能主要有：使用数据管理命令创建 RecordSet 对象，完成成批更新和使用数据定义命令修改数据源结构。打开到数据源的连接，指明一个命令，执行存储过程和创建语句。与 Parameter 对象联合创建参数化的命令。应用程序可以往各参数集中添加参数，而不需要数据提供者预先填充参数集。3.Error 对象Error 对象封装了从数据源返回的错误。如果 Err
27、or 对象可用，可使用它来获得错误描述、错误代码、创建错误的对象、参考帮助文件和当前的 SQL 状态。Errors集合中包含了为响应涉及提供者的单个错误而创建的所有 Error 对象。任何涉及ADO 对象的操作都可能产生一个或多个提供者错误。产生错误时，可以将一个或多个 Error 对象置于 Connection 对象的 Errors 集合中。其他 ADO 操作产生错误时，将会自动清空 Errors 集合，并且将新的 Error 对象置于 Errors 集合中。4.Field 对象Field 对象封装了 RecordSet 对象中的一列。可以这样说，一个 RecordSet 对象是由一组 Fi
28、eld 对象组成的。可以使用 Field 对象来访问列的名称、列值、类型、精度、范围和列的大小。Field 对象只能从 RecordSet 对象中来访问。5.Parameter 对象Parameter 对象封装了一个命令参数，此参数可以是输入型、输出型或者输入/输出型。许多数据源提供者都支持参数化的命令。需要进行的操作在这些命令中只定义一次，但可以使用变量（或参数）来改变命令的某些细节。例如，SQL SELECT 语句可以使用某个参数定义 WHERE 子句的匹配条件，而使用另一个参数来定义 SORT BY 子句的列的名称。6.RecordSet 对象RecordSet 对象是 ADO 的核心，
29、可以单独地创建。RecordSet 对象表示的是来自基本表或命令执行结果的记录全集。任何时候，RecordSet 对象所指的当前记录均为集合内的单个记录。在 RecordSet 对象中有一个默认的指针，用户程序可以通过这个默认指针的移动来访问记录集中的单个记录。RecordSet 对象封装了一组可以访问列级数据的 Field 对象。RecordSet 对象的方法:1.AddNew 方法AddNew 方法为可更新的 Recordset 对象创建一个新记录 .AddNew 方法将添加一条新的空记录,并且定位在该记录上,用户可以在被绑定的数据感知控件中输入修改数据.新增加的记录的值为指定的默认值,如果没有指定值,则为 Null.例如: 输入完新记录后,要使用 I.1pdate 方法才能将数据保存到数据库中,在使用 Update 方法前,数
