vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Datenbanken · ADO.NET Allgemein   |   VB-Versionen: VB.NET17.01.07
Excel-Tabelle im DataGrid anzeigen (ADO.NET)

Dieser Tipp zeigt, wie man eine Excel-Tabelle mit wenig Aufwand im VB.NET DataGrid-Control anzeigen kann.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  24.574 
www.tools4vb.deSystem:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Vor langer Zeit haben wir Ihnen gezeigt, wie sich unter VB-Classic (VB5, VB6) eine Excel-Tabelle in einem DataGrid anzeigen lässt. Der nachfolgende Tipp zeigt diesmal, wie man das Ganze unter VB.NET in Verbindung mit ADO.NET realisiert.

Der "Datenbank-Zugriff" erfolgt hierbei über eine OleDbConnection und ein OleDbAdapter.

Platzieren Sie auf die Form ein DataGrid-Control und einen Button. Fügen Sie nachfolgenden Code in das Click-Event des Button ein und passen den Pfad zur Excel-Datei, sowie den Tabellennamen entsprechend an.

Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  ' Excel-Tabelle anzeigen
  Dim oDs As System.Data.DataSet
  Dim oConn As System.Data.OleDb.OleDbConnection
  Dim oAdapter As System.Data.OleDb.OleDbDataAdapter
 
  ' Pfad und Tabellennamen bitte anpassen!
  Dim sFile As String = "d:\excelfile.xls"
  Dim sTable As String = "Tabelle1"
 
  ' Connection-String für die DB.Verbindung zur Excel-Datei
  Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & sFile & ";" & _
    "Extended Properties=Excel 8.0;"
 
  ' Connection herstellen
  oConn = New System.Data.OleDb.OleDbConnection(sConn)
 
  ' Excel-Tabelle referenzieren
  ' Hinweis: Tabellenname muss mit abschließendem $-Zeichen und
  ' in eckigen Klammern stehen
  oAdapter = New System.Data.OleDb.OleDbDataAdapter( _
    "SELECT * FROM [" & sTable & "$]", oConn)
 
  ' DataSet erstellen und mit Daten aus dem DataAdapter füllen
  oDs = New System.Data.DataSet
  Try
    oAdapter.Fill(oDs)
 
    ' DataGrid füllen und Daten anzeigen
    With DataGrid1
      .DataSource = oDs.Tables(0)
      .ReadOnly = True
      .Refresh()
    End With
  Catch ex As Exception
    MsgBox("Fehler beim Anzeigen der Excel-Daten!")
  Finally
    ' DB-Verbindung schließen
    oConn.Close()
  End Try
End Sub

Dieser Tipp wurde bereits 24.574 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Aktuelle Diskussion anzeigen (8 Beiträge)

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel