SQLHelper/SQLProcess2.vb

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

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Configuration
Imports System.Collections.Generic
Imports System.Text
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data.OleDb

Public Class SQLProcess2
    Private stConText As String
    Private sqlConn As New SqlConnection
    Private strMsg As String

    Public Sub New()

    End Sub
    Public Sub New(ByVal ConText As String)

    End Sub

    Public Sub sqlOpen(ByVal ConText As String)
        If sqlConn.State = System.Data.ConnectionState.Closed Then
            Try
                stConText = ConText
                sqlConn.ConnectionString = stConText
                sqlConn.Open()

            Catch generatedExceptionName As Exception
            End Try
        End If
    End Sub
    Public Function getConnection() As SqlConnection
        If sqlConn.State = System.Data.ConnectionState.Closed Then
            sqlConn.Open()
        End If
        Return sqlConn
    End Function
    Public Function getDataReader(ByVal strSql As String) As SqlDataReader
        sqlOpen()
        Dim sqlComd As SqlCommand
        sqlComd = New SqlCommand(strSql, sqlConn)
        Dim sqldr As SqlDataReader
        sqldr = sqlComd.ExecuteReader()
        Return sqldr
    End Function

    Public Sub sqlOpen()
        Dim ConText As String = System.Configuration.ConfigurationManager.AppSettings("SqlConn2")
        sqlOpen(ConText)
    End Sub


    Public Sub sqlClose()
        If Not sqlConn Is Nothing Then
            sqlConn.Close()