机房收费系统数据库小助手——Sqlhelper

【背景】    

   在开始机房收费系统的学习之前，我们学习了软工，设计模式和三层，软工告诉我们编程设计要注重代码的灵活性，可复用性、减少代码复用量，而设计模式和三层的则让我们学习了怎样达到代码的灵活性、可复用性和减少代码复用性的方法。在机房的时候，我们总会相到使用这些方法来为我们的代码解耦。

 【sqlhelper】

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

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration '添加必要引用
Public Class SqlHelper
Private Shared ReadOnly strConnection As String = ConfigurationManager.AppSettings("DB")
'定义全局变量，设置链接
Shared conn As SqlConnection = New SqlConnection(strConnection)
'定义全局cmd命令
Shared cmd As New SqlCommand

' 执行非查询操作（增删改）有参数，
' <param name="cmdText">执行增删改查SQL语句或者存储过程</param>
' <param name="cmdType">命令类型文本或者是存储过程</param>
' <param name="paras">参数数组,无法确认有多少参数</param>
Public Shared Function ExecuteNoquery(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As Integer
Dim result As Integer '定义变量用来存放执行的结果
cmd.Parameters.AddRange(paras) '将参数传入

'给cmd赋值
cmd.CommandText = cmdText '设置查询语句
cmd.CommandType = cmdType '设置一个值，解释cmdtext
cmd.Connection = conn '设置链接，全局变量
Try
conn.Open() '打开链接
result = cmd.ExecuteNonQuery() '执行增删改操作
cmd.Parameters.Clear() '清除参数
Catch ex As Exception
MsgBox(ex.Message, , "数据库操作")
Finally
'关闭数据链接
Call CloseConn(conn)
Call closeCmd(cmd)

End Try
Return result '返回数据集的第一个表
End Function

Public Shared Function ExeAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Integer
cmd.CommandText = cmdText
cmd.CommandType = cmdType

cmd.Connection = conn
Dim result As Integer
Try
conn.Open()
result = cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, , "数据库操作")
Finally
Call CloseConn(conn)
Call CloseCmd(cmd)
End Try
Return result
End Function

Public Shared Function ExecSlect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable
Dim sqlAdater As SqlDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet

cmd.CommandText = cmdText
cmd.CommandType = cmdType
cmd.Connection = conn
cmd.Parameters.AddRange(paras)
sqlAdater = New SqlDataAdapter(cmd)
Try
sqlAdater.Fill(ds) '用adapter将dataset填充
dt = ds.Tables(0) 'datatable为dataset的第一个表
cmd.Parameters.Clear() '清除参数
Catch ex As Exception
MsgBox(ex.Message, , "数据库操作")
Finally
Call CloseCmd(cmd)
End Try
Return dt
End Function
Public Shared Function ExecSelectNo(ByVal cmdText As String, ByVal cmdType As CommandType) As DataTable
Dim sqlAdapter As SqlDataAdapter
Dim ds As New DataSet

cmd.CommandText = cmdText
cmd.CommandType = cmdType

cmd.Connection = conn
sqlAdapter = New SqlDataAdapter(cmd)

Try
sqlAdapter.Fill(ds)
Return ds.Tables(0)
Catch ex As Exception
Return Nothing
Finally
Call CloseCmd(cmd)
End Try

End Function
Public Shared 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 Shared Sub CloseCmd(ByVal cmd As SqlCommand)

If Not IsNothing(cmd) Then '如果cmd命令存在
cmd.Dispose() '销毁
cmd = Nothing
End If
End Sub
End Class
【小结】

    可见，在我们敲机房的时候，sqlhelper的运用，让我们减少了很多代码的重复，也使得程序与数据库之间有了一个接口，通过sqlhelper，可以很方便的实现程序对数据库得操作。