Asp.Net2.0(VB.Net)Access数据库连接类 - mylovepzq的专栏 - 优快云Blog

最新推荐文章于 2025-08-11 18:07:31 发布

EdisonGG

最新推荐文章于 2025-08-11 18:07:31 发布

阅读量920

点赞数

CC 4.0 BY-SA版权

文章标签： vb.net asp.net access 数据库 function string

本文链接：https://blog.youkuaiyun.com/EdisonGG/article/details/1879796

本文介绍了一个用于ASP.NET 2.0环境下使用VB.NET编写的Access数据库连接类。该类提供了多种查询方法，包括返回DataTable、DataSet及ArrayList等不同形式的数据结果。

摘要生成于 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中添加

调用时只要如下就行了
dim cn as new Connect("Conn")

本文转自
http://blog.youkuaiyun.com/mylovepzq/archive/2007/01/24/1492425.aspx