Asp.Net2.0(VB.Net)Access数据库连接类

最新推荐文章于 2025-08-11 17:57:06 发布

原创最新推荐文章于 2025-08-11 17:57:06 发布 · 1.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #asp.net #access #数据库 #function #string

本文介绍了一个用于ASP.NET 2.0应用程序中连接Access数据库的VB.NET类。该类提供了一种简便的方法来配置和使用数据库连接，包括执行查询并返回DataTable或DataSet。通过在Web.Config文件中设置连接参数简化了配置过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Asp.Net2.0(VB.Net)Access数据库连接类Imports System.Data.OleDb
Imports System.Configuration
Imports System.data
Public Class Connect
    '声明联接字符串
    Private connectionString As String
    Private myConnection As OleDbConnection
    Private myCommand As OleDbCommand
    Private myAdpt As OleDbDataAdapter

    Public Sub New(ByVal config_string As String)
        connectionString = System.Configuration.ConfigurationManager.AppSettings(config_string) + System.Web.HttpContext.Current.Server.MapPath(ConfigurationManager.AppSettings("data"))
        myConnection = New OleDbConnection(connectionString)
    End Sub
    Public Function QueryForTable(ByVal qs As String) As DataTable
        Dim dt As New DataTable("temp")
        myAdpt = New OleDbDataAdapter(qs, myConnection)
        myAdpt.Fill(dt)
        Return dt
    End Function
    Public Function QueryForSet(ByVal qs As String) As DataSet
        Dim dt As New DataSet()
        myAdpt = New OleDbDataAdapter(qs, myConnection)
        myAdpt.Fill(dt)
        Return dt
    End Function
    Public Function QueryForReader(ByVal qs As String, ByVal bAddSpaceItem As Boolean) As ArrayList
        Dim thisReader As OleDbDataReader
        Dim values As ArrayList = New ArrayList
        myConnection.Open()
        myCommand = myConnection.CreateCommand()
        myCommand.CommandText = qs
        '打开数据连接
        thisReader = myCommand.ExecuteReader()
        If bAddSpaceItem = True Then
            values.Add("")
        End If
        Do While thisReader.Read
            values.Add(Trim$(thisReader(0)))
        Loop
        '关闭数据连接
        thisReader.Close()
        myConnection.Close()
        Return values
    End Function
End Class