首页 > 解决方案 > 数据网格替换下一个文件数据而不是在第一个文件之后复制

问题描述

我有一个从特定文件夹复制 Excel 文件数据并将它们粘贴到数据网格视图的代码。

数据网格读取所有文件的所有数据,但它没有分别给出第一个文件和第二个文件的数据,而是用第二个文件数据替换第一个文件数据,结果总是给出最后一个文件data only 而不是一起提供第一个和第二个文件数据,我知道我的代码中缺少一些我不知道的东西

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If FolderBrowserDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
        DataGridView1.Rows.Clear()
        Dim Directory = FolderBrowserDialog1.SelectedPath
        Dim Files() As System.IO.FileInfo
        Dim DirInfo As New System.IO.DirectoryInfo(Directory)
        Files = DirInfo.GetFiles("*", IO.SearchOption.AllDirectories)
        For Each File In Files
            Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
            Dim DtSet As DataSet
            MyConnection = New System.Data.OleDb.OleDbConnection
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & File.FullName & "';  
Extended Properties=Excel 4.0;")
           MyCommand = New OleDbDataAdapter("select SN, BarMark, Diameter, Length, Quantity 
,BBSName from [SCHEDULE$]", MyConnection)
            MyCommand.TableMappings.Add("Table", "Test")
            DtSet = New DataSet
            MyCommand.Fill(DtSet)
            DataGridView1.DataSource = DtSet.Tables(0)
            MyConnection.Close()
        Next
    End If
End Sub

标签: sqldatagridoledb

解决方案


推荐阅读