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

关注

原创最新推荐文章于 2026-09-14 14:15:00 发布 960 阅读 AI 写同款· GEO 优化 ›

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.csdn.net/mylovepzq/archive/2007/01/24/1492425.aspx