Imports System.Data
Imports System.Data.OleDb '1引入操作Access数据库的名称空间
Public Class AccessDb
Private Function GetConnStr() As String
GetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\" + "booksystem.mdb" + ";User Id=;Password=;" ' ConfigurationSettings '2获取web.config文件的数据库连接设置字串
End Function
Public Function ExecuteSqlStr(ByVal SqlStr As String) '该函数只执行SQL语句，不返回值
Dim AccessConn As New OleDb.OleDbConnection(GetConnStr) '3建立与Access数据库的连接
AccessConn.Open()
Dim AccessCom As New OleDb.OleDbCommand(SqlStr, AccessConn) '4建立命令对象
AccessCom.ExecuteNonQuery() '5执行SqlStr语句
AccessConn.Close() '6关闭连接
End Function
Public Function ExecuteSqlStrDetails(ByVal Sqlstr As String) As OleDbDataReader '7
Dim AccessConn As New OleDb.OleDbConnection(GetConnStr) '8建立与Access数据库的连接
AccessConn.Open()
Dim AccessCom As New OleDb.OleDbCommand(Sqlstr, AccessConn) '9建立命令对象
ExecuteSqlStrDetails = AccessCom.ExecuteReader(CommandBehavior.CloseConnection) '10执行Sql语句，返回二维表，并且关闭连接
End Function
Public Function ExecuteSqlStrDetailsByDataset(ByVal Sqlstr As String) As DataSet '11
Dim AccessConn As New OleDb.OleDbConnection(GetConnStr) '12建立与Access数据库的连接
AccessConn.Open()
Dim AccessCom As New OleDb.OleDbCommand(Sqlstr, AccessConn) '13建立命令对象
Dim AccessAdapter As New OleDbDataAdapter '14定义一个适配器
AccessAdapter.SelectCommand = AccessCom '通过适配器取得数据
Dim NewDataset As New DataSet
AccessAdapter.Fill(NewDataset) '把数据填充到Dataset
ExecuteSqlStrDetailsByDataset = NewDataset
AccessConn.Close() '关闭连接
End Function
End Class
