??????? 在上一篇簡單的介紹了sqlhelper的基本知識，接下來就讓我們進一步學(xué)習(xí)他的實踐過程。
?????? 首先： 我們要明白的一件事Sqlhelper不是寫出來的，而是在D層的代碼中提煉出來的？那么就會反問一句“D層中符合什么條件的代碼才可以提煉出來呢？用Sqlhelper有什么用呢？”那么帶著這些問題讓我們進入思考：
???????? 第一：Sqlhelper的代碼不是寫出來的，而是從D層的代碼中提煉出來的，即把那些執(zhí)行增刪改查操作，存儲過程及程序集等中 相同的代碼 提煉出來，封裝成一個類，便于復(fù)用的過程。
???????? 第二：把它封裝成一個類的好處就是 ：這提供了一種很好的使用 SqlHelper類來執(zhí)行命令的模式，同時為開發(fā)人員選擇訪問數(shù)據(jù)的方式提供了必要的靈活性。每種方法的重載都支持不同的方法參數(shù)，因此開發(fā)人員可以確定傳遞連接、事務(wù)和參數(shù)信息的方式。
?????? 其次： 我們在該提煉的過程，要注意幾點。 Sqlhelper 大概可分為兩大類：一類是帶參數(shù)，另一類是不帶參數(shù)。當(dāng)然帶參數(shù)的就有返回值，不帶參數(shù)的就沒有返回值。好的明白這幾點了就讓我們通過機房收費系統(tǒng)來進一步實踐吧！
?
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration '必須要在管理器中添加引用
''' <summary>
''' SqlHelper類是專門提供給廣大用戶用于高性能、可升級和最佳練習(xí)的sql數(shù)據(jù)操作
''' </summary>
''' <remarks></remarks>
Public Class SqlHelper
'定義變量
'獲得數(shù)據(jù)庫的連接字符串
Private ReadOnly strConnection As String = ConfigurationManager.AppSettings("ConnStr")
'設(shè)置連接
Dim conn As SqlConnection = New SqlConnection(strConnection)
'定義cmd命令
Dim cmd As New SqlCommand
''' <summary>
''' 執(zhí)行增刪改三個操作,(有參)返回值為Boolean類型,確認(rèn)是否執(zhí)行成功
''' </summary>
''' <param name="cmdText">需要執(zhí)行語句,一般是Sql語句,也有存儲過程</param>
''' <param name="cmdType">判斷Sql語句的類型,一般都不是存儲過程</param>
''' <param name="paras">參數(shù)數(shù)組,無法確認(rèn)有多少參數(shù)</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) '將參數(shù)傳入
cmd.CommandType = cmdType '設(shè)置一個值,解釋cmdText
cmd.Connection = conn '設(shè)置連接,全局變量
cmd.CommandText = cmdText '設(shè)置查詢的語句
Try
conn.Open() '打開連接
Return cmd.ExecuteNonQuery() '執(zhí)行增刪改操作
cmd.Parameters.Clear() '清除參數(shù)
Catch ex As Exception
Return 0 '如果出錯,返回0
Finally
Call CloseConn(conn)
Call CloseCmd(cmd)
End Try
End Function
''' <summary>
''' 執(zhí)行增刪改三個操作,(無參)
''' </summary>
''' <param name="cmdText">需要執(zhí)行語句,一般是Sql語句,也有存儲過程</param>
''' <param name="cmdType">判斷Sql語句的類型,一般都不是存儲過程</param>
''' <returns>Interger,受影響的行數(shù)</returns>
''' <remarks>2013年2月2日8:19:59</remarks>
Public Function ExecAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Integer
'為要執(zhí)行的命令cmd賦值
cmd.CommandText = cmdText '先是查詢的sql語句
cmd.CommandType = cmdType '設(shè)置Sql語句如何解釋
cmd.Connection = conn '設(shè)置連接
'執(zhí)行操作
Try
conn.Open()
Return cmd.ExecuteNonQuery()
Catch ex As Exception
Return 0
Finally
Call CloseConn(conn)
Call CloseCmd(cmd)
End Try
End Function
''' <summary>
''' 執(zhí)行查詢的操作,(有參),參數(shù)不限
''' </summary>
''' <param name="cmdText">需要執(zhí)行語句,一般是Sql語句,也有存儲過程</param>
''' <param name="cmdType">判斷Sql語句的類型,一般都不是存儲過程</param>
''' <param name="paras">傳入的參數(shù)</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) '參數(shù)添加
sqlAdapter = New SqlDataAdapter(cmd) '實例化adapter
Try
sqlAdapter.Fill(ds) '用adapter將dataSet填充
dt = ds.Tables(0) 'datatable為dataSet的第一個表
cmd.Parameters.Clear() '清除參數(shù)
Catch ex As Exception
MsgBox("查詢失敗", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
Finally '最后一定要銷毀cmd
Call CloseCmd(cmd)
End Try
Return dt
End Function
''' <summary>
''' 執(zhí)行查詢的操作,(無參)
''' </summary>
''' <param name="cmdText">需要執(zhí)行語句,一般是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) '實例化adapter
Try
sqlAdapter.Fill(ds) '用adapter將dataSet填充
Return ds.Tables(0) 'datatable為dataSet的第一個表
Catch ex As Exception
Return Nothing
Finally '最后一定要銷毀cmd
Call CloseCmd(cmd)
End Try
End Function
''' <summary>
''' 關(guān)閉連接
''' </summary>
''' <param name="conn">需要關(guān)閉的連接</param>
''' <remarks></remarks>
Public Sub CloseConn(ByVal conn As SqlConnection)
If (conn.State <> ConnectionState.Closed) Then '如果沒有關(guān)閉
conn.Close() '關(guān)閉連接
conn = Nothing '不指向原對象
End If
End Sub
''' <summary>
''' 關(guān)閉命令
''' </summary>
''' <param name="cmd">需要關(guān)閉的命令</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
?????? ? 總結(jié)： 以上就是我對Sqlhelper的一些初步的理解和運用，希望在今后的學(xué)習(xí)中更進一步的學(xué)習(xí)和運用！
?
?
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯(lián)系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
