TextFieldParser для чтения файла и вставки в базу данных

Question

Я пытаюсь прочитать данные из CSV-файла и вставить данные в базу данных mysql. Файл .csv и база данных имеют 4 столбца.

Я могу вставить данные в базу данных. Соединения работают нормально, но я не могу получить поля из .csv-файла в правильных полях в базе данных.

Как я могу получить поле из CSV-файла в том же поле в базе данных с помощью метода, который я использую?

Мой код похож на этот:

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\ParserText.csv") 
MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited 
MyReader.Delimiters = New String() {","} 
Dim currentRow As String() 
While Not MyReader.EndOfData 
    Try 
     currentRow = MyReader.ReadFields() 
     For Each currentField As String In currentRow 

      /*Use sql to insert data to database here*/ 

      cmd.commandText = "INSERT INTO mydatabase(column1, column2, column3, column4) VALUES(??, ??, ??, ??)" 
      cmd.ExecuteNonQuery() 

     Next 
    Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException 
     MsgBox("Line " & ex.Message & " is invalid. Skipping") 
    End Try 
    End While 
End Using 

Answer 1

попробовать этот код

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\ParserText.csv") 
    dim table as new datatable 
MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited 
    MyReader.Delimiters = New String() {","} 
    myreader.Readline() 

Do Until myreader.EndOfData = True 
    table.Rows.Add(myreader.ReadFields()) 
Loop 
         'Use sql to insert data to database here 
    for intconut=0 to table.rows.count-1 
       cmd.commandText = "INSERT INTO mydatabase(column1, column2, column3, column4) VALUES('" &table.rows(intcount).item(0) & "','" & table.rows(intcount).item(1) & "','" & table.rows(intcount).item(2) & "', '" & table.rows(intcount).item(3)) & "')" 
       cmd.ExecuteNonQuery() 

    Next 
     Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException 
      MsgBox("Line " & ex.Message & " is invalid. Skipping") 
     End Try 
     End While 
    End Using 

это может помочь.

Answer 2

Без использования sql parameterised queries. Вы можете изменить внутри вашего пункта в то время, чтобы соответствовать следующим образом:

While Not MyReader.EndOfData 
    Try 
     currentRow = MyReader.ReadFields() 

     cmd.commandText = string.Format("INSERT INTO mydatabase(column1, column2, column3, column4) VALUES (""{0}"", ""{1}"", ""{2}"", ""{3}"")", currentRow[0], currentRow[1], currentRow[2], currentRow[3]) 

     cmd.ExecuteNonQuery() 

     Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException 
     MsgBox("Line " & ex.Message & " is invalid. Skipping") 
    End Try 
End While 

После того, как вы понимаете, как работает этот код, вы должны смотреть, чтобы заменить его на parameterised query.