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             '设置一个值，解释cmdTextcmd.Connection = conn                 '设置连接，全局变量cmd.CommandText = cmdText             '设置SQL语句Tryconn.Open()                       '打开链接Return cmd.ExecuteNonQuery()      '执行增删改操作cmd.Parameters.Clear()            '清除参数Catch ex As ExceptionReturn 0                          '如果出错就返回0FinallyCall 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               '传入查询语句cmd.CommandType = cmdType               '设置Sql语句如何解释cmd.Connection = conn                   '设置连接'执行操作Tryconn.Open()Return cmd.ExecuteNonQueryCatch 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 ExecSeletct(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTableDim sqlAdpter As SqlDataAdapter            '是 DataSet和 SQL Server之间的桥接器，用于检索和保存数据Dim dt As New DataTableDim ds As New DataSet'还是给cmd赋值cmd.CommandText = cmdText                  '设置查询语句cmd.CommandType = cmdType                  '设置Cmd对象的类型cmd.Connection = conn                      '数据库连接语句cmd.Parameters.AddRange(paras)             '传入参数sqlAdpter = New SqlDataAdapter(cmd)        '实例化适配器TrysqlAdpter.Fill(ds)                     '用adapter将dataSet填充dt = ds.Tables(0)                      'dataTable是dataSet的第一个表cmd.Parameters.Clear()                 '清除参数Catch ex As ExceptionMsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告！")FinallyCall CloseCmd(cmd)                     '最后一定要释放cmdEnd TryReturn 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 DataTableDim sqlAdapter As SqlDataAdapterDim ds As New DataSet'给cmd赋值cmd.CommandText = cmdTextcmd.CommandType = cmdTypecmd.Connection = connsqlAdapter = New SqlDataAdapter(cmd)         '实例化适配器TrysqlAdapter.Fill(ds)                      '用adapter将dataSet填充Return ds.Tables(0)                      '返回dataSet的第一个表Catch ex As ExceptionReturn NothingFinallyCall CloseCmd(cmd)                       '关闭cmdEnd 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 = Nothing                               '不指向原对象End IfEnd SubEnd Class
</span>