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

简介

SqlHelper是一个基于·NETFramework的数据库操作组件。组件中包含数据库操作方法。SqlHelper用于简化你重复

的去写那些数据库连接（SqlConnection）,SqlCommand,SqlDataReader等等。SqlHelper封装过后通常是只需要给方法传入一些参数如数据库连接字符串，SQL参数等，就可以访问数据库了，很方便。

————官方正解

一长串的文字，我注意到的是“很方便”这三个字，那是有多方便呢？？？还不会用呢，也没发现又方便呀，单单就看SqlHelper这类块中的代码，就费劲的慌。于是乎，搁置在那，依旧用连接数据，访问数据，增删改查数据等不费脑但费时的工作。有时候，不是你不想偷懒，而是自己连偷懒都不会。

一个成功的编程师是不会将时间用在粘贴复制上的。

配置项

在应用SqlHelper前最好使用web.config配置连接字符串，

<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            '设置查询的语句    

        Try
            conn.Open()                      '打开连接
            Return cmd.ExecuteNonQuery()     '执行增删改操作
            cmd.Parameters.Clear()           '清除参数
        Catch ex As Exception
            Return 0                         '如果出错,返回0
        Finally
            Call CloseConn(conn)
            Call CloseCmd(cmd)
        End Try
    End 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           '设置连接    

        '执行操作
        Try
            conn.Open()
            Return cmd.ExecuteNonQuery()
        Catch ex As Exception
            Return 0
        Finally
            Call CloseConn(conn)
            Call CloseCmd(cmd)
        End Try
    End 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 DataTable

        Dim sqlAdapter As SqlDataAdapter
        Dim dt As New DataTable
        Dim ds As New DataSet
        '还是给cmd赋值
        cmd.CommandText = cmdText
        cmd.CommandType = cmdType
        cmd.Connection = conn
        cmd.Parameters.AddRange(Paras)  '参数添加
        sqlAdapter = New SqlDataAdapter(cmd)  '实例化adapter
        Try
            sqlAdapter.Fill(ds)           '用adapter将dataSet填充
            dt = ds.Tables(0)             'datatable为dataSet的第一个表
            cmd.Parameters.Clear()        '清除参数
        Catch ex As Exception
            MsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
        Finally                            '最后一定要销毁cmd
            Call CloseCmd(cmd)
        End Try
        Return dt
    End 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 DataTable
        Dim sqlAdapter As SqlDataAdapter
        Dim ds As New DataSet
        '还是给cmd赋值
        cmd.CommandText = cmdText
        cmd.CommandType = cmdType
        cmd.Connection = conn
        sqlAdapter = New SqlDataAdapter(cmd)  '实例化adapter
        Try
            sqlAdapter.Fill(ds)           '用adapter将dataSet填充
            Return ds.Tables(0)             'datatable为dataSet的第一个表
        Catch ex As Exception
            Return Nothing
        Finally                            '最后一定要销毁cmd
            Call CloseCmd(cmd)
        End Try
    End 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 If

    End 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 = Nothing
        End If
    End Sub

End Class

话说，有了源码怎么用呢，这是个问题。机房刚开始我就已经在D层加上SqlHelper类，对新事物总存在抵触的心理，不用它。敲了几个窗体后，渐渐发现每一次的访问数据，都是那几行代码，变来变去也就是对数据的增删改查，而且每次都要写。家中有宝，不去用亏大了。这我才硬着头皮去琢磨这SqlHelper怎么用。

观察代码____找不同

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

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

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

静心思考____明原理

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

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

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

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

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

时间： 2024-10-03 22:39:55

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

【VB.NET 机房收费系统】——对SqlHelper别说“不”的相关文章

vb.net机房收费系统——存储过程

【VB.NET 机房收费系统】___爱上视图（View）

vb.net机房收费系统重构——总结（二）软件工程文档1

vb.net机房收费系统重构——配置文件

vb.net机房收费系统报表设计

小结:VB.NET机房收费系统个人版

vb.net机房收费系统重构——存储过程的使用

VB.NET机房收费系统总结

vb.net机房收费系统重构——总结（四）软件工程文档3