VB.NEt - Access

Phill

Hallo,
ist es möglich mit VB.NET so eine Access Datenbank aufzurufen das ich z.B. nur eine SQL Abfrage an diese Schicke und die Rückgabe (Sprich passenden Spalten + Werte) in ein DataSet geschrieben werden, welches ich dann nach belieben auswerten kann?

mfg Phill

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

murray_de_luxe

Moin,
ja das geht. Ich benutze dazu eigentlich immer folgende class (Auszug):

Code

Imports System.Data.OleDb


Public Class mdbConn
   Protected Friend AppPath As String = Application.StartupPath & "\"
   Dim psw As String = "MEIN PASSWORT" 'wenn benötigt
   Dim db As String = "mydb.mdb"
   Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db & ";Jet OLEDB:Database Password=" & psw & ";"


   'hier nun spezielle Funktion wie gewünscht laut deiner Anfrage
   Public Function goGetDataSet(ByVal sQry As String) As DataSet
        Dim oDataSet As New DataSet
        Dim oConnection As New OleDb.OleDbConnection(sConnectionString)
        Dim oCommand As New OleDb.OleDbCommand(sQry, oConnection)
        Dim oDataAdapter As OleDb.OleDbDataAdapter


        Try
            oConnection.Open()
            oDataAdapter = New OleDb.OleDbDataAdapter(sQry, oConnection)
            oDataAdapter.Fill(oDataSet)


            Return oDataSet


        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
        Finally
            oConnection.Close()
        End Try


    End Function
End Class

Alles anzeigen

Natürlich könntest die Class noch erweitern.
Aufruf wäre dann z.B. :

Code

Dim clsMDB as new mdbConn
Dim sqlResult as DataSet  = clsMDB.goGetDataSet("Select * from blalba Where blabla = 1")
'... mache was mit sqlResult

Liebe Grüsse, murray_de_luxe

Jetzt mitmachen!