dotNETportal.cz

Excel už se podařil načíst dle knihy VB - 1001 tipů a triků.

Tak ještě něco musím udělat s tím CSV souborem.

Bude tam potřeba zapracovat Microsoft Text Driver dle O.L.

WiCC Logging má výstup i v Microsoft SQL database, asi pro vizualizaci použiji tento datový zdroj.

Zdeněk

        Dim DS As System.Data.DataSet
        Dim mComm As System.Data.OleDb.OleDbDataAdapter
        Dim mConn As System.Data.OleDb.OleDbConnection
        Dim mTable As DataTable
        Dim mRow As DataRow
        Dim mCol As DataColumn

        ' Vytvoření připojení k sešitu kalkulátoru MS Excel 
        mConn = New System.Data.OleDb.OleDbConnection( _
          "provider=Microsoft.Jet.OLEDB.4.0; " & _
          "data source=" & _
          "D:\Visual Basic\Testy\Excel jako z databáze\kuchyn.xls; " & _
          "Extended Properties=Excel 8.0;")

        ' Tabulkám odpovídají jednotlivé listy sešitu
        mComm = New System.Data.OleDb.OleDbDataAdapter( _
              "Select * from [Pacient$]", mConn)

        ' Vytvoření datové sady dat pro tabulku
        DS = New System.Data.DataSet

        DataGridView1.ReadOnly = True

        Try
            mComm.Fill(DS, "ObjednavkyVKuchyni")
        Catch ex As Exception
            Throw New ApplicationException("Excel-VB.", ex)
        End Try

        ' Načtení dat do komponenty DataGrid
        DataGridView1.DataSource = DS.Tables("ObjednavkyVKuchyni")
        DataGridView1.Refresh()

        mConn.Close()