Feedback

VB - Zugriff auf MS-Access Tabellen

Veröffentlicht von am 23.02.2009
(2 Bewertungen)
Eine einfache Klasse für den Einsteiger, welche den Umgang mit MsAccess vereinfacht.

Verbindung herstellen:

Dim mdbCon As = New mdbConnectClass("C:\Eigene Dateien\Database.mdb")


Tabelle laden:

Dim  mdbTbl as mdbClass = mdbCon.SqlToTable("SELECT * FROM TabellenName", "Name")


Anwenden von DataTable/DataView:

Dim dt as DataTable = mdbTbl.DataTable
''...
Dim dv as DataView = mdbTbl.DataView

Snippet in C# übersetzen
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
Abgelegt unter MSAccess.

2 Kommentare zum Snippet

Richard Rüegg schrieb am 27.04.2012:
As = New ... geht nicht. Fehlen Verweise oder was sollte da nach "As ... " stehen?
Fawk_18 schrieb am 07.05.2012:
Variablen Definitionen.... Grundlagen der Programmierung. Zwar ist das VB.NET aber man sollte schon ein paar Grundlagen wissen bevor man irgendwelche Snippets ausprobiert.
 

Logge dich ein, um hier zu kommentieren!