vb.net：制表符分隔的文本文件导入以访问数据库

Question

谁能告诉我为什么我的代码不导入制表符分隔的文本文件，但适用于逗号分隔的文本文件，我怎样才能使它适用于制表符分隔文件？

代码如下

    Private Sub btnSelectFile_Click(sender As Object, e As EventArgs) Handles btnSelectFile.Click

    Dim AccessConn As New OleDb.OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source= (Provider=Microsoft.ACE.OLEDB.12.0; Data Source= C:\Users\Me\Documents\ShipmentDB.accdb;")

    Dim FileName As String
    Dim FilePath As String
    Dim TargetPath As String
    Dim FilePathLength As Integer = 0

    'Get Text File Location that user need to import (AskForFile is a OpenDialogBox)

    AskForFile.Reset()
    AskForFile.Title = "Select File you want To inport"
    AskForFile.Filter = "Text File|*.txt|All Files|*.*"
    AskForFile.Multiselect = False
    AskForFile.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    AskForFile.ShowDialog()

    FileName = AskForFile.SafeFileName.ToString
    TargetPath = AskForFile.FileName.ToString
    FilePathLength = Len(TargetPath) - Len(FileName)

    FilePath = TargetPath.Substring(0, FilePathLength)

    Try
        AccessConn.Open()

        Dim DeleteTable As New System.Data.OleDb.OleDbCommand("DROP TABLE AmazonData;", AccessConn)
        DeleteTable.ExecuteNonQuery()

        Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT *  INTO AmazonData FROM [Text;DATABASE=" & FilePath & "].[" & FileName & "]", AccessConn)
        AccessCommand.ExecuteNonQuery()

    Catch ex As Exception
        AccessConn.Close()
        MessageBox.Show("Error Occured")
        Exit Sub
    End Try

    MessageBox.Show("Process Complete. Check and verify the database")

    AccessConn.Close()

End Sub

Answer 1

您应该注意，您正在删除表，而不是删除数据。 在您的第一个命令中尝试“从 AmazonData 中删除”而不是“DROP TABLE AmazonData”。