如何将多个csv文件从文件夹添加到数据库

Question

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim directory = "D:\Test"
Dim files() As System.IO.FileInfo
Dim dirinfo As New System.IO.DirectoryInfo(directory)
files = dirinfo.GetFiles("*.csv", IO.SearchOption.AllDirectories)

我得到了csv文件所在的目录信息。我想把所有csv文件都放到我的vb数据库中。我的数据库样本是zipcode;州;市。我尝试了很多方法来获取csv文件，但我只能获得一个csv文件到数据库。每天csv文件添加文件夹，我必须 将它们自动添加到数据库中。你能给我一个想法吗

Answer 1

如果您知道如何为一件物品做某事，那么您就知道如何为任意数量的物品做这件事。您只需将一个项目的代码放在循环中即可。在您的代码中，files是FileInfo个对象的数组。编写一个采用FileInfo对象的方法，并将该文件中的数据导入数据库。现在只需使用For Each循环枚举数组并为每个元素调用方法，例如

For Each file In files
    ImportData(file)
Next