App_Code/DBHelp.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Collections.Generic
Imports System.Data
Imports System.Data.SqlClient
Imports System.Linq
Imports System.Text
Imports System.Configuration





Public Class DBHelp

    Private Shared connection As SqlConnection
    ''' <summary>
    ''' 获取连接数据库对象
    ''' </summary>
    Public Shared ReadOnly Property GetConnection() As SqlConnection
        Get
            Dim connectionStr As String = System.Configuration.ConfigurationManager.AppSettings("ConnectionStr") '"server=.\SQLEXPRESS;database=BookSystemDB;user=sa;pwd=morrowsoft"
            'Dim connectionStr As String = "server=.\SQLEXPRESS;database=BookSystemDB;user=sa;pwd=morrowsoft"
            ' Dim config As System.Configuration.Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
            'Dim appSettings As System.Configuration.AppSettingsSection = CType(config.GetSection("appSettings"), System.Configuration.AppSettingsSection)

            ' connectionStr = appSettings.Settings("strCon").Value
            If connection Is Nothing Then
                connection = New SqlConnection(connectionStr)
                connection.Open()
            ElseIf connection.State = ConnectionState.Closed Then
                connection = New SqlConnection(connectionStr)
                connection.Open()
            ElseIf connection.State = ConnectionState.Broken Then
                connection.Close()
                connection.Open()
            End If
            Return connection
        End Get
    End Property
    '创建SqlCommand对象 sql语句不带参数
    Public Shared Function Command(ByVal strSql As String) As SqlCommand
        Using cmd As New SqlCommand(strSql, GetConnection)
            Return cmd
        End Using
    End Function
    '创建SqlCommand对象 sql语句带参数
    Public Shared Function Command(ByVal strSql As String, ByVal ParamArray values As SqlParameter()) As SqlCommand
        Dim cmd As New SqlCommand(strSql, GetConnection)
        If values IsNot Nothing Then
            cmd.Parameters.AddRange(values)
        End If
        Return cmd
    End Function
    '返回前向只读的结果集对象 sql语句不带参数(查询)
    Public Shared Function ExecuteReader(ByVal strSql As String) As SqlDataReader

        Using cmd As SqlCommand = Command(strSql)
            Dim sdr As SqlDataReader


            Return cmd.ExecuteReader()