机房收费系统技术盘点--SqlHelper


		  SqlHelper的用处或者或是好处是：用于简化你重复的去写那些数据库连接（SqlConnection），SqlCommand，sqlDataReader等等。SqlHelper 封装过后通常是只需要给方法传入一些参数如数据库连接字符串，SQL参数等，就可以访问数据库了，很方便。
       百度百科上对SqlHelper的使用方法介绍的很清楚，但是那些代码应该是C#编写的，与VB.NET还是有些不同。上网找过VB.NET版的SqlHelper类的代码，SqlHelper类VB.NET版 ，之前看的时候，有些看不懂，注释实在是太少，而且这两个里面都有用到事务，但是我对事务不是很了解。所以最后，参看了其他人的代码，整理了SqlHelper中4个方法。
       这4个方法是自定义的。分别为ExecAddDelUpdate和ExecSelect，这两个都有有参和无参版。有参表示，有传入值，无参表示无传入值，比如查询一个表中的所有数据，就不需要任何条件，无参就好了。
       而网上的SqlHelper方法一般都是ExecuteNonquery，ExecuteReader，前面是针对增删改，后面那个针对查询。还有ExecuteDataTable，可以返回DataTable类型的结果，就可以和DataGridView控件绑定数据。
[vb]  
Imports System.Data.SqlClient  
Imports System.Configuration  '必须要在管理器中添加引用  
  
Public Class SqlHelper  
    '定义变量  
    '获得数据库的连接字符串  
    Private ReadOnly strConnection As String = ConfigurationManager.AppSettings("strConnection")  
    '设置连接  
    Dim conn As SqlConnection = New SqlConnection(strConnection)  
    '定义cmd命令  
    Dim cmd As New SqlCommand  
  
    ''' <summary>  
    ''' 执行增删改三个操作,(有参)返回值为Boolean类型,确认是否执行成功  
    ''' </summary>  
    ''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param>  
    ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param>  
    ''' <param name="sqlParams">参数数组,无法确认有多少参数</param>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Public Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal sqlParams As SqlParameter()) As Integer  
        '将传入的值,分别为cmd的属性赋值  
        cmd.Parameters.AddRange(sqlParams)   '将参数传入  
        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 ExecAddDelUpdate(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="sqlParams">传入的参数</param>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Public Function ExecSelect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal sqlParams 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(sqlParams)  '参数添加  
        sqlAdapter = New SqlDataAdapter(cmd)  '实例化adap

补充：软件开发 , Vb ,