You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.6 KiB
47 lines
1.6 KiB
Imports System.Data
|
|
Imports System.Data.OleDb
|
|
|
|
Public Class mdbConnectClass
|
|
Private mCn As OleDbConnection
|
|
Private mDataSet As New DataSet("Microsoft.Jet.OleDb.4.0")
|
|
Public Sub New(ByVal stMdbPath As String)
|
|
Dim stCn As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & stMdbPath
|
|
mCn = New OleDbConnection(stCn)
|
|
mCn.Open()
|
|
End Sub
|
|
Public Function SqlToTable(ByVal stSQL As String, ByVal stTableName As String) As mdbClass
|
|
Return New mdbClass(mCn, mDataSet, stSQL, stTableName)
|
|
End Function
|
|
Public ReadOnly Property DataSet() As DataSet
|
|
Get
|
|
Return mDataSet
|
|
End Get
|
|
End Property
|
|
End Class
|
|
Public Class mdbClass
|
|
Private mDataAdapter As New OleDbDataAdapter
|
|
Private mBuilder As OleDbCommandBuilder
|
|
Private mDataView As DataView
|
|
Public Sub New(ByVal obCn As OleDbConnection, ByVal objDataSet As DataSet, ByVal stSQL As String, ByVal stName As String)
|
|
mDataAdapter.SelectCommand = New OleDbCommand(stSQL, obCn)
|
|
mBuilder = New OleDbCommandBuilder(mDataAdapter)
|
|
mDataAdapter.Fill(objDataSet, stName)
|
|
mDataView = New DataView(objDataSet.Tables(stName))
|
|
End Sub
|
|
Public ReadOnly Property DataTable() As DataTable
|
|
Get
|
|
Return mDataView.Table
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property DataView() As DataView
|
|
Get
|
|
Return mDataView
|
|
End Get
|
|
End Property
|
|
Public Sub Update()
|
|
mBuilder.GetUpdateCommand()
|
|
mDataAdapter.Update(mDataView.Table)
|
|
End Sub
|
|
End Class
|
|
|