VBNET程序设计实用教程11ppt课件

1、VB.NET程序设计实用教程,第11章 简单数据库编程,出版社: 清华大学出版社; 第1版 (2008年10月1日) 丛书名: 高职高专“工作过程导向”新理念教材计算机系列 平装: 342页 正文语种: 中文 开本: 16 ISBN: 9787302179306,网络资源：ftp:/,本章主要内容,显示非本科学历的教师信息,显示高级职称的教师信息功能,显示出生日期在1970年后的教师信息,教师信息浏览程序,本章任务,本章主要内容,ADO .NET的基本概念,数据库的基本概念,NET Framework数据提供程序,ADO .NET对象,本章要点,ADO .NET数据控件,11.1 VB.NET

2、数据库编程概述,11.1.1 数据库的基本概念 数据库（Database DB）是存放在计算机的外存储器中的相关数据的集合。数据库系统是指实际可运行的，按照数据库方式存储、维护和向应用系统提供数据或信息支持的计算机系统。一个完整的数据库系统由数据库、数据库管理系统、数据库应用程序、计算机软件和硬件系统以及数据库管理员（Database Management Administrator DBA）组成。 数据库中的数据是按照一定的数据模型组织的，数据模型是把现实世界转换为计算机能够处理的数据世界的桥梁。常用的数据模型有四种，分别是层次模型、网状模型、关系模型和面向对象模型，目前最常用的数据模型是关

3、系模型。 在关系模型中，数据被组织成若干张二维表的结构，每一张二维表称为一个关系或表。表中的一行称为一个元组，在计算机中存放称为记录。表中的一列称为属性，在计算机中存放就是字段。如图11-1所示。分布式计算。,11.1 VB.NET数据库编程概述,11.1 VB.NET数据库编程概述,在数据库中，一个关系就是一张表，一个关系数据库通常由相关的多张表组成。如教务系统要管理教师的授课信息，可建立一个数据库，该数据库可由两张表组成：一个表用来存放教师的基本数据，如教师号、姓名、年龄、职称、专业等信息；另一张表用来存放该教师的授课信息，如教师号、所授课程号、授课班级、授课质量等信息。 在关系数据库管理

4、系统中，要建立一个数据库通常要经过以下几步：一是建立数据库，用来容纳各个表及其它对象；二是建立表的结构，即建立表的各个字段的字段名、字段类型、字段宽度等；三是向表中录入实际的数据。目前关系数据库系统有很多，最为常用的有Microsoft Access （适合开发单机数据库）和SQL Server（适合开发网络数据库），本章使用的数据库为Microsoft Access数据库，建立数据库的方法本章不再讲述，请读者参阅相关的参考书。,11.1.2 ADO .NET概述,ADO .NET是微软最新的数据访问组件，可用于对Microsoft SQL Server、Oracle、Access等流行的数据

5、库。ADO .NET包含两大核心控件：.NET Framework数据提供程序和DataSet。 1.NET Framework数据提供程序 .NET Framework数据提供程序用于连接到数据库、执行命令和检索结果，常用的有2个，分别是：SQL Server .NET Framework数据提供程序、OLEDB .NET Framework数据提供程序。 （1）SQL Server .NET数据提供程序,11.1.2 ADO .NET概述,ADO .NET是微软最新的数据访问组件，可用于对Microsoft SQL Server、Oracle、Access等流行的数据库。ADO .NET包

6、含两大核心控件：.NET Framework数据提供程序和DataSet。 1.NET Framework数据提供程序 .NET Framework数据提供程序用于连接到数据库、执行命令和检索结果，常用的有2个，分别是：SQL Server .NET Framework数据提供程序、OLEDB .NET Framework数据提供程序。 （1）SQL Server .NET数据提供程序,11.1.2 ADO .NET概述,SQLOLEDB用于 SQL Server 的 Microsoft OLE DB 提供程序MSDAORA用于 Oracle 的Microsoft OLE DB 提供程序Mic

