web/App_Code/ExportData.vb

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

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

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

Public Class ExportData
    Private stConText As String
    Private sqlConn As New OleDbConnection
    Private strMsg As String


    Public Sub New()

        'sqlOpen()
    End Sub
    Public Sub New(ByVal ConText As String)
        'sqlOpen(ConText)
    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 OleDbConnection
        If sqlConn.State = System.Data.ConnectionState.Closed Then
            sqlConn.Open()


        End If
        Return sqlConn
    End Function
    Public Function getDataReader(ByVal strSql As String) As OleDbDataReader
        sqlOpen()
        Dim sqlComd As OleDbCommand
        sqlComd = New OleDbCommand(strSql, sqlConn)
        Dim sqldr As OleDbDataReader
        sqldr = sqlComd.ExecuteReader()
        Return sqldr
    End Function

    Public Sub sqlOpen()
        Dim page As New System.Web.UI.Page()
        Dim ConText As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + page.Server.MapPath(ConfigurationManager.ConnectionStrings("export").ConnectionString) + "Extended Properties='excel 8.0;hdr=no';Persist Security Info=False"
        sqlOpen(ConText)
    End Sub


    Public Sub sqlClose()