1、第10章数据库程序设计已修改第10章 Visual Basic.NET数据库程序设计 学习要点： 学习数据库基本原理及其应用。 熟悉Access的集成开发环境。 掌握VB.NET开发数据库应用程序步骤。101 创建个人通讯资料库1011 例10-1 创建个人通讯录库任务描述： 在Access数据库中创建个人通讯录库中的表address_book.mdb，表中包含姓名、出生日期、工作单位、家庭电话、移动电话、QQ、E-mail等字段，并在表中输入若干内容。任务分析： Access是存储管理数据的软件，将日常生活中的表格数据列（表头），规定相同属性，相同类型，相同长度，即为字段名。每个行中填写的数
2、据，即为数据库中的记录。任务实现：1在Access中创建如表10-1中的结构。表10-1 address_book.mdb结构通讯记录表字段名字段类型字段大小姓名文本型10出生日期日期型8工作单位文本型50家庭电话文本型12移动电话文本型11文本型11E-mail文本型50创建方法如下：（）打开Access数据库软件；（）点击“新建”按钮，在出现的任务窗格图10-1中，点击新建中的“空数据库”。图10-1 任务窗格-新建文件（3）在弹出的“文件新建数据库”对话框中，创建名为“address_book.mdb”的文件。如图10-2所示。图10-2 建立的address_book.mdb数据库（4
3、）双击“使用设计器创建表”，弹出表设计器“表1：表”，在其中建立表10-1中表结构。如图10-3中姓名字段。图10-3 表设计器（5）保存表名为“adress”。保存时，软件提示“尚未定义主键”，在提示对话框中选择“是”按钮，建立一个主键。即为表增加了一个编号字段，它在表中是唯一的。图10-4 “尚未定义主键”提示框（6）此时，adress_book库，以及库中的表“adress”已建立成功，即adress的表结构建立完成。（7）双击“address”表，在表中输入若干人的通讯记录。102 设计个人通讯资料库的软件整体结构与界面1021 例10-2 设计个人通讯资料库的软件整体结构与界面。任务
4、描述：在个人通讯资料库中，建立主界面和录入修改新的个人资料、查询个人资料、浏览通讯录三个子界面，并设计完成相应的功能。任务分析： 本例中规划并建立整个小软件中的界面，对每个界面中所使用的控件，也进行了规划和设计，使它们能正确的完成输入/修改、查询、浏览各模块的功能。任务实现：1 根据软件所需要的功能，设计软件包含以下模块：录入修改信息模块、浏览信息模块和查询信息模块。2 设计主界面，如图10-5，其中控件设计如表10-3所示。图10-5 个人通讯资料管理软件主界面表10-2 主界面控件表控件名称控件类型属性说明bn_editbuttontext=” 录入修改新的个人资料”bn_browbutt
5、ontext=” 浏览通讯录”bn_findbuttontext=” 查询个人资料”bn_exitbuttontext=” 退出”frm_mainformtext=”欢迎使用个人通讯资料库管理软件”3设计录入/修改信息模块界面，如图10-6，其中控件设计如表10-4所示。图10-6 个人通讯资料管理软件录入/修改界面表10-3 录入/修改界面控件表控件名称控件类型属性说明tx_nametextboxtext=”tx_birthtextboxtext=”tx_worktextboxtext=”tx_h_phonetextboxtext=”tx_m_phonetextboxtext=”tx_qqt
6、extboxtext=”tx_emailtextboxtext=”bn_firstbuttonText=”第一条”bn_lastbuttonText=”上一条”bn_nextbuttonText=”下一条”bn_endbuttonText=”最后一条”bn_addbuttonText=”增加”bn_modibuttonText=”修改”bn_delbuttonText=”删除”bn_returnbuttontext=”放弃”Frm_editformText=” 录入/修改个人资料”说明：label控件未列入。4设计浏览信息模块（浏览通讯录）界面，如图10-7，其中控件设计如表10-4所示。图1
7、0-7 个人通讯资料管理软件浏览通讯录界面表10-4 浏览通讯录界面控件表控件名称控件类型属性说明da_recordDataGridViewDataGridView控件在下一节中详细介绍bn_returnbuttontext=”返回”Frm_browformText=” 浏览通讯录”6设计查询信息模块（查询个人资料）界面，如图10-8，其中控件设计如表10-6所示。图10-8 个人通讯资料管理软件查询个人资料界面表105 查询个人信息界面控件表控件名称控件类型属性说明cb_typeComboxText=”按姓名查询”tx_findtextboxtext=”da_recordDataGridDa
8、taGrid控件在下一节中详细介绍bn_returnButtontext=”返回”Frm_sqlformText=” 查询个人资料”说明：label控件未列入。1022 例10-3 浏览通讯录任务描述： 使用ADO.NET 2.0数据对象的向导模式，建立浏览通讯录模块。建立DataGridView控件，显示address_book数据库中“address”表内容，从而实现浏览通讯录模块功能。任务分析： 在VB.NET 2008中提供了ADO.NET（ActiveX Data Objects）数据访问技术，此例中采用向导方式连接并浏览数据库。任务实现： 1按例10-2设计界面，新建项目brow_
9、address，加入DataGridView、返回按钮控件。 2在da_record控件的属性框中，点击datasource属性中的下拉箭头，在弹出的对话框中，点击“添加项目数据源”。3根据“数据源配置向导”，选择数据源类型为“数据库”；点击下一步，点击“新建连接”，选择数据连接为“Microsoft Access数据库文件”；点击“继续”，在弹出的“添加连接”对话框中，选择“数据库文件名”为“address_book.mdb”；点击“确定”，最后选择数据库对象为“表”，点击“完成”。如图10-910-12所示。4此时，如图10-13所示，设计视图下出现，address_bookdataset
10、，addressbindingsource和addresstableadapter三个控件，窗体中的da_record控件中出现address_book中的字段，说明数据库连接成功。现在，编译执行项目，如图10-14所示，数据库中内容正确显示在DataGridView控件中。图10-9 “数据源配置向导”选择数据源类型 图10-10 “数据源配置向导”选择数据连接 图10-11 添加数据库连接图10-12 “数据源配置向导”选择数据库对象图10-13 DataGridView连接成功图10-14 项目执行效果1023 ADO.NET 2.01ADO.NET简介ADO.NET是一个类的集合，是一
11、组用于和数据源进行交互的面向对象类库。它包括了连接对象、命令对象、数据适配器对象和数据集对象等。能以统一方式管理和访问各种不同类型的数据库，如：Microsoft SQL Server、Access，甚至是Excel和文本文件。ADO.NET的数据存取API提供两种数据访问方式，分别用来识别并处理两种类型的数据源，即SQL Server7.0（及更高的版本）和可以通过OLE DB进行访问的其他数据源。为此ADO.NET中包含了两个类库，System.Data.SQL库可以直接连接到SQL Server的数据，System.Data.ADO库可以用于其他通过OLE DB进行访问的数据源。如Acc
12、ess数据。本书主要讲解以OLE DB接口方式访问Access数据库的过程和方法。2ADO.NET中的名称空间ADO.NET是围绕System.Data基本名称空间设计，其他名称空间都是从System.Data派生而来。它们使得ADO.NET不仅访问DataBase中的数据，而且可以访问支持OLE DB的数据源。当我们讨论ADO.NET时，实际讨论的是System.Data和System.Data.OleDb名称空间。这两个空间的所有类几乎都可以支持所有类型的数据源中的数据。这两个名称空间中包含有一些类，类中没有OleDb前缀的，派生自System.Data空间，有此前缀的派生自System.
13、Data.OleDb空间。本书讨论与OLE DB接口有关的类。即OleDbconnection、OleDbDataAdapter、OleDbCommand、OleDbReader和DataSet。在使用中，如果要引用OleDb前缀的类，必须导入System.Data.OleDb名称空间。语法如下：Imports System.Data.OleDb 3OLE DB接口 本例中向导建立数据库连接，实际上生成了一些代码，我们来看看。 以下是app.config中部分代码（注意加粗且倾斜代码）。 /数据库类型 以下是formload中代码（注意加粗且倾斜代码）。 Private Sub frm_bro
14、w_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TODO: 这行代码将数据加载到表“Address_bookDataSet.address”中，读者可以根据需要移动或移除它。 Me.AddressTableAdapter.Fill(Me.Address_bookDataSet.address) /连接库中哪个表 End Sub 从上述代码，我们不难得出，本例中是采用OLE DB技术与数据库建立连接的。建立数据库连接和访问，采用向导方式并不能随时在程序中有效的对数据库进行
15、操作，所以我们应该学习编写代码方式访问数据库，即以SQL语言方式进行数据库连接、查询及修改等。我们将在下面的章节中详细讲解。103 为个人资料库建立密码1031 例10-4 设置数据库密码任务描述：为数据库address_book.mdb设置密码，并使用代码编程方式在DataGridView控件中显示数据库中内容。任务分析： 数据库中包含着大量的数据信息，有许多的数据是使用者并不希望公开的，如本例中的个人资料，是个人隐私。所以在使用数据库时，我们会为它设置密码，只有拥有密码的人才能查看数据库中的数据。任务实现：1 要设置数据库密码，必须以独占方式打开数据库。图10-15 以独占方式打开数据库a
16、ddress_book.mdb2 点击“工具”菜单中子菜单“安全”中的“设置数据库密码”，为数据库设置密码。图10-16选择“设置数据库”菜单3在“设置数据库密码”对话框中，设置密码为“123456”，点击“确定”按钮。图10-17 为address_book.mdb数据库设置密码4按例10-2设计界面，新建项目brow_address_1，加入DataGridView控件和返回控件。5例10-3中利用向导方式建立了与数据库的连接，在此例中，用代码方式访问数据库。在form_load事件中添加代码如下：（观察与例10-3中系统生成代码相似之处） Dim strConn As String 连接
17、数据库 OleDbConnectionstrConn = Provider = Microsoft.Jet.OLEDB.4.0;Data Source=address_book.mdb;jet oledb:database password=123456 /思考如果没有密码，编写数据库连接的代码应该如何书写 Dim objConn As New OleDb.OleDbConnection(strConn) objConn.Open() 打开表 OleDbDataAdapter Dim strSql = Select * From address Dim objAdap As New OleDb
18、.OleDbDataAdapter(strSql, objConn) objConn.Close() 关联到数据集 DataSetDim objDSet As New DataSet objAdap.Fill(objDSet, address) 关联到控件DataGridView1.DataSource = objDSet.Tables(address)6编译执行项目，数据库中内容正确显示在DataGridView1控件中。104 个人资料库的数据录入与修改1041 例10-5 录入/修改数据库记录任务描述：设计录入/修改程序，为数据库address_book.mdb中表address增加、修
19、改、删除个人资料数据记录。任务分析： 为了方便的对数据库进行操作，我们设计如图10-6的程序界面，并为其中的文本框控件和按钮控件绑定到address_book库中的表address中。任务实现： 1按图10-6设计程序界面，如下图10-18所示。图10-18 录入/修改个人资料界面 2为了在所有按钮中使用数据库连接，定义下列全局变量。 Dim mybind As BindingManagerBase Dim strConn As String = Provider = Microsoft.Jet.OLEDB.4.0;Data Source=address_book.mdb;jet oledb:
20、database password=123456 Dim objConn As New OleDb.OleDbConnection(strConn) Dim objAdap As New OleDb.OleDbDataAdapter() Dim objDSet As New DataSet 3为文本框绑定数据库中字段，将下面代码加入form_load中，代码如下： objConn.Open() Dim strSql = Select * From address objAdap.SelectCommand = New OleDb.OleDbCommand(strSql, objConn) ob
21、jConn.Close() objAdap.Fill(objDSet, address)tx_name.DataBindings.Add(New Binding(text, objDSet, address.姓名) tx_work.DataBindings.Add(New Binding(text, objDSet, address.工作单位) tx_birth.DataBindings.Add(New Binding(text, objDSet, address.出生日期) tx_h_phone.DataBindings.Add(New Binding(text, objDSet, addr
22、ess.家庭电话) tx_m_phone.DataBindings.Add(New Binding(text, objDSet, address.移动电话) tx_qq.DataBindings.Add(New Binding(text, objDSet, address.QQ) tx_email.DataBindings.Add(New Binding(text, objDSet, address.E-mail) 此时，编译执行，可显示数据库中address表中的第一条记录。 4为了在程序代码中均可用绑定，在form_load前增加声明。 Dim mybind As BindingManag
23、erBase 并在form_load代码最后增加以下代码。mybind = Me.BindingContext(objDSet, address) 5为按钮编写事件代码。（暂不考虑异常） （1）bn_first_click事件 mybind.Position = 0 （2）bn_last_click事件 mybind.Position -= 1 （3）bn_next_click事件 mybind.Position += 1 （4）bn_end_click事件 mybind.Position = mybind.count-1 （5）bn_add_click事件 If bn_add.Text =
24、增加 Then tx_name.Text = : tx_birth.Text = : tx_h_phone.Text = tx_m_phone.Text = : tx_email.Text = : tx_work.Text = : tx_qq.Text = bn_add.Text = 确认 Else objConn.Open() Dim strin As String = insert into address(姓名,出生日期,工作单位,家庭电话,移动电话,qq,email) values ( & tx_name.Text & , & tx_birth.Text & , & tx_work.T
25、ext & , & tx_h_phone.Text & , & tx_m_phone.Text & , & tx_qq.Text & , & tx_email.Text & ) 注释 ”& 变量名 &”是字符串中使用变量的值的格式 Dim objCmd As New OleDb.OleDbCommand(strin, objConn) objCmd.ExecuteNonQuery() objConn.Close() Dim strsql = select * from address objAdap.SelectCommand = New OleDb.OleDbCommand(strsql,
26、objConn) objDSet.Clear() objAdap.Fill(objDSet, address) bn_add.Text = 增加 mybind.Position = mybind.Count - 1 MsgBox(更新成功) End If （6）bn_modi_click事件 objConn.Open() Dim strmod As String = update address set 姓名= & tx_name.Text & ,出生日期= & tx_birth.Text & ,工作单位= & tx_work.Text & ,家庭电话= & tx_h_phone.Text &
27、 ,移动电话= & tx_m_phone.Text & ,qq= & tx_qq.Text & ,email= & tx_email.Text & where 姓名= & tx_name.Text & Dim objCmd As New OleDb.OleDbCommand(strmod, objConn) objCmd.ExecuteNonQuery() objConn.Close() MsgBox(更新成功！) （7）bn_del_click事件 objConn.Open() Dim strDel As String = Delect From address Where 姓名= & tx
28、_name.Text Dim objCmd As New OleDb.OleDbCommand(strDel, objConn) objCmd.ExecuteNonQuery() objConn.Close() objDSet.Tables(address).Rows(mybind.Position).Delete() objDSet.Tables(address).AcceptChanges() 6由上述程序，可以得出SQL访问数据库的方法。 （1）创建数据连接 Dim strConn As String = Provider = Microsoft.Jet.OLEDB.4.0;Data Source=数据库名;jet oledb:database password=密码 Dim objConn As New OleDb.OleDbConnection(strConn) （2）定义数据适配器对象 Dim objAdap As New OleDb.OleDbDataAdapter() （3）定义数据集对象 Dim objDSet As New DataSet （4）打开连接 objConn.Open() （5）定义并执行SQL命令 Dim strSql = Select * From address（SQL命令，如：select delete等） objAdap.Selec