7、rosoft.Jet.OLEDB.4.0用于 Microsoft Jet 的 OLE DB 提供程序OLE DB .NET数据提供程序类位于System.Data.OleDb命名空间。 （3）.NET数据提供程序模型的核心对象 .NET数据提供程序提供了四个核心对象，分别是Connection、Command、DataReader和DataAdapter 对象。这些对象及其功能如表11-2所示。 表11-2 .NET 数据提供程序提供了核心对象 对象功能Connection建立与特定数据源的连接。Command对数据源执行命令。DataReader从数据源中读取只向前的且只读的数据流，是一个简

8、易的数据集DataAdapter用数据源填充 DataSet 并解析更新。,2DataSet对象,DataSet对象又称数据集对象是ADO .NET的核心对象，用来表示包括相关表、约束和表间关系在内的整个数据集，可看作是内存中的数据源。DataSet的对象模型如图11-2所示,图11-2 DataSet的对象模型,11.1.2 ADO .NET概述,DataSet对象模型中各主要对象的关系如下：DataTable对象表示数据表，在DataTable对象中又包含了字段（列）和记录（行）。在DataSet中可以包含一个或多个DataTable对象，多个DataTable又组成了DataTableC

9、ollection集合对象。多个表之间可能存在一定的关系，表间的关系用DataRelation对象来表示，该对象通常表示表间的主外键关系。多个表之间可能存在多个关系，因此DataSet对象可以包含一个或多个DataRelation对象，多个DataRelation对象又组成了DataRelationCollection集合对象。,11.1.3 SQL语言,SQL（Structured Query Language）是一种标准的关系数据库语言，利用它可以实现数据查询、插入记录、删除记录、更新记录等操作。下面仅介绍SQL的最基本语句的最基本格式。 1数据查询 可使用SQL的SELECT语句实现数据

10、查询，该语句最常用格式和功能如下。 格式：Select 字段名列表 From 数据表名 Where 条件 功能：从由“数据表名”指定的表中查询满足“条件”的记录，查询结果中只包含由“字段名列表”列出的字段信息。 说明：“字段名列表”是若干个字段的列表，字段名之间用逗号分开。如果省略“Where 条件”则表示所有记录。 需注意的是：Select语句的子句非常多，实现的功能也非常强大，要了解该语句的其它功能，读者可参阅介绍SQL的相关书籍。 例如，要列出学生表中，所有性别为男的学生的姓名和籍贯，可使用下列语句： Select 姓名,籍贯 From 学生 Where 性别=男,11.1.3 SQL语

11、言,2插入记录 插入记录可使用SQL语言的INSERT语句向数据表中插入记录，语句格式和功能如下。 格式：INSERT INTO 表名(字段名1 , 字段名2, ) VALUES (表达式1 ,表达式2,) 功能：向“表名”指定的表中插入一条记录，VALUES后面括号中的数据就是新记录的相应字段的数据。即“表达式1”的值作为“字段名1”中的数据，“表达式2”作为“字段名2”中的数据。如果要给记录的所有字段插入值，表名后面的字段名可以缺省，但插入数据的类型必须与表中相应字段的数据类型完全吻合；若只需要插入表中某些字段的数据，就需要列出要插入数据的字段名，并给出相应的值。 例如，有下列语句： IN

12、SERT INTO 学生(学号,姓名,籍贯) VALUES(05010001,黄大军,江苏) 其功能是向“学生”表中插入一条记录，并给学号、姓名和籍贯字段赋值。,11.1.3 SQL语言,3修改记录 可使用SQL语言的UPDATE语句修改表中的数据，该语句的格式和功能如下。 格式：UPDATE 表名 SET 字段名1 = 表达式1,字段名2=表达式2 WHERE 条件 功能：对由“表名”指定的表中满足WHERE后面的“条件”的记录（若无WHERE子句将修改所有记录）进行修改，修改方法是：以“表达式1”的值替换“字段名1”中的值，以“表达式2”的值替换“字段名2”中的值，以此类推。 例如，有以下

