如何將多個cvs文件從文件夾添加到數據庫中

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