本文主要是介绍【VB.NET 机房收费系统】——对SqlHelper别说“不”，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
简介
SqlHelper是一个基于·NETFramework的数据库操作组件。组件中包含数据库操作方法。SqlHelper用于简化你重复的去写那些数据库连接（SqlConnection）,SqlCommand,SqlDataReader等等。SqlHelper封装过后通常是只需要给方法传入一些参数如数据库连接字符串，SQL参数等，就可以访问数据库了，很方便。
————官方正解
一长串的文字，我注意到的是“很方便”这三个字，那是有多方便呢？？？还不会用呢，也没发现又方便呀，单单就看SqlHelper 这类块中的代码，就费劲的慌。于是乎，搁置在那，依旧用 连接数据，访问数据，增删改查数据等不费脑但费时的工作。有时候，不是你不想偷懒，而是自己连偷懒都不会。
一个成功的编程师是不会将时间用在粘贴复制上的。
配置项
在应用SqlHelper前最好使用web.config配置连接字符串，<!--SqlServerHelper连接字符串设定-->
<addconnectionString="server=.;uid=sa;pwd=123456;database=yourdatabase"name="SqlServerHelper"/>至于如何配置文件，自行百度，有些事情不能一昧的索取，要自己去发现。
源码
编写SqlHelper调用代码，SqlHelper的书写风格很多，你可以选择自己的需求和爱好使用静态方式或对象方式。各种利弊。选择情况使用吧
//*******************************************************
'** 作者： 徐露
'** 创始时间：2014-8-23
'** 小组：
'** 修改时间：2014-9-
'** 描述：个人机房重构
'** 版本号：
'**********************************************************
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration '必须要在管理器中添加引用
Public Class SQLhelperDAL'定义变量 '获得数据库的连接字符串 Private ReadOnly strConnection As String = ConfigurationManager.AppSettings("ConnStr")'设置连接 Dim conn As SqlConnection = New SqlConnection(strConnection)'定义cmd命令 Dim cmd As New SqlCommand''' <summary> ''' 执行增删改三个操作,(有参)返回值为Boolean类型,确认是否执行成功 ''' </summary> 定义一个“ExecAddDelUpdate” 函数方法 能对数据库表中的数据进行增删改''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param> ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param> ''' <param name="paras">参数数组,无法确认有多少参数</param> ''' <returns></returns> ''' <remarks></remarks> Public Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As Integer'将传入的值,分别为cmd的属性赋值 cmd.Parameters.AddRange(paras) '将参数传入 cmd.CommandType = cmdType '设置一个值,解释cmdText cmd.Connection = conn '设置连接,全局变量 cmd.CommandText = cmdText '设置查询的语句 Tryconn.Open() '打开连接 Return cmd.ExecuteNonQuery() '执行增删改操作 cmd.Parameters.Clear() '清除参数 Catch ex As ExceptionReturn 0 '如果出错,返回0 FinallyCall CloseConn(conn)Call CloseCmd(cmd)End TryEnd Function''' <summary> ''' 执行增删改三个操作,(无参) ''' </summary> ''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param> ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param> ''' <returns>Interger,受影响的行数</returns> ''' <remarks>2013年2月2日8:19:59</remarks> Public Function ExecAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Integer'为要执行的命令cmd赋值 cmd.CommandText = cmdText '先是查询的sql语句 cmd.CommandType = cmdType '设置Sql语句如何解释 cmd.Connection = conn '设置连接 '执行操作 Tryconn.Open()Return cmd.ExecuteNonQuery()Catch ex As ExceptionReturn 0FinallyCall CloseConn(conn)Call CloseCmd(cmd)End TryEnd Function''' <summary> ''' 执行查询的操作,(有参),参数不限 ''' </summary> ''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param> ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param> ''' <param name="paras">传入的参数</param> ''' <returns></returns> ''' <remarks></remarks> Public Function ExecSelect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTableDim sqlAdapter As SqlDataAdapterDim dt As New DataTableDim ds As New DataSet'还是给cmd赋值 cmd.CommandText = cmdTextcmd.CommandType = cmdTypecmd.Connection = conncmd.Parameters.AddRange(Paras) '参数添加 sqlAdapter = New SqlDataAdapter(cmd) '实例化adapter TrysqlAdapter.Fill(ds) '用adapter将dataSet填充 dt = ds.Tables(0) 'datatable为dataSet的第一个表 cmd.Parameters.Clear() '清除参数 Catch ex As ExceptionMsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")Finally '最后一定要销毁cmd Call CloseCmd(cmd)End TryReturn dtEnd Function''' <summary> ''' 执行查询的操作,(无参) ''' </summary> ''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param> ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param> ''' <returns>dataTable,查询到的表格</returns> ''' <remarks></remarks> Public Function ExecSelectNo(ByVal cmdText As String, ByVal cmdType As CommandType) As DataTableDim sqlAdapter As SqlDataAdapterDim ds As New DataSet'还是给cmd赋值 cmd.CommandText = cmdTextcmd.CommandType = cmdTypecmd.Connection = connsqlAdapter = New SqlDataAdapter(cmd) '实例化adapter TrysqlAdapter.Fill(ds) '用adapter将dataSet填充 Return ds.Tables(0) 'datatable为dataSet的第一个表 Catch ex As ExceptionReturn NothingFinally '最后一定要销毁cmd Call CloseCmd(cmd)End TryEnd Function''' <summary> ''' 关闭连接 ''' </summary> ''' <param name="conn">需要关闭的连接</param> ''' <remarks></remarks> Public Sub CloseConn(ByVal conn As SqlConnection)If (conn.State <> ConnectionState.Closed) Then '如果没有关闭 conn.Close() '关闭连接 conn = Nothing '不指向原对象 End IfEnd Sub''' <summary> ''' 关闭命令 ''' </summary> ''' <param name="cmd">需要关闭的命令</param> ''' <remarks></remarks> Public Sub CloseCmd(ByVal cmd As SqlCommand)If Not IsNothing(cmd) Then '如果cmd命令存在 cmd.Dispose() '销毁 cmd = NothingEnd IfEnd SubEnd Class
话说，有了源码怎么用呢，这是个问题。机房刚开始我就已经在D层加上SqlHelper类，对新事物总存在抵触的心理，不用它。敲了几个窗体后，渐渐发现每一次的访问数据，都是那几行代码，变来变去也就是对数据的增删改查，而且每次都要写。家中有宝，不去用亏大了。这我才硬着头皮去琢磨这SqlHelper怎么用。
- 观察代码____找不同
按定义的方法名来看，分为查询和增删改两类。查询时是返回给用户想要查看的信息，返回的 是DataTable类型；增删改归为改和更新，返回受影响的行数，更新成功就返回整数1（Integer型）。
※ DataTable是一个临时保存数据的网络虚拟表，可以被创建和访问，当SqlHelper查询后就要返回 到DataTable虚拟表中，判断它的第一行是否有数据来插到记录
※ Integer型，返回受影响的行数。在机房收费系统中，我们可以发现，当受影响的行数大于0说明查到相应的记录，如果为0说明没有查询到数据。同理，如果受影响的行数大于0说明增删改操作成功，为0则操作失败。于是乎，可以通过返回受影响的行数到B层进行逻辑判断，然后传到U层，这样层层递进，妙哉。
- 静心思考____明原理
在查询和增删改两大类中，又细分了有参数和无参数量两小类。当想要获取数据库的全部信息时，如正在值班教师日志查询时，即可无参查询信息，全部在DataGridView中显示。当想要获取部分信息时，即可用参数查询。
本人就 机房收费系统 登录为例。分别用SqlHelper和不用SqlHelper 中实现。
为了不破坏三层思想：各层之间传实体。本例中间获得的dt转为实体。细心的同学会发现，查询到的dt结果赋值给实体对象的属性，然后返回实体的过程，或许本例中的属性值少，还是可以一个一个的传递的，但是有多个，或者说是上百个的时候，那么还是一个一个的传递的么，显然是不行的，由此引出泛型集合。可以直接将dt转换为一个包含实体的泛型集合，然后每次返回的时候，将集合作为结果返回。
敬请期待我的下一篇博客：实体类返回泛型集合。
后续：不怕不知道，就怕不知道。。。。只要你想去学，就没有学不会。告别说“不”
这篇关于【VB.NET 机房收费系统】——对SqlHelper别说“不”的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
