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

本文介绍了一个用于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

在Web.Config中添加

 

<appSettings>
  <add key="Conn" value="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="/>
  <add key="data" value="~/DataBase/db1.mdb"/>
 </appSettings>

 

调用时只要如下就行了

dim cn as new Connect("Conn")

 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值