Hallo liebes Forum,
ich habe ein Problem mit meinem Programm... Und zwar habe ich eine Excel Tabelle, die ich in ein Datagridview laden möchte. Den Code habe ich auch so weit, nur komischerweise bekomme ich immer die Fehlermeldung, dass es einen Fehler beim einlesen der Daten gab, obwohl ich den Pfad und alles angegeben habe.
Hier ist der Code:
Würde mich über Hilfe freuen.
ich habe ein Problem mit meinem Programm... Und zwar habe ich eine Excel Tabelle, die ich in ein Datagridview laden möchte. Den Code habe ich auch so weit, nur komischerweise bekomme ich immer die Fehlermeldung, dass es einen Fehler beim einlesen der Daten gab, obwohl ich den Pfad und alles angegeben habe.
Hier ist der Code:
VB.NET-Quellcode
- ' 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
Würde mich über Hilfe freuen.