如何將文本文件轉換為SQL插入語句？

Question

我將上載一個文本文件，它將每行轉換為一個SQL插入語句，以便它可以插入數據庫中。

按照我的嘗試，這里存在3個問題：

1. 它將一次插入5倍的值
2. 所有的編號都應該跳過
3. 作為strSQL，我需要一個一個地插入arrayOutput來全部插入它們

這是我的文本文件

    No  Subject Code    Subject Name    Student ID  Student Name    Student Email   Lecturer Name   Lecturer Email
1   BSOA011 COMPUTERIZED PAYROLL    1751234-BSOA    WONG QI YI  dev.ng@outlook.com  LIM BEE HUI semd2019@gmail.com
2   SEMD008 COMPUTER NETWORKING 1851234-SEMD    LIM FENG FENG   dev.ng@outlook.com  NG WAI KONG semd2019@gmail.com
3   ITIN015 DISASTER RECOVERY MANAGEMENT    1851234-ITIN    HO DENG DENG    dev.ng@outlook.com  SZE CHEN NEE @ SOO CHEN NEE semd2019@gmail.com
4   ECOM004 WEB DEVELOPMENT SKILLS: WEB PROGRAMMING (PHP & MYSQL)   1851234-ECOM    KONG JIA WEN    dev.ng@outlook.com  TAN MING MING   semd2019@gmail.com
5   CGDD002 PRACTICAL ICT SKILLS    1951234-CGDD    CHONG SIAO YU   dev.ng@outlook.com  NG WAI KONG semd2019@gmail.com

這是我的代碼

 Private Sub ReadAndReplace()

    Dim file_contents As String = ""

    locationPath = Server.MapPath("~") & "File\" & filename

    If File.Exists(locationPath) Then
        Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(locationPath)
        reader.ReadLine() 'skip first line


        Do While reader.Peek() <> -1
            file_contents += reader.ReadLine

            Dim arrayOutput As String() = Split(file_contents, vbTab)


            Dim errMessage As String = ""
            Dim strConn As String = "server=localhost;port=3306; user id=root;" _
                             & "password=;database=school;SslMode=none"
            Dim oDBCon As New MySqlConnection(strConn)
            Try
                oDBCon.Open()

                'INSERT RECORD
                Dim strSQL As String = "INSERT INTO studentinfo(subject_code, subject_name, student_id,
                                        student_name, student_email, lecturer_name, lecturer_email)VALUES('" _
                                        & arrayOutput(1) & "','" & arrayOutput(2) & "','" & arrayOutput(3) _
                                        & "','" & arrayOutput(4) & "','" & arrayOutput(5) _
                                        & "','" & arrayOutput(6) & "','" & arrayOutput(7) & "');"


                Dim oCommand2 As New MySqlCommand(strSQL, oDBCon)
                oCommand2.ExecuteNonQuery()

            Catch ex As Exception
                errMessage = ex.Message
            Finally
                oDBCon.Close()
            End Try
        Loop
        reader.Close()
    End If

End Sub

我的輸出

Answer 1

注意這一行：

file_contents += reader.ReadLine

它被添加到初始file_contents變量中，因此當拆分它以創建arrayOutput時，前7個數組元素始終是相同的。

也許嘗試一下file_contents = reader.ReadLine，這樣每次迭代只拆分一行。