【VB.NET 机房收费系统】——对SqlHelper别说“不”

本文主要是介绍【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怎么用。

1. 观察代码____找不同

       按定义的方法名来看，分为查询和增删改两类。查询时是返回给用户想要查看的信息，返回的           是DataTable类型；增删改归为改和更新，返回受影响的行数，更新成功就返回整数1（Integer型）。

※      DataTable是一个临时保存数据的网络虚拟表，可以被创建和访问，当SqlHelper查询后就要返回      到DataTable虚拟表中，判断它的第一行是否有数据来插到记录

※        Integer型，返回受影响的行数。在机房收费系统中，我们可以发现，当受影响的行数大于0说明查到相应的记录，如果为0说明没有查询到数据。同理，如果受影响的行数大于0说明增删改操作成功，为0则操作失败。于是乎，可以通过返回受影响的行数到B层进行逻辑判断，然后传到U层，这样层层递进，妙哉。

2. 静心思考____明原理

在查询和增删改两大类中，又细分了有参数和无参数量两小类。当想要获取数据库的全部信息时，如正在值班教师日志查询时，即可无参查询信息，全部在DataGridView中显示。当想要获取部分信息时，即可用参数查询。

本人就 机房收费系统 登录为例。分别用SqlHelper和不用SqlHelper 中实现。

为了不破坏三层思想：各层之间传实体。本例中间获得的dt转为实体。细心的同学会发现，查询到的dt结果赋值给实体对象的属性，然后返回实体的过程，或许本例中的属性值少，还是可以一个一个的传递的，但是有多个，或者说是上百个的时候，那么还是一个一个的传递的么，显然是不行的，由此引出泛型集合。可以直接将dt转换为一个包含实体的泛型集合，然后每次返回的时候，将集合作为结果返回。

敬请期待我的下一篇博客：实体类返回泛型集合。

 

           后续：不怕不知道，就怕不知道。。。。只要你想去学，就没有学不会。告别说“不”

这篇关于【VB.NET 机房收费系统】——对SqlHelper别说“不”的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---