Schnell mal ein DataGridView mit einer Access Datenbank befüllen (nur Anzeige)

    • .NET (FX) 4.5–4.8
    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Tweety2016.

      Schnell mal ein DataGridView mit einer Access Datenbank befüllen (nur Anzeige)

      Vielleich benötigt der eine oder andere von Euch eine Funktion mit der er rasch eine DataGridView mit einer Access-Datenbank-Tabelle füllen kann. Nur zur Widergabe der Daten:



      VB.NET-Quellcode

      1. ' Im Beispiel wird auf einer Form einfach eine DataGridView mit dem Namen DataGridView1 positioniert
      2. ' Der Funktion wird einfach der Dateiname zur Datenbank, die entsprechende Datenbanktabelle, die SQL-Abfrage und das zu befüllende DataGrid als Parameter übergeben
      3. PutSQLAbfrageInDataGridView("c:\Daten\Northwind.mdb", "Tabelle1", "SELECT * FROM Tabelle1", DataGridView1)
      4. ''' <summary>
      5. ''' Befüllt das angegebene DataGridView mit der SQL-Abfrage einer Access-Datebenbank
      6. ''' </summary>
      7. ''' <param name="SQLString"></param>
      8. ''' <remarks></remarks>
      9. Public Sub PutSQLAbfrageInDataGridView(DatenbankName As String, TabellenName As String, SQLString As String, DatenGrid As DataGridView)
      10. Try
      11. If SQLString = "" Or DatenbankName = "" Or TabellenName = "" Or DatenGrid Is Nothing Then Exit Sub
      12. Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DatenbankName & "; Jet OLEDB:Database Password=" & "" & ";")
      13. Dim adapter As New OleDbDataAdapter(SQLString, conn)
      14. Dim dt As New DataTable(TabellenName)
      15. adapter.Fill(dt)
      16. DatenGrid.DataSource = dt
      17. conn.Close()
      18. Catch
      19. MessageBox.Show(SQLString, "SQL-Fehler in der Abfrage", MessageBoxButtons.OK, MessageBoxIcon.Information)
      20. End Try
      21. End Sub


      Bei mir funktioniert dies einwandfrei. Sollten dennoch Fehler gefunden werden, dann bitte kurze Info.

      LG Roland


      Das gehört wohl eher in den Sourcecode-Austausch -> verschoben
      -Artentus
      Liebe Grüße
      Roland Berghöfer

      Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Artentus“ ()

      Danke lieber VB1963,

      hast recht. dann wird der Code gleich etwas kürzer. Danke für die Info.

      VB.NET-Quellcode

      1. ' Im Beispiel wird auf einer Form einfach eine DataGridView mit dem Namen DataGridView1 positioniert
      2. ' Der Funktion wird einfach der Dateiname zur Datenbank, die SQL-Abfrage und das zu befüllende DataGrid als Parameter übergeben
      3. PutSQLAbfrageInDataGridView("c:\Daten\Northwind.mdb", "SELECT * FROM Tabelle1", DataGridView1)
      4. ''' <summary>
      5. ''' Befüllt das angegebene DataGridView mit der SQL-Abfrage einer Access-Datebenbank
      6. ''' </summary>
      7. ''' <param name="SQLString"></param>
      8. ''' <remarks></remarks>
      9. Public Sub PutSQLAbfrageInDataGridView(DatenbankName As String, SQLString As String, DatenGrid As DataGridView)
      10. Try
      11. If SQLString = "" Or DatenbankName = "" Or DatenGrid Is Nothing Then Exit Sub
      12. Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DatenbankName & "; Jet OLEDB:Database Password=" & "" & ";")
      13. Dim adapter As New OleDbDataAdapter(SQLString, conn)
      14. Dim dt As New DataTable("TempTable")
      15. adapter.Fill(dt)
      16. DatenGrid.DataSource = dt
      17. conn.Close()
      18. Catch
      19. MessageBox.Show(SQLString, "SQL-Fehler in der Abfrage", MessageBoxButtons.OK, MessageBoxIcon.Information)
      20. End Try
      21. End Sub


      LG Roland
      Liebe Grüße
      Roland Berghöfer

      Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
      <3 Danke für den Code.
      Hate als einen Fehler drin, konnte ihn aber durch dich beheben <3

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Neo127“ ()

      Leider nein, habe ich nie gebraucht.
      Liebe Grüße
      Roland Berghöfer

      Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at