13、语句： UPDATE 学生SET 英语=英语+5 WHERE 年级=3 其作用是将学生表中3年级的学生的英语成绩增加5分。,11.1.3 SQL语言,4删除记录 可以使用SQL的DELETE命令来删除表中的记录，该命令的格式和功能如下。 格式：DELETE FROM 表名 WHERE 条件 功能：从由“表名”指定的表中删除满足给定“条件”的记录，当缺省WHERE子句时，表示删除表中的全部记录。 例如，有以下语句： DELETE FROM 学生WHERE 总成绩200 其作用是从学生表中删除所有总成绩小于200的学生。,11.2 任务11-1：显示高级职称的教师信息,任务11-1描述： 在应用程

14、序启动目录下，有一个名为teaching.mdb的Access数据库，该数据库中有一个名为Teacher的表，里面存放着教师的基本基本信息。请编写程序从该表中读出所有高级职称的教师信息，并显示出来。程序的运行界面如图11-3所示。程序运行时单击“显示”按钮，将会把所有高级职称的教师信息显示在窗体上的文本框中。,Connection、Command、DataReder等对象的使用,11.2 任务11-1：显示高级职称的教师信息,图11-3程序运行界面,11.2 任务11-1：显示高级职称的教师信息,任务分析： 使用OleDbConnection对象与数据库建立连接，连接字符串为“Provider

15、=Microsoft.Jet.OLEDB.4.0;Data Source=Teaching.MDB”使用OleDbCommand对象执行Select命令，执行的SQL命令为“Select * From Teacher where 职称 Like %教授”。在程序中通过调用OleDbCommand对象的ExecuteReader生成OleDbDataReader数据集，然后通过一个循环使用OleDbDataReader的Get方法把数据集中的每条记录的各个列的数据读出来并连接在文件框控件的Text属性中即可实现需要的功能。 任务实现： 1启动VB.NET，新建一个项目，项目类型为“Windows

16、应用程序”，项目的存放位置为“D:VBTASKCH11”，项目名为“Task11_1”。 2把Form1窗体的Text属性值设置为“显示高级职称的教师信息”，把它的Name属性值设置为“frmTeacherRead”。单击“解决方案资源管理器”中的“Form1.VB”窗体，然后在,11.2 任务11-1：显示高级职称的教师信息,属性窗口中把它文件名属性设置为“frmTeacherRead.vb”。然后执行【项目】【Task11_1属性】命令，在出现的“Task11_1属性页”对话框中把“启动对象”设置为“frmTeacherRead”。 3对照程序设计界面，为窗体添加控件并设置控件的属性。控件

17、的属性设置如表11-3所示。 表11-3 任务11-1控件属性设置及其功能 控件名属性名属性值说明TextBox1TextMultiLineReadOnlyTrueTrue显示读取的教师信息Button1Text显示单击它将显示出所有高级职称教师信息Button2Text退出单击它将退出应用程序,4定义一个模块级连接对象，代码如下。 Dim ObjConn As OleDbConnection 定义连接对象 5编写窗体的Load事件过程代码，如下。 Private Sub frmTeacherRead_Load(ByVal sender As System.Object, ByVal e As

18、 System.EventArgs) Handles MyBase.Load Dim ConnString As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Teaching.MDB 连接字符串 ObjConn = New OleDbConnection(ConnString) 创建连接对象 Try ObjConn.Open() 打开连接 MessageBox.Show(已正确建立连接, 连接正确对话框) 连接正确对话框 Catch OleDbe As OleDbException MessageBox.Show(OleDbe.M

19、essage, 连接失败对话框) 连接失败对话框 Exit Sub End Try End Sub,11.2 任务11-1：显示高级职称的教师信息,11.2 任务11-1：显示高级职称的教师信息,说明： （1）上述过程代码的作用是使用Connection对象建立到Access数据库Teaching.MDB的连接。在对数据源进行操作之前，首先需建立到数据源的连接，可使用Connection对象来显式地创建连接对象。另外由于ADO .NET中各个对象之间不存在相互依赖关系，绝大多数对象均可独立创建，创建其它对象时将会隐式地创建一个连接对象。 根据数据源的不同，连接对象也有多种，本章只讨论Sq1Co

