Visual Basic 2005编程基础与项目实践_14.pptVIP

本章介绍了如何在Visual Basic 2005环境下使用ADO.NET和SQL Server 2000设计一个工资管理系统。重点介绍了如何使用函数建立Visual Basic 2005应用程序与SQL Server 2000数据库的连接。 本章学习目标 （1）熟练掌握使用SQL Server 2000创建数据库和数据表的方法和步骤。 （2）学会模块的添加和使用。 （3）熟练掌握使用代码编写SQL数据库连接函数、数据读取函数、数据更新函数的方法。 （4）掌握使用Visual Basic 2005和SQL Server 2000开发数据库应用程序的方法。 数据库设计 如果仅将“员工编号”设为“工资表”的主键，则每个员工只有一条工资记录能存放在工资表中。为了保存员工工资的历史记录，应该将“工资表”的主键为“员工编号”＋“年份”＋“月份”。方法为：按住【Ctrl】键不放，使用鼠标单击选中“员工编号”、“年份”、和“月份”三个字段，在被选择的最左边的边框部分单击鼠标右键，在弹出菜单中选择【主键】命令，然后松开【Ctrl】键即可。 系统界面设计 编写代码 第13章介绍了使用OleDbConnection、OleDbDataAdapter控件来建立与Access数据库的连接、生成数据集。本章将不采用数据控件实现，而是使用代码编写数据库连接函数、数据读取函数和数据更新函数，使用它们来实现对SQL数据库的操作。读者将能从中体会到两种方法从本质来说是一样的，只是具体的操作方法不同。在实际的编程过程中，应当选用合适的方法来实现。 dataBase模块代码 在dataBase模块的最上面引入访问SQL Server 2000数据库的命名空间，代码如下： Imports System.Data Imports System.Data.SqlClient 在模块中添加一些用于传递数据的公共变量，这些变量具有较长的生命周期和较大的使用范围，代码如下： Public dataConnection As SqlConnection Public dataAdapter As SqlDataAdapter Public dataSet As dataSet 定义数据库连接字符串,需要根据数据库服务器的具体参数设定 Public connstr As String = workstation id=LIKER;packet size=4096;integrated security =SSPI;data source=LIKER;persist security info=False;initial catalog=工资管理系统 公共查询函数 Public Function getDataFromDB(ByVal sqlstr As String) As dataSet Try dataConnection = New SqlConnection 对象实例化 dataConnection.ConnectionString = connstr 设置连接字符串 实例化数据适配器，并设置查询字符串 dataAdapter = New SqlDataAdapter(sqlstr, dataConnection) dataSet = New dataSet dataSet.Clear() dataAdapter.Fill(dataSet) 填充数据集 dataConnection.Close() 关闭连接 Catch ex As Exception MsgBox(ex.Message) dataConnection.Close() End Try If dataSet.Tables(0).Rows.Count 0 Then Return dataSet 若找到相应的数据，则返回数据集 Else Return Nothing 若没有找到相应的数据，返回空值 End If End Function 执行数据操作的函数 Public Function updateDB(ByVal sqlstr As String) As Boolean Dim sqlConn As New SqlConnection(connstr) Try Dim cm