数据操作的封装--sqlhelper

发布时间:2017-7-9 7:07:33编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"数据操作的封装--sqlhelper ",主要涉及到数据操作的封装--sqlhelper 方面的内容,对于数据操作的封装--sqlhelper 感兴趣的同学可以参考一下。

    为了提高软件的灵活性和可维护性,软件的代码须要科学的管理。我们引入了架构这个词。设计模式提醒我们,软件中反复性的代码须要封装起来。

近期在做收费系统时。须要和数据库进行频繁的联系。既然是反复的使用,就须要封装,这里使用到了sql helper

       先来看看百度对sqohelper的解释:一个基于.NETFframework的数据库操作组件。尽管不知道组件的详细含义。还是能够猜出来它就是D层中对数据库操作进行封装的工具。

        数据库的操作,不外乎四种模式,增、删、改、查,依据返回值来区分,能够分为有返回值和无返回值两大类,增、删、改操作是不须要返回值的,查询操作返回值就是查询结果。这些操作各自都有两种操作方式,有參数和无參数的。无參数的就是对整张表的操作,有參数的是对个别字段的操作。

   sql helper用到的方法或函数或參数:

   ExecuteNonQuery :此方法用于运行没有返回值的命令(有參数或者没有參数)。它通经常使用于运行数据库(增、删、改)命令,也可用于返回存储过程的输出參数。

   Parameters:此參数用于运行有參数的查询或更新(增、删、改)操作。

   sql Command: 此函数用于封装数据库操作命令。

   CommandType:用于设置数据库连接类型

   CommandText:用于设置数据库连接语句。

看一下sql helper类代码:

Imports System.Data.SqlClientImports System.ConfigurationImports System.Data'须要在管理器中加入引用Public Class sqlHelper    '定义变量    Dim ConnString As String = "Server=.;Database=Charge;User=sa;PassWord=123456"    '获得数据库连接字符串    Private ReadOnly strConnection As String = ConfigurationSettings.AppSettings("ConnString")    Dim conn As SqlConnection = New SqlConnection(strConnection)    '定义CMD命令    Dim cmd As New SqlCommand    ''' <summary>    ''' 运行查询操作(有參数),參数没有限制    ''' </summary>    ''' <param name="cmdText">须要运行的语句,通常是SQL语句。也可能是存储过程</param>    ''' <param name="cmdType">推断SQL语句的类型。一般不是存储过程</param>    ''' <param name="sqlparameters">传入參数</param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Function ParaSelect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal sqlparameters As SqlParameter()) As DataTable        '        Using conn As New SqlConnection(ConnString)  '            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(sqlparameters) '加入參数            sqlAdapter = New SqlDataAdapter(cmd)   '实例化adapter            Try                sqlAdapter.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 Using    End Function    ''' <summary>    ''' 运行查询操作(无參数)    ''' </summary>    ''' <param name="cmdText">同上</param>    ''' <param name="cmdType">同上</param>    ''' <returns>dataTable查询到表格</returns>    ''' <remarks></remarks>    Public Function NonParaSelect(cmdText As String, cmdType As CommandType) As DataTable        Using conn As New SqlConnection(ConnString)            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)  '关闭CMD命令            End Try        End Using    End Function    ''' <summary>    ''' 运行增、删、改操作(有參数)。使用Integer作为返回值类型。0操作失败。1操作成功    ''' </summary>    ''' <param name="cmdText">须要运行的语句</param>    ''' <param name="cmdType">推断SQL语句类型</param>    ''' <param name="sqlParameter">參数数组,參数没有限制</param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Function ParaDataManager(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal sqlParameter As SqlParameter()) As Integer        '使用Usingkeyword实例化连接字符串。给cmd赋值        Using conn As New SqlConnection(ConnString)            cmd.Parameters.AddRange(sqlParameter)            cmd.CommandType = cmdType   '设置一个值,解释cmdText            cmd.Connection = conn    '设置连接,全局变量            cmd.CommandText = cmdText '设置查询语句            Try                conn.Open()    '打开连接                Return cmd.ExecuteNonQuery   '运行操作                cmd.Parameters.Clear()      '清除參数            Catch ex As Exception        '抛出异常                Return 0            Finally                Call CloseConn(conn)                Call CloseCmd(cmd)            End Try        End Using    End Function    ''' <summary>    ''' 运行增、删、改操作(无參数)    ''' </summary>    ''' <param name="cmdType">同上</param>    ''' <param name="cmdText">同上</param>    ''' <returns></returns>    ''' <remarks></remarks>    Public Function NonParaDataManager(ByVal cmdType As CommandType, ByVal cmdText As String) As Integer        '使用Using keyword实例化连接字符串        Using conn As New SqlConnection(ConnString)            cmd.CommandText = cmdText      '设置查询语句            cmd.CommandType = cmdType      '设置SQL语句类型            cmd.Connection = conn          '设置连接            Try       '运行操作                conn.Open()                Return cmd.ExecuteNonQuery    '返回值            Catch ex As Exception                Return 0     '抛出异常。返回0表示操作失败            Finally                Call CloseCmd(cmd)                Call CloseConn(conn)            End Try        End Using    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 SubEnd Class

    sqlhelper类代码分为三部分。第一部分为数据库连接设置部分;第二部分是四个数据库操作,从上到下依次为:有參数的查询、无參数的查询、有參数的更新、无參数的更新;第三部分为关闭连接和销毁命令部分。每一次调用这个类,在结尾都须要关闭命令和连接。查询操作须要返回查询结果,没有返回值得须要返回Integer类型的0或1来推断是否操作成功。

看看D层代码时怎样调用sql helper的:

查询操作(有參数):

Imports System.Data.SqlClientImports System.DataImports Charge.DAL.sqlHelperPublic Class Login    Public user1 As Charge.Model.User    Dim strSQL As String    Dim help As New sqlHelper        Public Function SelectUsers(user1 As Charge.Model.User) As DataTable        strSQL = "select *  from User_Info where UserName=@UserName and PassWord=@PassWord"        Dim sqlPara As SqlParameter() = {        New SqlParameter("@UserName", user1.UserName),        New SqlParameter("@PassWord", user1.PassWord)        }        Return  help.ParaSelect(strSQL, CommandType.Text, sqlPara)    End FunctionEnd Class

    这个模块时登录模块,使用username和password作为參数,返回值为DataTable表格。

更新(加入)操作(有參数):

Imports System.Data.SqlClientImports Charge.DAL.sqlHelperImports System.DataPublic Class AddUsers    Dim strSQL As String    Dim help As New sqlHelper    Public Function AddUser(user3 As Charge.Model.User) As Integer        strSQL = "insert into [User_Info] (UserName,PassWord,Level,RealName)values(@UserName,@PassWord,@Level,@RealName) "        Dim sqlPara As SqlParameter() = {        New SqlParameter("@UserName", user3.UserName),        New SqlParameter("@PassWord", user3.PassWord),        New SqlParameter("@Level", user3.Level),        New SqlParameter("@RealName", user3.RealName)        }        Return help.ParaDataManager(strSQL, CommandType.Text, sqlPara)    End FunctionEnd Class
   这个模块时插入模块。使用了四个參数。返回值类型为Integer。


   这里没实用到设计模式,仅仅是进行了封装,没实用到泛化和继承。随着进一步的学习,会有更好的办法来解决反复的问题。



上一篇:ogg 12c OGG-01163
下一篇:剑指Offer——圆圈中最后剩下的数(约瑟夫环)

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。

好贷网好贷款