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

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")

 
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值