实验六：数据库程序设计.doc

实验六预习数据库程序设计一、预习准备：（必读：磨刀不误砍柴工）1. 数据库的执行机制基于VB2008的数据库程序设计，涉及到2个不同的软件环境，它们各自具有鲜明的特色，那么如何看待VB和Access的协同工作及其机制呢？用VB访问和操作Access数据库，涉及到2个问题，解决好了，数据库操作就变得很容易了。第1个问题：如何实现VB界面和Access数据库的连接；如何访问VBAccess即：第2个问题：如何实现VB程序向Access数据库发送命令并取得结果。SQLVB如何使用即：解决方案：VB通过一个叫做ADO.NET的对象实现如上目标。该对象包括如下4个子对象，分别为：数据库连接对象：OleDbConnection 解决第1个问题数据库命令对象：OleDbCommand解决第2个问题数据库数据集对象：DataSet数据库数据适配对象：OleDbDataAdapter该ADO.NET对象的数据库访问流程为：1. 创建DataGridView控件显示结果2. OleDbConnection连接数据库3. OleDbCommand对数据库发出SQL命令4. OleDbDataAdapter将获取数据填充到数据集DataSet5. 将数据集的数据显示到DataGridView控件中下面通过一个例子介绍，该代码为使用ADO.NET对象访问数据库的模板程序（注意：是模板哦，只需简单修改就可以胜任你的工作），同时左图是配套的数据库访问流程图。指定数据库的位置，实现VB向Access的连接Dim conn As New OleDbConnectionconn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=个人通讯录.mdb连接 命令对象装载SQL命令 数据适配器发送命令 取得数据集结果 显示 连接关闭 conn.Open()将SQL语句装载到ADO.NET对象中的命令对象中Dim cmd As New OleDbCommandcmd.Connection = conncmd.CommandText = select * from address_book“将命令发送给指定的数据库，Dim da As New OleDbDataAdapter（cmd）将所得结果存储在指定的数据集中Dim ds As New DataSetda.Fill(ds, “address_book)将数据集中的数据显示在数据视图控件中，结束。DataGridView1.DataSource = ds.Tables(address_book)conn.Close()上述模板程序从连接到结束，需要修改的地方用蓝色标出，其中唯一需要花脑筋研究的只有SQL语句那一行，因此到这里，大家认为数据库程序的修改量很大么？呵呵。所以VB访问数据库主要就在于程序流程和ADO.NET中4个对象含义的理解。2. SQL之Select语句的规则Select是专用于数据库的查询语言，其功能强大，可以胜任各种查询工作。在查询操作过程中，会存在模糊查询和精确匹配两种方式。（1）对于精确匹配，也就是严格意义上的相等，如：Select * From book where id = 6（2）对于模糊查询，只需要部分相等就可以（其应用见案例10.3）如：Select * From book where id Like %6%这里出现了SQL语言中通配符的概念%：表示任意一个或多个符号，%6%：表示包含6的符号_： 表示一个符号，_6_：表示符号长度为3，仅第二位为6的符号所以大家在使用查询语句时，根据情况选用相应的通配符进行表达。这个和Windows的搜索通配符非常相似，大家可以进行比对，只是符号不同而已。二、实验内容：要正确使用ADO.NET对象，请在代码窗口的最上方写上导入语句：Imports System.Data.OleDb，表示你使用的是OleDb通用数据库接口的程序。案例10.2和案例10.3，请配合“预习准备”中的流程图来理解，效果比较好。案例10.2（略）案例10.3：这里考察一下案例10.3中的SQL语言书上是这样写的：cmd.CommandText = “Slece * From tPest where Pname Like ?;”Dim para As New OleDbParameter(.)cmd.Parameters.Add(para)cmd.Parameters(“name”).Value = “%飞虱%”Dr = cmd.ExecuteReader()大家想一下，这部分代码写的过于繁琐，并没有完全体现ADO对象的功能和简洁性，根据第一部分“预习准备”的叙述，数据库程序是模板化的，我们只需要简单修改和SQL语句相关的代码就可以完成工作，所以这里同样也可以这样做。我们来看：cmd.CommandText = “Select * From tPest where Pname Like %飞虱%”用上面的语句替换案例10.2中的相