2014-02-04 4 views
-3

У меня возникла проблема с введением данных из представления списка в MySQL. Это то, что я получил до сих пор. Ошибка говорит, что количество столбцов не соответствует количеству значений в строке 1кол-во столбцов не соответствует количеству значений в строке 1

Dim sql As String 
    Dim con = New MySqlConnection("data source=localhost; user id=root; password=pwd;   database=db;") 
    Dim cmd = New MySqlCommand 
    Dim lvitem As Object 
    Dim iCount As Integer 
    Dim iLoop As Integer 

    iCount = ListPayroll.Items.Count() 
    Try 
     If Not ListPayroll.Items.Count = 0 Then 
      Do Until iLoop = ListPayroll.Items.Count 
       lvitem = ListPayroll.Items.Item(iLoop) 
       With lvitem 
        con.Open() 
        sql = "INSERT INTO attendancelist (empno, line1, time1, line2, time2, line3, time3, line4, time4, line5, time5, line6, time6) values('" & .SubItems(0).text & "','" & .SubItems(1).text & "','" & .SubItems(2).Text & "','" & .SubItems(3).Text & "','" & .SubItems(4).Text & "','" & .SubItems(5).Text & "', '" & .SubItems(6).Text & "', '" & .SubItems(7).Text & "', '" & .SubItems(8).Text & "','" & .SubItems(9).Text & "', '" & .SubItems(10).Text & "', '" & .SubItems(11).Text & "', '" & .SubItems(12).Text & "', '" & .SubItems(13).Text & "')" 
        cmd.Connection = con 
        cmd.CommandText = sql 
        cmd.ExecuteNonQuery() 
       End With 
       iLoop = iLoop + 1 
       lvitem = Nothing 
       con.Close() 
       MessageBox.Show("Record Saved!") 
      Loop 
     End If 
    Catch ex As Exception 
     MsgBox(ex.Message.ToString) 
    End Try 
+0

Вау, вы прекрасно открыты для SQL-инъекций. Вы должны использовать параметризованные запросы ... –

ответ

0

Вы пытаетесь вставить 14 значений в 13 столбцов.

+0

Спасибо! Извините, я немного дезориентировал последние несколько дней, разрабатывая эту систему начисления заработной платы. : P – elcabronel

+0

Он отлично работает, но теперь окно сообщений не перестает отображаться. Как я могу сделать это в одном общем приглашении? – elcabronel

+0

Попытайтесь переместить мое окно сообщения из петли – elcabronel

Смежные вопросы