ตอนนี้ให้โชว์หลายๆ Sheet ต่อกันใน GridView ได้แล้วค่ะ แต่ว่าอยากได้แบบที่ Get มาทีละเรคคอร์ด
โดยแต่ละชีทมีเรคคอร์ดไม่เท่ากัน
Code (VB.NET)
Private Sub btnImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImport.Click
Dim Ds As DataSet = New DataSet()
Dim dt As New DataTable()
Dim dtExcelSchema As DataTable
Dim i As Integer
If validatetext(txtfilename.Text) = False Then
Alert("Import", "กรุณาเลือกไฟล์ก่อนดำเนินการ")
Else
ModuleSCB.ChangeTypeLang()
MyConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & txtfilename.Text & ";Extended Properties=""Excel 12.0 Xml;HDR=no;""")
MyConnection.Open()
dtExcelSchema = MyConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
Dim test As Integer = dtExcelSchema.Rows.Count - 1
For i = 0 To test 'get Sheet
Dim SheetName As String = dtExcelSchema.Rows(i)("TABLE_NAME").ToString()
MyConnection.Close()
MyConnection.Open()
MyCommand = New OleDb.OleDbDataAdapter("SELECT * FROM [" & SheetName & "] ", MyConnection)
MyCommand.Fill(dt)
DataGridView1.DataSource = dt
Next i
MyConnection.Close()
End If
End Sub
Private Sub DemonstrateMergeTable()
Dim table1 As New DataTable("Items")
' Add columns
Dim column1 As New DataColumn("id", GetType(System.Int32))
Dim column2 As New DataColumn("item", GetType(System.Int32))
table1.Columns.Add(column1)
table1.Columns.Add(column2)
' Set the primary key column.
table1.PrimaryKey = New DataColumn() {column1}
' Add RowChanged event handler for the table.
AddHandler table1.RowChanged, AddressOf Row_Changed
' Add some rows.
Dim row As DataRow
For i As Integer = 0 To 3
row = table1.NewRow()
row("id") = i
row("item") = i
table1.Rows.Add(row)
Next i
' Accept changes.
table1.AcceptChanges()
PrintValues(table1, "Original values")
' Create a second DataTable identical to the first.
Dim table2 As DataTable = table1.Clone()
' Add three rows. Note that the id column can't be the
' same as existing rows in the original table.
row = table2.NewRow()
row("id") = 14
row("item") = 774
table2.Rows.Add(row)
row = table2.NewRow()
row("id") = 12
row("item") = 555
table2.Rows.Add(row)
row = table2.NewRow()
row("id") = 13
row("item") = 665
table2.Rows.Add(row)
' Merge table2 into the table1.
Console.WriteLine("Merging")
table1.Merge(table2)
PrintValues(table1, "Merged With table1")
End Sub
Private Sub Row_Changed(ByVal sender As Object, _
ByVal e As DataRowChangeEventArgs)
Console.WriteLine("Row changed {0}{1}{2}", _
e.Action, ControlChars.Tab, e.Row.ItemArray(0))
End Sub
Private Sub PrintValues(ByVal table As DataTable, _
ByVal label As String)
' Display the values in the supplied DataTable:
Console.WriteLine(label)
For Each row As DataRow In table.Rows
For Each col As DataColumn In table.Columns
Console.Write(ControlChars.Tab + " " + row(col).ToString())
Next col
Console.WriteLine()
Next row
End Sub
Load balance : Server 04
