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

GFU-Schulungen  [Anzeige]

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

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!