Läsa in data till en datagrid

 

I detta tips demonstreras hur vi läser in data till en datagrid i en Windows Form från en stängd arbetsbok.

Följande "namespaces" måste importeras till projektet:

 

 Const stFile As String = "c:\Datasource.xls"

 

        Const stCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;"

                      & "Data Source=" & stFile & ";" _

                      & "Extended Properties=""Excel 8.0;HDR=YES"";"

 

        'Cellområdet är namngivet till Source och innehåller också fältnamnen.

        'Fältnamnen läggs automatiskt till Datagriden.

 

        Dim stSQL As String = "SELECT * FROM [Source]"

        Dim cn As New OleDbConnection(stCon)

        cn.Open()

 

        Dim da As New OleDbDataAdapter(stSQL, cn)

 

        'Namnet på Dataset visas längst upp i Datagriden.

        Dim ds As New DataSet

 

        'Tilldela Dataset data.

        da.Fill(ds, "XLData")

 

        cn.Close()

 

        'Tilldela Datagriden data.

        With Me.DataGrid1

            .SetDataBinding(ds, "XLData")

            .Refresh()

        End With

 

        'Frigöra objekt från minnet.

        ds = Nothing

        da.Dispose()

        cn = Nothing