SqlHelper事实上就是一个类。
早就听说过“SqlHelper”这个名词。也查过相关的资料。但还是一头雾水。当真的去实践去用它时，就会发现事实上它没那么神奇。
当敲第一个窗口的时候。功能实现了，我们就会认为非常高兴。大功告成了。但是当敲完第二个窗口、第三个窗口的时候，慢慢的就開始认为代码反复的太多了。越敲就越认为心虚。尽管设计模式学的不怎么样，但是最起码让我有了这个意识去想怎么让代码更少一些。让彼此之间的耦合度尽量降低。
在三层中，要数D层的代码相似度最高了，总结来说，也就是连接数据库。增删改查的功能。那么。我们全然能够把这部分共同的东西拿出来放在一起。这样既能降低了代码量，也非常好的做到了封装。
SqlHelper这个类里，有几个方法。
在sqlhelper中，最重要的无非是那几个增删改查的方法了。
查了非常多博客，类中的方法也有非常多种，包含ExecuteNonQuery、ExecuteReader、ExecuteDataSet、ExecuteScalar、ExecuteXmlReader等。但我们并不会都用到。有的方法了解一下就好了。方法能够划分的细。但假设分的太细。就会弄的太复杂了。
我习惯把方法分的少一些。
Public Class sqlHelper
''' <summary>
''' 有參数的增、删、改操作
''' </summary>
''' <param name="cmdText"></param>
''' <param name="cmdType"></param>
''' <param name="paras"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ExecuteNoQuery(cmdText As String, cmdType As CommandType, paras As SqlParameter()) As Integer
Dim ConnStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnStr")
Dim conn As SqlConnection = New SqlConnection(ConnStr)
'定义一个命令对象
Dim cmd As New SqlCommand
cmd = New SqlCommand(cmdText, conn) 'budong
cmd.CommandType = cmdType
cmd.Parameters.AddRange(paras)
Dim res As Integer '定义一个变量用户存放返回结果
Try
'打开数据库
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
res = cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, "数据库操作")
Finally
'关闭数据库
If conn.State = ConnectionState.Open Then
conn.Close()
End If
End Try
Return res '返回受影响的行数
End Function
''' <summary>
''' 无參数的增、删、改操作
''' </summary>
''' <param name="cmdText"></param>
''' <param name="cmdType"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function ExecuteNoQuery(cmdText As String, cmdType As CommandType) As Integer
Dim ConnStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnStr")
Dim conn As SqlConnection = New SqlConnection(ConnStr)
Dim cmd As New SqlCommand '定义一个命令对象
cmd.CommandType = cmdType
cmd = New SqlCommand(cmdText, conn)
Dim res As Integer '定义一个变量用户存放返回结果
'cmd.Parameters.AddRange(paras) 该方法没有參数，不用加入
Try
'打开数据库
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
res = cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, "数据库操作")
Finally
'关闭数据库
If conn.State = ConnectionState.Open Then
conn.Close()
End If
End Try
'返回受影响的行数
Return res
End Function
''' <summary>
''' 有參数的查询操作
''' </summary>
''' <param name="cmdTxt"></param>
''' <param name="cmdType"></param>
''' <param name="paras"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetDataTable(ByVal cmdTxt As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable
Dim strConnStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnStr")
'定义一个数据库连接对象
Dim conn As SqlConnection = New SqlConnection(strConnStr)
'定义一个命令对象
Dim cmd As New SqlCommand
Dim adataset As DataSet
'定义一个适配器对象
Dim adaptor As SqlDataAdapter
cmd = New SqlCommand(cmdTxt, conn)
adaptor = New SqlDataAdapter(cmd)
adataset = New DataSet
cmd.CommandType = cmdType
cmd.Parameters.AddRange(paras)
Try
'打开数据库连接
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
'填充数据集
adaptor.Fill(adataset)
Return adataset.Tables(0)
Catch ex As Exception
MsgBox(ex.Message)
Finally
'关闭数据库连接
If conn.State = ConnectionState.Open Then
conn.Close()
End If
End Try
End Function
''' <summary>
''' 无參数的查询操作
''' </summary>
''' <param name="cmdTxt"></param>
''' <param name="cmdType"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetDataTable(ByVal cmdTxt As String, ByVal cmdType As CommandType) As DataTable
Dim strConnStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnStr")
'定义一个数据库连接对象
Dim conn As SqlConnection = New SqlConnection(strConnStr)
'定义一个命令对象
Dim cmd As New SqlCommand
Dim adataset As DataSet
'定义一个适配器对象
Dim adaptor As SqlDataAdapter
cmd = New SqlCommand(cmdTxt, conn)
adaptor = New SqlDataAdapter(cmd)
adataset = New DataSet
cmd.CommandType = cmdType
'cmd.Parameters.AddRange(paras) 没有參数，无需加入
Try
'打开数据库连接
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
'填充数据集
adaptor.Fill(adataset)
Return adataset.Tables(0)
Catch ex As Exception
MsgBox(ex.Message, , "数据库操作")
Finally
'关闭数据库连接
If conn.State = ConnectionState.Open Then
conn.Close()
End If
End Try
End Function
End Class
类有了。那怎么用呢？
有了參数，不就能够调用了。
CmdTxt就是sql语句。
CommandType有三个属性：StoredProcedure（存储过程）。TableDirect（表）。text（SQL文本命令，较经常使用）。
SqlParameter属性：在写sql语句的时候我们会定义变量，SqlParameter就是用来给数据库中定义的变量传值用的。
比如：
Dim paras As SqlParameter() = {New SqlParameter("@cardno", student.cardno)}@cardno是变量。student.cardno是实体的值。
注意：Add与AddRange的差别
Add：将指定的对象加入到……中，AddRange：向……末尾，加入数组
Add该方法每次仅仅能加入一个SqlParameter。
AddRange可加入多个SqlParameter。在群里操作时，使用AddRange代替Add。
这样。我们的SqlHelper小助手就能够帮助完好我们的代码了。遇到一个问题，不用恐惧，先把它简单化。等我们对它有了一定的理解后再去看它复杂的地方。当我们能够灵活的使用ExecuteNonQuery、ExecuteReader、ExecuteDataSet的方法后。其它的内容也就不会难倒我们了。
