《第12章visualbasic数据库程序设计剖析》由会员分享，可在线阅读，更多相关《第12章visualbasic数据库程序设计剖析（94页珍藏版）》请在金锄头文库上搜索。
1、1,第12章 Visual Basic数据库程序设计,数据访问对象简介,12.1,使用ADO数据控件访问数据库,12.2,使用ADO对象模型访问数据库,12.3,学生信息管理系统（C/S版）,12.4,2,Visual Basic是美国微软公司推出的可视化编程工具，它提供了开发Microsoft Windows应用程序的最迅速、最简捷的方法，具有简单易学、灵活方便和易于扩充等特点。Visual Basic 6.0提供了功能强大的数据库访问功能，它在Visual Basic 5.0的基础上，引入了功能强大的ADO作为存取数据的新标准，使得用户可以更加方便、灵活地访问数据库，非常便于开发功能强大的
2、客户/服务器应用程序。,3,12.1 数据访问对象简介,在Viaual Basic 6.0中，需要使用数据访问对象对数据库进行访问，Viaual Basic 6.0可以使用的数据访问对象有三种: DAO（Data Access Object，数据访问对象） RDO（Remote Data Object，远程数据对象） ADO（ActiveX Data Object，ActiveX数据对象） ADO是DAO/RDO的后继产物，它扩展了DAO和RDO所使用的对象模型，包含较少的对象，更多的属性、事件和方法。通过ADO可以访问各种各样的数据源。,4,12.1 数据访问对象简介,访问数据源的途径:,5
3、,12.2 使用ADO数据控件访问数据库,使用ADO数据控件（ADODC）可以方便快捷地建立与数据源的连接，使程序员用最少的代码快速创建数据库应用程序。,6,12.2.1 ADO数据控件,1. ADO数据控件的添加 工程部件选择“Microsoft ADO Data Control 6.0(OLEDB)”选项,添加到工具箱,添加到窗体上,Move First,Move Previous,Move Last,Move Next,7,12.2.1 ADO数据控件,2. ADO数据控件的属性设置 首先可以在Adodc控件的“属性页”对话框中设置其连接属性，然后在属性窗口直接设置其他属性。 打开属性页
4、：右击Adodc控件，在快捷菜单中选择“ADODC属性”，或者单击属性窗口的“自定义”右侧的属性按钮“.” 打开。,8,12.2.1 ADO数据控件,设置连接字符串(ConnectionString属性),Connection String,Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=学生管理;Data Source=KY,9,12.2.1 ADO数据控件,选择提供者:,Microsoft OLE DB Provider for SQL Server,10,12.2.1 ADO数据控件,输
5、入连接信息:,11,12.2.1 ADO数据控件,输入身份验证信息,UserName,Password,12,12.2.1 ADO数据控件,选择记录源,13,12.2.1 ADO数据控件,正确设置ADO数据控件的记录源之后，则可以使用控件的Recordset属性实现对所产生的记录集的各种操作。 Recordset属性：ADO数据控件的Recordset属性实际上是一个对象，即Recordset对象（也称记录集对象），因此有其属性和方法。Recordset对象包含了从数据源获得的数据（记录）集，使用它可以在数据库中检索、增加、修改和删除数据。,14,12.2.2 数据绑定控件,绑定控件: 用于显
6、示由Adodc控件控件所确定的记录集中的数据。 绑定控件、 Adodc控件和数据库之间的关系如下:,要使数据绑定控件能够显示记录集中的数据，一般要设置以下属性: DataSource属性：返回或设置一个数据源，通过该数据源，数据绑定控件被绑定到一个数据库。 DataField属性：返回或设置数据绑定控件将被绑定到的字段名。,15,12.2.2 数据绑定控件,数据绑定控件举例： 1. TextBox控件 需要设置DataSource属性、DataField属性 2. DataGrid控件 添加: 工程部件 Microsoft DataGrid Control 6.0(OLEDB) 需要设置Dat
7、aSource属性 3. DataList 和DataCombo控件 添加: 工程部件 Microsoft DataList Control 6.0(OLEDB) 需要设置RowSource属性、ListFields属性 当前选中项的内容保存在该控件的Text属性中,16,12.2.2 数据绑定控件,【例12-1】设“学生管理”数据库中有如下图所示的学生基本信息表。用文本框显示“学生基本信息”表中的班级、学号、姓名、性别。使用ADO数据控件上的箭头按钮实现记录的向前、向后移动。,17,12.2.2 数据绑定控件,设计步骤： (1) 向窗体上添加4个TextBox控件Text1、Text2、Te
8、xt3、Text4，将它们的Text属性清空，再添加4个标签控件，分别将其Caption属性设置为“班级”、“学号”、“姓名”、“性别” (2) 选择“工程部件”菜单命令，打开“部件”对话框，选择“Microsoft ADO Data Control 6.0(OLEDB)”向工具箱中添加一个ADO数据控件，然后将其添加到窗体上。 (3) 继续按表12-1(见P 274)设置各控件的属性。,18,12.2.2 数据绑定控件,调整好界面布局，如下图a所示，运行时，通过单击ADO数据控件上的箭头按钮即可实现记录的向前、向后移动，如下图b所示。,图a,图b,19,12.2.2 数据绑定控件,【例12-
9、2】设“学生管理”数据库中还包含了如下的“课程”表和“学生选课”表，使用表格控件浏览数据库中的数据。在表格中显示学生所在系、班级、学号、姓名、课程名称、成绩。,课 程,学生选课,20,12.2.2 数据绑定控件,设计步骤： (1) 因为要显示的信息涉及“学生基本信息”表，“课程”表和“学生选课”表，所以需要使用一个查询语句。设计查询语句如下：,Select 学生基本信息.所在系 AS 系名称, 学生基本信息.班级,学生基本信息.学号, 学生基本信息.姓名,课程.课程名称, 学生选课.成绩 From 学生基本信息,课程,学生选课 Where 学生基本信息.学号=学生选课.学号 And 学生选课.
10、课程号=课程.课程号,21,12.2.2 数据绑定控件,(2) 添加一个ADO数据控件 工程部件选择“Microsoft ADO Data Control 6.0(OLEDB),并将其添加到窗体上，使用其默认名称Adodc1。 (3) 添加一个DataGrid控件 工程部件选择“Microsoft DataGrid Control 6.0(OLEDB)” ，并将其添加到窗体上，使用其默认名称DataGrid1。 (4) 在ADO数据控件的属性页上设置以下属性：,22,12.2.2 数据绑定控件,ConnectionString：Provider=SQLOLEDB.1;Integrated Se
11、curity=SSPI;Persist Security Info=False;Initial Catalog=学生管理;Data Source=KY CommandType：1 adCmdText CommandText：设置为步骤（1）中的查询语句。 (5) 设置DataGrid1控件的以下属性： DataSource：ADODC1,23,12.2.2 数据绑定控件,运行工程，可以看到如下图所示的查询结果。,24,12.3 使用ADO对象模型访问数据库,ADO对象模型定义了一个可编程的分层对象集合，可以通过这些对象来实现与数据库的连接并对数据执行各种各样的操作，ADO对象模型可以用下图表示
12、：,25,12.3 使用ADO对象模型访问数据库,Connection对象:用来建立和数据库的连接； Error集合:包含了跟连接有关的所有错误信息； Command对象:用来执行命令，如查询或更新等； Parameter对象:用来为Command对象指定执行参数； Recordset对象:用来查看和操作查询结果； Field对象:包含Recordset中的每个字段的信息。,26,12.3 使用ADO对象模型访问数据库,使用ADO对象步骤： (1) 首先用以下方法向当前工程添加ADO对象库: 工程引用选择“Microsoft ActiveX Data Object 2.x Library” “
13、确定” (2) 接着在代码中建立ADO对象： 例: 创建一个Connection对象，名称为mycon Dim mycon As New ADODB.Connection 例:创建一个Command对象，名称为mycom Dim mycom As New ADODB.Command 例: 创建一个Recordset对象，名称为myrs Dim myrs As New ADODB.Recordset,27,12.3 使用ADO对象模型访问数据库,ADO对象的属性：内置属性和动态属性。 内置属性: 是在ADO中实现并立即可用于任何新创建的对象的属性，使用“对象名.属性名”语法直接访问这些内置属性。
14、例: Mycon.ConnectionString = “Driver=SQL Server;Server=ky;UID=sa;pwd=sa;Database=学生管理“ 动态属性: 由现行的数据提供者定义，并出现在相应的ADO对象的Properties集合中。Properties集合包含了特定对象实例的所有Property对象。访问动态属性格式为： 对象名.Properties(索引) 或 对象名.Properties(“属性名“),28,12.3 使用ADO对象模型访问数据库,ADO对象与Properties集合的关系如下图:,使用ADO对象访问数据库时，首先要用Connection对象建
15、立与数据源的连接，然后用Command对象执行命令，或用Recordset对象来查询或操纵数据。,29,12.3.1 Connection对象,1. 连接数据库 Connection对象用于建立与数据库的连接。可以通过Connection对象的ConnectionString（连接字符串）属性定义数据提供者和数据库的名称等。通过Connection对象的Open方法按连接字符串指定的属性打开与数据库的连接。,30,12.3.1 Connection对象,【例12-3】使用Connection对象的ConnectionString和Open方法实现与SQL Server服务器KY上的数据库“学生
16、管理”的连接。设使用SQL Server的用户名（sa）和密码（sa）实现连接，代码如下： 创建一个Connection对象，名称为mycon Dim Mycon As New ADODB.Connection 定义mycon对象的连接字符串属性 Mycon.ConnectionString = “Driver=SQL Server;Server=ky;UID=sa;pwd=sa;Database=学生管理“ 按连接字符串指定的属性建立与数据库的连接 Mycon.Open,31,12.3.1 Connection对象,如果使用Windows集成安全设置，则实现连接的代码如下： Dim Mycon As New ADODB.Connection Mycon.ConnectionString = “Driver=SQL Server;Server=ky;integrated_security=SSPI ; Database=学生管理“ Mycon.Open,32,12.3.1 C
