mdb.vb

来自「《精通ASP.NET网络编程》附带实例」· VB 代码 · 共 41 行

Imports System
Imports System.Data
Imports System.Data.OleDb
Namespace MyMdb
   Public Class Mdb
   Private ConnStr As String
   Private Index   As Integer
   Public Sub New (PathName As String) 
   ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;"+"Data Source="+PathName
   End Sub
   Public Function GetDataReader(SelectSQL As String) As OleDbDataReader
     Dim Conn As OleDbConnection    
     Dim Cmd As OleDbCommand
     Conn=New OleDbConnection(ConnStr)   
     Cmd = New OleDbCommand(SelectSQL, Conn) 
     Conn.Open()
     GetDataReader=Cmd.ExecuteReader()
   End Function
   Public Function GetDataView(SelectSQL As String) As DataView
     Dim Conn As OleDbConnection
     Dim Cmd As OleDbDataAdapter
     Dim ds As DataSet
     Dim TableName As String
     Conn=New OleDbConnection(ConnStr)
     Cmd = New OleDbDataAdapter(SelectSQL, Conn)
     Index+=1
     TableName = "Table" & Index
     ds=new DataSet
     Cmd.Fill(ds, TableName)
     GetDataView = new DataView(ds.Tables(TableName))
   End Function
  Public Sub ExecuteSQL(ActionQuery As String) 
     Dim Cmd As OleDbCommand
     Dim Conn As OleDbConnection=New OleDbConnection(ConnStr)
     Cmd = New OleDbCommand(ActionQuery, Conn) 
     Conn.Open()
     Cmd.ExecuteNonQuery()
   End Sub
   End Class
End Namespace