_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Imports System.IO
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        End
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.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:\Speisepläne\Speiseplan VOM" & _
          "10.10.11-04.12.2011VOLLKOST.xls"
        Dim sTable As String = "Tabelle1"
        'MsgBox(Datei)
        ' 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 Me.DataGridView1
                .DataSource = oDs.Tables(0)
                .ReadOnly = True
                .Refresh()
            End With
        Catch ex As Exception
            MsgBox("Fehler beim Anzeigen der Excel-Daten! ( Bild aus Kamera )")
        Finally
            ' DB-Verbindung schließen
            oConn.Close()
        End Try
    End Sub
 
End Class