20、nnection对象和OleDbConnection对象。连接对象的最重要的属性是ConnectionString，该属性用来设置连接字符串。 （2）常用数据源的连接字符串设置方法如下。 要连接SQL Server 7.0以上版本的数据库时，需使用Sq1Connection对象，该对象的典型连接字符串有以下几种： Initial Catalog=Northwind;Data Source= mySQLServer;Integrated Security=SSPI;,11.2 任务11-1：显示高级职称的教师信息,或： user id=sa;password=aU98rrx2;initial c

21、atalog=northwind;data source=mySQLServer;Connect Timeout=30 其中mySQLServer是数据库服务器名，northwind是数据库名。 要连接SQL Server 7.0以前版本的数据库或连接OLE DB数据源时，需使用OleDbConnection对象，该对象的典型连接字符串有以下几种： 连接SQL Server 7.0以前版本的数据库的连接字符串设置如下。 Provider=SQLOLEDB.1;User ID=sa;Password=tah980808; Initial Catalog=CollegeMIS; Data Sour

22、ce=TAHSJ 其中CollegeMIS为要连接的数据库名，TAHSJ是数据库服务器名。 连接到Access数据库的连接字符串一般形式如下： Provider=Microsoft.Jet.oledb.4.0;Data Source= Password= 其中“Teaching.MDB”为数据库名。,11.2 任务11-1：显示高级职称的教师信息,（3）使用Connection对象连接到数据库的一般步骤如下： 创建Connection对象； 把连接字符串赋值给Connection对象的ConnectionString属性； 调用Connection对象的Open方法以打开连接； 连接使用完毕后

23、应调用Connection对象的Close方法以关闭连接。 6编写Button1的Click事件过程代码，如下。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 设置SQL命令字符串,11.2 任务11-1：显示高级职称的教师信息,2 Dim SQLStr As String = Select * From Teacher where 职称 Like %教授 该字符串变量用来存放把从数据集中读取的数据转换成的字符串 Dim st

24、rRecord As String = Dim i As Integer 循环变量 Dim ObjCom As New OleDbCommand 创建Command对象 ObjCom.Connection = ObjConn 通过ObjConn连接对象操作数据库 ObjCom.CommandType = CommandType.Text 设置命令类型 ObjCom.CommandText = SQLStr 设置要执行的命令 执行SELECT命令得到要求的数据集 Dim objDataReader As OleDbDataReader = ObjCom.ExecuteReader() Do Wh

