Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        ' Definition von Pfad
        pfad = "~/App_Data/2.xlsx"
        Dim DBConnection = New OleDbConnection(
           "Provider=Microsoft.ACE.OLEDB.12.0;" &
         "Data Source=" & Server.MapPath(pfad) & ";" &
         "Extended Properties=""Excel 8.0;HDR=Yes""")
        DBConnection.Open()
        Dim SQLString As String = "SELECT * FROM [10 - Events$]" 
        Dim DBCommand = New OleDbCommand(SQLString, DBConnection)
        Dim DBReader As IDataReader = DBCommand.ExecuteReader()
        GridView1.DataSource = DBReader
        GridView1.DataBind()
        DBReader.Close()
        DBConnection.Close()
 
 
    End Sub

EALA FREYA FRESENA

EALA FREYA FRESENA

Public Class frmSelectRows
 
 
    Dim dtOrg As New DataTable
    Dim dtDistinct As DataTable
    Dim bsDistinct As New BindingSource
 
    Dim dgv As New DataGridView With {.Parent = Me}
 
 
    Private Sub frmSelectRows_Load(sender As System.Object, _
                                e As System.EventArgs) Handles MyBase.Load
 
        'Testdaten (statt der Angaben aus Excel)
        With dtOrg.Columns
            .Add("Address", GetType(String))
            .Add("Whatever", GetType(String))
            .Add("TimeStamp", GetType(Date))
        End With
 
        Dim rndm As New Random(12345)
        Dim adr() As String = {"AAA", "BBB", "CCC", "DDD", "EEE"}
        For i As Integer = 0 To 100
            dtOrg.Rows.Add(adr(rndm.Next(adr.Length)), _
                           "y<xcxycvxcvxc", Now.AddMinutes(rndm.Next(0, 5)))
        Next i
 
        'Überttragung der Datensätze
        dtDistinct = dtOrg.Clone()
        bsDistinct.DataSource = dtDistinct
 
        For i As Integer = 0 To dtOrg.Rows.Count - 1
            bsDistinct.Filter = _
            dtDistinct.Columns(0).ColumnName & _
                 "='" & dtOrg.Rows(i).Item(0).ToString & "'"
 
            If bsDistinct.Count = 0 Then
                'Spalteninhalt in Column Address noch nicht vorhanden .... 
                dtDistinct.Rows.Add(dtOrg.Rows(i).ItemArray)
            End If
        Next i
 
        bsDistinct.Filter = ""
        'Sätze anzeigen
        dgv.DataSource = bsDistinct
    End Sub
End Class