四大天王变形金刚（SqlHelper)

  1、的基础上推出  

SqlHelper是一个基于·NET Framework的数据库操作组件。组件中包括数据库操作方法。SqlHelper用于简化你反复的去写那些数据库连接（SqlConnection）,SqlCommand,SqlDataReader等等。SqlHelper 封装过后一般是仅仅须要给方法传入一些參数如数据库连接字符串。SQL參数等。就能够訪问数据库了。非常方便。

简单的讲，就是将“四大天王”中具有共性的东西。封装起来，从而让我们的代码变得简单，易于扩展。

  2、实现方法（Vb.Net版）

（1）</strong>配制文件（U层）

在建立的应用窗口项目下。有一个App.Config文件，打开，然后在</startup>后边加入例如以下代码

<span style="font-size:18px;">  <appSettings>
    <clear/>
    <add key="ConnStr" value="server=localhost;Database=Login;User=sa;Password=123456;"/>
  </appSettings></span>

加入完以后，例如以下图

<span style="font-size:18px;"><?

xml version="1.0" encoding="utf-8" ?>
<configuration>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
    </startup>

  <appSettings>
    <clear/>
    <add key="ConnStr" value="server=localhost;Database=Login;User=sa;Password=123456;"/>
  </appSettings>

</configuration></span>

         其它方法另外參照VB.Net—配置文件

 
       （2）实现SqlHelper类

<span style="font-size:18px;">Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration          '加入必要引用

Public Class SqlHelper

    '定义变量
    '获得数据库链接字符串
    Private ReadOnly strConnection As String = ("ConnStr")
    '设置链接
    Dim conn As SqlConnection = New SqlConnection(strConnection)
    '定义Command命令
    Dim cmd As New SqlCommand

    ' <summary>
    ' 运行增删改三个操作,(有參)返回值为Boolean类型,确认是否运行成功
    ' </summary>
    ' <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             '设置SQL语句

        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               '传入查询语句
        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 ExecSeletct(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable

        Dim sqlAdpter As SqlDataAdapter            '是 DataSet和 SQL Server之间的桥接器，用于检索和保存数据
        Dim dt As New DataTable
        Dim ds As New DataSet

        '还是给cmd赋值
        cmd.CommandText = cmdText                  '设置查询语句
        cmd.CommandType = cmdType                  '设置Cmd对象的类型
        cmd.Connection = conn                      '数据库连接语句
        cmd.Parameters.AddRange(paras)             '传入參数
        sqlAdpter = New SqlDataAdapter(cmd)        '实例化适配器

        Try
            sqlAdpter.Fill(ds)                     '用adapter将dataSet填充
            dt = ds.Tables(0)                      'dataTable是dataSet的第一个表
            cmd.Parameters.Clear()                 '清除參数
        Catch ex As Exception
            MsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告。")
        Finally
            Call CloseCmd(cmd)                     '最后一定要释放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)         '实例化适配器

        Try
            sqlAdapter.Fill(ds)                      '用adapter将dataSet填充
            Return ds.Tables(0)                      '返回dataSet的第一个表
        Catch ex As Exception
            Return Nothing
        Finally
            Call CloseCmd(cmd)                       '关闭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
</span>

版权声明：本文博客原创文章。博客，未经同意，不得转载。