数据库原理与应用经典讲义.doc

《数据库原理与应用经典讲义.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第11章SQLServer2000数据库开发实例在前面的章节，系统介绍了数据库原理，关系型数据库的基础理论，了解了大型关系型数据库SQLServer2000的基本操作方法，学完前几章，用户应该可以胜任SQLServer2000数据库平台的日常管理工作，本章将介绍当今最流行的数据库软件开发模式：VB+SQLServer的前后台工作方式，本章将通过几个实例帮助用户初步掌握用VisualBasic6.0操作SQLServer数据库的基本方法，帮助用户掌握数据库应用程序的简单开发。11.1SQLServer数据库的快速连接11.1.1创建数据库首先创建一个“学生信息库”数据库

2、，并创建一个“学生基本情况”表，操作步骤如下：(1)启动SQLServer2000企业管理器，如图11.1所示。(2)创建一个“学生信息库”数据库，并设置其属性，如图11.2和图11.3所示。创建好的数据库如图11.4所示。图11.1SQLServer2000企业管理器图11.2新建数据库(3)创建一个学生成绩表，如表11.1所示。在“学生信息库”图标上右击，在弹出菜单上选择【新建】

3、【表】命令，按表11.1所示创建“学生成绩表”。如图11.5和图11.6所示。图11.3设置数据库名称图11.4数据库组中的新建数据库表11.1学生成绩表学号姓名计算机引论高级语言数据结

4、构数据库赵一52667080钱二69744355孙三77829086李四73605571周五80889092图11.5新建表图11.6创建学生成绩表11.1.2数据引擎与数据绑定控件要对SQLServer2000数据库中表的数据进行操作，需要一个中间件——数据引擎。利用它，可以对数据库进行连接、添加、修改、删除。利用VB6.0提供的ADO控件可以很方便达到此目的。图11.7ADODC与DataGrid控件单击VB6.0的工程菜单中的“部件”，选中MicrosoftActivexDataObjects2.5Library数据访问库，然后在控件列表中就会出现Adodc控件

5、，选中MicrosoftDataGridControl6.0(OLEDB)，然后在控件列表中就会出DataGrid数据绑定控件，可以实现对数据库的访问了。其中在设置Adode控件的Connection属性时，会出现一个连接向导，依照向导的指示可以完成到SQLServer数据库的连接。ADODC控件像一个抽水机一样可以把数据库中的数据抽出来，我们还需要一个容器，可以把这些数据按SQLServer数据库中的表的数据格式装下来，并显示出来。此外，我们希望表中的数据如果经过了添加、修改、删除，其结果可以同步的在该容器中反应出来。具有这样功能的控件被称为“数据绑定控件”，在VB

6、6.0中提供了DataGrid数据绑定控件，如图11.7所示。11.1.3连接SQLServer2000数据库(1)在窗体上设置一个ADODC控件，并对其属性作设置。(2)在ADODC控件上右击，在弹出的快捷菜单上选择ADODC命令，然后在【属性页】对话框的【通用】选项卡中选择【使用连接字符串】单选按钮，再单击【生成】按钮。图11.8设置ADODC属性(3)弹出【数据链接属性】对话框，设置OLEDB提供者为MicrosoftOLEDBProviderforSQLServer，再单击【下一步】按钮。图11.9设置数据链接属性(4)设置服务器名与数据库，如图11.10所示

7、，单击【测试连接】按钮，将弹出提示【测试连接成功】的提示对话框。图11.10设定连接服务器与数据库图11.11数据链接测试(5)在ADODC控件的【属性页】对话框打开【记录源】选项卡，在【命令类型】下拉列表中选择2-AdCmdTable，再从【表或存储过程名称】下拉列表中选择【学生成绩表】。(6)在VB6.0的窗体上布置DataGrid控件，并将它的DataSource属性设置为Adodc1，程序设计完毕。(7)运行该程序，可以看到指定的SQLServer服务器上的数据库中的学生成绩表中的数据已经在DataGrid中显示出来了。图11.12设置数据源图11.13显示【

8、学生成绩表】中的数据11.2数据库记录的添加、删除和修改11.2.1界面设计按图11.14所示设计程序界面，如11.1节设置好ADODC控件的数据属性，并对各成绩显示文本框，作数据绑定，将其DataSource属性设为Adodc1、DateField属性分别设置为学生成绩表中的各个字段。图11.14【学生成绩管理系统】程序界面11.2.2编写事件代码将Adodc1控件的visible属性改为False，开始为各个按钮编写事件代码。PrivateSubCommand1_Click()'移动记录指针到上一条IfAdodc1.Recordset.BOF<>