|
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()
|