机房重构——SQLHelper

SQLHelper简介

SQLHelper是一个基于.NET Framework的数据库操作组件。组件中包含数据库操作方法。SQLHelper用于简化你重复写那些数据库连接(SqlConnection),SqlCommand,SqlDataReader等。SqlHelper封装后通常只是需要给方法传入一些参数如数据库连接字符串，SQL参数，就可以访问数据库了。

 ’SQLHelper就是将数据库连接语句，将方法传入一些参数如数据库连接字符串等封装。

成员

分为四种情况，Boolean类型（有参和无参）DataTable类型（有参和无参）

ExecuteNonQuery:此方法用于执行不返回任何行或值的命令，这些命令通常用于数据库更新，但也可以用于返回存储过程的输出参数。
ExecuteReader:此方法用于返回SqlDataReader对象，该对象包含由某一命令返回的结果集。（SqlDataReader对象：提供一种从SQL Server 数据库读取行的只进流的方式。创建SqlDataReader，必须调用SqlCommand对象的ExecuteReader方法）
ExecuteDataset：此方法返回DataSet对象，返回数据库对象，该对象包含由某一命令返回的结果集。
ExecuteScalar：此方法返回一个值，该值始终是该命令返回的第一行的第一列。
ExecuteXmlReader：此方法返回FOR XML 查询的 XML片段

---

四种方法：
ExecAddDelUpdate：有参，返回值为Boolean类型；
ExecAddDelUpdateNo：无参，返回值为Boolean类型；
ExecSelect：有参，返回值为DataTable类型
ExecSelectNo：无参，返回值为DataTable类型

---

？？？

cmd的属性CommandType、Connection、CommandText等是什么？

cmd.Parameters.AddRange(paras) ‘将参数传入
cmd.CommandType = cmdType ‘设置一个值，解释cmdText属性的方式
cmd.Connection = conn ‘设置连接，全局变量
cmd.CommandText = cmdText ‘设置查询的语句

CommandText属性可设置或返回一个字符串，该字符串包含一个Provider命令，比如一条SQL语句、一个表名称、一个相对于URL、或者一个存储过程的调用等；（存储过程调用，中将table = sqlHelper.ExecSelect(sql, CommandType.Text, sqlParams)的CommandType改为CommandType.StoredProcedure）

SqlCommand.CommandType属性：获取或设置一个值，该值指示解释CommandText属性的方式

SqlCommand.Connection属性：获取或设置SqlCommand的此实例使用的SqlConnection
和命名空间System.Data.SqlClient相连；System.Data.SqlClient就是引用前面的Connection；

SqlCommand.Parameters属性：Parameters的作用就是将存储过程执行结束后得到的参数传到程序集里。

---

代码展示

Imports System.Data.SqlClient
Imports System.Configuration '添加对配置文件的引用
Imports System.Reflection '添加对反射弧的引用

Public Class SQLHelper    '执行增删改查功能;

    '作者：
    '说明：封装增删改查的操作，在DAL层之间调用即可

    '数据库连接
    '定义变量
    '获得数据库连接字符串
    Dim strConnection As String = ConfigurationManager.AppSettings("strConnection")   '找配置文件
    Dim conn As New SqlConnection(strConnection)

    Dim cmd As New SqlCommand

    '<summary>
    '执行增删改三个操作，（有参）返回值为Boolean 类型，确认是否执行成功
    '</summary>
    '<para name="cmdText">需要执行语句，一般是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 Boolean
        '将传入的值，分别为cmd的属性值
        cmd.Parameters.AddRange(paras)   '将参数传入
        cmd.CommandType = cmdType   '设置一个值，解释cmdType
        cmd.Connection = conn   '设置连接，全局变量
        cmd.CommandText = cmdText   '设置查询的语句

        Try
            conn.Open()   '打开连接
            Return cmd.ExecuteNonQuery()   '执行增删改操作
            cmd.Parameters.Clear()   '清除参数
        Catch ex As Exception
            MsgBox(ex.Message, "数据库操作")   '如果出错，返回0
            Return False
        Finally
            Call CloseConn(conn)
            Call CloseCmd(cmd)

        End Try
    End Function

---

    '<summary>
    '执行增删改三个操作，（无参）返回值为Boolean类型，确认是否执行成功
    '</summary>
    '<para name="cmdText">需要执行语句，一般是Sql语句，也有存储过程</param>
    '<returns>Interg,受影响的行数</returns>
    '<remarks>时间</remarks>
    Public Function ExecAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Boolean
        '为要执行的命令cmd赋值
        cmd.CommandText = cmdText   '显示查询的sql语句
        cmd.CommandType = cmdType   '设置Sql 如何解释
        cmd.Connection = conn   '设置连接

        '执行操作
        Try
            conn.Open()   '打开数据集
            Return cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message, "数据库操作")   '如果出错，返回0
            Return False
        Finally
            Call CloseConn(conn)
            Call CloseCmd(cmd)
        End Try
    End Function

---

 '<summary>
    '执行查询操作，（有参），返回值为dataTable类型，参数不限
    '</summary>
    '<para name="cmdText">需要执行语句，一般是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(ex.Message, "数据库操作")   '如果出错，返回0
        'Finally
        Call CloseCmd(cmd) '关闭cmd命令
        'End Try

        Return dt
    End Function

---

 '<summary>
    '执行查询操作，（无参），返回值为dataTable类型
    '</summary>
    '<param name="cmdText">需要执行语句，一般是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 dt As New DataTable
        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填充
            dt = ds.Tables(0)

        Catch ex As Exception
            MsgBox(ex.Message, "数据库操作")   '如果出错，返回0
        Finally
            Call CloseCmd(cmd)
        End Try
        Return dt
    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
    Public Sub CloseCmd(ByVal cmd As SqlCommand)
        If Not IsNothing(cmd) Then '如果cmd存在
            cmd.Dispose() '销毁
            cmd = Nothing
        End If
    End Sub

End Class

---

小结：多思考，多总结。