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 IntegerDim ConnStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnStr")Dim conn As SqlConnection = New SqlConnection(ConnStr)'定义一个命令对象Dim cmd As New SqlCommandcmd = New SqlCommand(cmdText, conn)   'budongcmd.CommandType = cmdTypecmd.Parameters.AddRange(paras)Dim res As Integer  '定义一个变量用户存放返回结果Try'打开数据库If conn.State = ConnectionState.Closed Thenconn.Open()End Ifres = cmd.ExecuteNonQuery()Catch ex As ExceptionMsgBox(ex.Message, "数据库操作")Finally'关闭数据库If conn.State = ConnectionState.Open Thenconn.Close()End IfEnd TryReturn 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 IntegerDim ConnStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnStr")Dim conn As SqlConnection = New SqlConnection(ConnStr)Dim cmd As New SqlCommand  '定义一个命令对象cmd.CommandType = cmdTypecmd = New SqlCommand(cmdText, conn)Dim res As Integer  '定义一个变量用户存放返回结果'cmd.Parameters.AddRange(paras)     该方法没有參数，不用加入Try'打开数据库If conn.State = ConnectionState.Closed Thenconn.Open()End Ifres = cmd.ExecuteNonQuery()Catch ex As ExceptionMsgBox(ex.Message, "数据库操作")Finally'关闭数据库If conn.State = ConnectionState.Open Thenconn.Close()End IfEnd Try'返回受影响的行数Return resEnd 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 DataTableDim strConnStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnStr")'定义一个数据库连接对象  Dim conn As SqlConnection = New SqlConnection(strConnStr)'定义一个命令对象  Dim cmd As New SqlCommandDim adataset As DataSet'定义一个适配器对象  Dim adaptor As SqlDataAdaptercmd = New SqlCommand(cmdTxt, conn)adaptor = New SqlDataAdapter(cmd)adataset = New DataSetcmd.CommandType = cmdTypecmd.Parameters.AddRange(paras)Try'打开数据库连接  If conn.State = ConnectionState.Closed Thenconn.Open()End If'填充数据集  adaptor.Fill(adataset)Return adataset.Tables(0)Catch ex As ExceptionMsgBox(ex.Message)Finally'关闭数据库连接  If conn.State = ConnectionState.Open Thenconn.Close()End IfEnd TryEnd 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 DataTableDim strConnStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnStr")'定义一个数据库连接对象  Dim conn As SqlConnection = New SqlConnection(strConnStr)'定义一个命令对象 Dim cmd As New SqlCommandDim adataset As DataSet'定义一个适配器对象  Dim adaptor As SqlDataAdaptercmd = New SqlCommand(cmdTxt, conn)adaptor = New SqlDataAdapter(cmd)adataset = New DataSetcmd.CommandType = cmdType'cmd.Parameters.AddRange(paras)  没有參数，无需加入Try'打开数据库连接  If conn.State = ConnectionState.Closed Thenconn.Open()End If'填充数据集  adaptor.Fill(adataset)Return adataset.Tables(0)Catch ex As ExceptionMsgBox(ex.Message, , "数据库操作")Finally'关闭数据库连接  If conn.State = ConnectionState.Open Thenconn.Close()End IfEnd TryEnd FunctionEnd Class