複数のデータソースをdatagridviewに追加するvb.net

Question

複数のExcelファイルからデータをインポートするDataGridViewがあります。しかし、データをインポートするたびに、以前のデータが上書きされます。次のExcelファイルを前のデータグリッドビューの最後に追加するにはどうすればよいですか？

If DataGridView1.RowCount > 0 Then 
    MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\Work\4pc_test1.xlsx;Extended Properties=Excel 12.0;") 

    'MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & fd.FileName & "';Extended Properties=Excel 8.0;") 
    MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection) 
    MyCommand.TableMappings.Add("Table", "Net-informations.com") 
    DtSet = New System.Data.DataSet 
    MyCommand.Fill(DtSet) 

    'DataGridView1.DataSource = DtSet.Tables(0) 

    Dim tab As DataTable = DtSet.Tables(0) 
    DataGridView1.DataSource = tab 

    MyConnection.Close() 
Else 

    'The below connection allows for the opening of .xls files and .xlsx. The one reamed out below doesnt open up .xls files. 
    MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\Work\4pc_test1.xlsx;Extended Properties=Excel 12.0;") 

    'MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & fd.FileName & "';Extended Properties=Excel 8.0;") 
    MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection) 
    MyCommand.TableMappings.Add("Table", "Net-informations.com") 
    DtSet = New System.Data.DataSet 
    MyCommand.Fill(DtSet) 
    DataGridView1.DataSource = DtSet.Tables(0) 

    MyConnection.Close() 
End If 

Answer 1

あなたは、単に単一DataTable複数回を埋めることができ、行がDataTableこのように追加されます。たとえば、次のように別のExcelファイル内の列の

Try 
    Dim table = New DataTable() 
    Dim connection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
     "Data Source=D:\excel1.xlsx;" & _ 
     "Extended Properties=Excel 12.0;" 
    Using adapter As New OleDbDataAdapter("select * from [Sheet1$]", connection) 
     adapter.Fill(table) 
    End Using 
    connection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ 
     "Data Source=D:\excel2.xlsx;" & _ 
     "Extended Properties=Excel 12.0;" 
    Using adapter As New OleDbDataAdapter("select * from [Sheet1$]", connection) 
     adapter.Fill(table) 
    End Using 
    Me.DataGridView1.DataSource = table 
Catch ex As Exception 
    MessageBox.Show(ex.ToString()) 
End Try 

数が異なる可能性がありますが、同じ名前の列がある場合、これらの列のデータは同じタイプである必要があります。