25、ile (objDataReader.Read() 该循环依次读取数据集中的每一条记录的数据 strRecord = ,11.2 任务11-1：显示高级职称的教师信息,3 该循环读取当前记录的每一个字段的值并连接到strRecord变量中 For i = 0 To objDataReader.FieldCount - 1 strRecord = strRecord Data Source=Teaching.MDB 设置连接字符串 End Sub,11.3 任务11-2：显示非本科学历的教师信息OleDbDataAdapter对象和DataSet对象的使用,思考与实训： 1什么是ADO.NET数

26、据控件？它们有什么作用？ 2如何设置OleDbConnection控件的ConnectionString属性值？ 3要使用OleDbCommand控件执行一条SQL语句的SELECT语句，应怎样设置它的属性？ 4如何使用OleDbDataAdapter控件获取OleDbCommand控件中命令执行得到的数据并填充DataSet对象？ 5编写程序，显示出Teaching.MDB数据库中Teaching表中所有男讲师的信息。要求使用ADO.NET数据控件和DataGrid控件,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,任务11-4描述： 编写一个教师信息浏览程序，程序的设计界面如图1

27、1-17所示，程序的运行界面如图11-18所示。程序运行时，单击“首记录”按钮，将显示第一条教师记录的信息，单击“前移”按钮，将显示前一条教师记录的信息，单击“后移”按钮，将显示后一条教师记录的信息，单击“末记录”按钮，将显示最后一条教师记录的信息。教师信息存放在Teaching.MDB数据库的Teacher表中。要求采用数据绑定控件来实现。,图11-17 程序设计界面,图11-18 程序运行界面,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,任务分析： 首先应形成包含Teaching表中全部内容的数据集，然后使界面上的各控件与数据集中的相应字段相绑定，通过移动当前记录来实现教师信息

28、的浏览。控件与字段相的绑定，可通过编程调用控件的DataBindings.Add方法来实现。为使绑定在数据集上的各绑定控件同步，需定义一个BindingManagerBase对象（假设名为Navigator），并把它与相应的数据集联系起来，通过修改它的Position属性值来实现记录的移动功能。,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,任务实现： 1启动VB.NET，新建一个项目，项目类型为“Windows应用程序”，项目的存放位置为“D:VBTASKCH11”，项目名为“Task11_4”。 2把Form1窗体的Text属性值设置为“教师信息浏览窗口”，把它的Name属性值设

29、置为“frmTeacherBrowser”。单击“解决方案资源管理器”中的“Form1.VB”窗体，然后在属性窗口中把它文件名属性设置为“frmTeacherBrowser.vb”。然后执行【项目】【Task11_4属性】命令，在出现的“Task11_4属性页”对话框中把“启动对象”设置为“frmTeacherBrowser”。,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,3对照程序设计界面，为窗体添加控件并设置控件的属性。控件的属性设置如表11-4所示。,表11-4 任务11-4控件属性设置及其功能,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,4定义模块级对象变量，代

30、码如下。 Dim ObjConn As OleDbConnection 定义连接对象 Dim Navigator As BindingManagerBase,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,5编写窗体的Load事件过程代码，如下。 Private Sub frmTeacherBrowser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 连接字符串 Dim ConnString As String=Provider=Microsoft.Jet.OLE

31、DB.4.0;Data Source=Teaching.MDB ObjConn = New OleDbConnection(ConnString) 创建连接对象 Try ObjConn.Open() 打开连接 MessageBox.Show(已正确建立连接, 连接正确对话框) 连接正确对话框 Catch OleDbe As OleDbException MessageBox.Show(OleDbe.Message, 连接失败对话框) 连接失败对话框 Exit Sub End Try Dim i, j As Integer,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,Dim SQLS

32、tr As String = Select * From Teacher 提取出教师表中的所有信息 Dim objCom As New OleDbCommand 创建Command对象 objCom.Connection = ObjConn 通过objConn连接对象操作数据库 objCom.CommandType = CommandType.Text 设置命令类型 objCom.CommandText = SQLStr 设置要执行的命令 执行SELECT命令得到要求的数据集 Dim objDataAdapter As New OleDbDataAdapter 生成OleDbDataAdapt

33、er对象 设置objDataAdapter对象的SelectCommand属性值为创建的OleDbCommand对象名 objDataAdapter.SelectCommand = objCom Dim objDs As New DataSet 产生新的数据集 objDataAdapter.Fill(objDs, Teacher) 填充数据集 以下是把TextBox控件与数据集中的相应字段绑定在一起 TextBox1.DataBindings.Add(Text, objDs, Teacher.教师编号) TextBox2.DataBindings.Add(Text, objDs, Teache

34、r.姓名) ComboBox1.DataBindings.Add(Text, objDs, Teacher.性别) TextBox3.DataBindings.Add(Text, objDs, Teacher.出生日期) TextBox4.DataBindings.Add(Text, objDs, Teacher.职称),11.5 任务11-4：教师信息浏览程序数据绑定与浏览,TextBox5.DataBindings.Add(Text, objDs, Teacher.学历) TextBox6.DataBindings.Add(Text, objDs, Teacher.单位) TextBox7

35、.DataBindings.Add(Text, objDs, Teacher.工资) CheckBox1.DataBindings.Add(Checked, objDs, Teacher.婚否) Navigator = Me.BindingContext(objDs, Teacher) 用Navigator绑定Teacher表 End Sub,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,说明： （1）代码中有多条类似于“TextBox1.DataBindings.Add(Text, objDs, Teacher.教师编号)”的语句，其作用是把相应数据集中的相应字段与控件的某一属性相

36、绑定，然后就可以通过控件的该属性修改或显示字段的值了。,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,（2）数据绑定的含义是使控件的属性和数据源捆绑在一起，通过控件来显示或修改数据。一般情况下可控件的显示属性（如TextBox控件的Text属性）与数据源绑定在一起，但也可以把控件的其它属性与数据源进行绑定。 数据绑定有两种类型：简单数据绑定和复杂数据绑定。简单数据绑定通常是将控件绑定到数据表的某一字段上，支持简单绑定的控件主要有TextBox控件、Label控件等只显示单个值的控件。复杂数据绑定指将一个控件绑定到多个数据元素的能力，通常是绑定到数据库中的多条记录。支持复杂绑定的控件有

37、DataGrid控件、ListBox控件、ComboBox控件等可显示多个值的控件。,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,3可以在设计时通过属性窗口把简单数据绑定控件绑定到数据源，方法是首先采用类似于任务11-3所示的步骤产生DataSet控件对象，然后应把数据绑定控件加载到窗体上，接着展开控件的DataBindings属性，如图11-19所示。如果要把Tag属性、Text属性绑定到数据集中的某个字段，只需直接选择即可，如图11-19所示。如果要把其它属性绑定到数据集的某个字段，可选中DataBindings下面的“(Advanced)”，然后单击其后的“”按钮，将会出现

38、“高级数据绑定”对话框，在该对话框中可以把控件可绑定的任意属性和数据集的某个字段绑定在一起。,图11-19 DataBindings属性设置,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,（4）也可在程序运行时通过运行程序实现数据绑定控件与数据集或数据集中的字段绑定。它是通过设置控件的DataBindings属性来实现。其格式与功能如下。 格式：控件名.DataBindings.Add(属性名,数据集名,字段名) 功能：把“控件名”指定的控件的由“属性名”指定的属性和某个字段绑定在一起。该字段由“字段名”指定，且位于“数据集名”指定的数据集中。 例如，如果要使用TextBox1控件与

39、Teacher表的教师编号字段相绑定，可使用如下语句（objDs是记录集对象）： TextBox1.DataBindings.Add(Text,objDs,Teacher.教师编号),11.5 任务11-4：教师信息浏览程序数据绑定与浏览,（5）对于简单绑定控件，还存在着记录导航的问题，即要实现“上一条记录”、“下一条记录”、“首记录”、“尾记录”功能。在VB .NET中，可通过BindingManagerBase对象来同步绑定到相同数据源的绑定控件，该对象还提供了记录指针的功能，利用它可以完成记录导航的功能。在实现记录导航之前应把数据集的某个数据表与该对象联系在一起，例如要使名为Naviga

40、tor的BindingManagerBase对象与objDs数据集中的Teacher表联系在一起，可使用如下语句： Dim Navigator As BindingManagerBase Navigator = Me.BindingContext(objDs, Teacher) 然后就可以使用BindingManagerBase对象的Position属性（数据集当前记录指针，从0开始）和Count属性（数据集中的记录总数）来实现数据导航功能了。,11.5 任务11-4：教师信息浏览程序数据绑定与浏览,6编写Button1Button4四个按钮的Click事件过程代码，如下。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Navigator.Position = 0 移到第一条记录 End Sub Private Sub Button2_Click(ByVal sender