Question

爵士我试图将数据插入数据库我使用vb2008和sql作为后端

错误是“变量名称'@Item'已经被声明。变量名在查询批处理或存储过程中必须是唯一的。”

这是我的代码

Private Sub ButtonSubmit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSubmit.Click

        con = New SqlConnection(s)
        con.Open()

        sql = "INSERT INTO TableSpecial (RequestNo, RegNo, JobNumber, Kilometer, Preparedby, GzlNo, Chassis, Engine, VehicleType, Division, Createdby, Date) VALUES (@RequestNo, @RegNo, @JobNumber, @Kilometer, @Preparedby, @GzlNo, @Chassis, @Engine, @VehicleType, @Division, @Createdby, @Date)"
        cmd = New SqlCommand(sql, con)


        cmd.Parameters.Add("@RequestNo", SqlDbType.NChar).Value = Trim(LabelReqNo.Text)
        cmd.Parameters.Add("@RegNo", SqlDbType.NChar).Value = Trim(ListBoxRegNo.SelectedItem)
        cmd.Parameters.Add("@JobNumber", SqlDbType.NChar).Value = Trim(TextBoxJobNo.Text)
        cmd.Parameters.Add("@Kilometer", SqlDbType.NChar).Value = Trim(TextBoxKM.Text)
        cmd.Parameters.Add("@Preparedby", SqlDbType.NChar).Value = Trim(TextBoxReqby.Text)
        cmd.Parameters.Add("@Createdby", SqlDbType.NChar).Value = Trim(TextBoxPreparedby.Text)
        cmd.Parameters.Add("@GzlNo", SqlDbType.NChar).Value = Trim(LabelGzlNo.Text)
        cmd.Parameters.Add("@Division", SqlDbType.NChar).Value = Trim(LabelDivision.Text)
        cmd.Parameters.Add("@Chassis", SqlDbType.NVarChar).Value = Trim(LabelChassis.Text)
        cmd.Parameters.Add("@Engine", SqlDbType.NVarChar).Value = Trim(LabelEngine.Text)
        cmd.Parameters.Add("@VehicleType", SqlDbType.NVarChar).Value = Trim(LabelVehicleType.Text)
        cmd.Parameters.Add("@Date", SqlDbType.DateTime).Value = LabelTime.Text


        For Each row As DataGridViewRow In DataGridView1.Rows

            If Not row.IsNewRow Then

                For i As Integer = 0 To DataGridView1.RowCount - 1

                    cmd.Parameters.Add("Item", SqlDbType.NVarChar).Value = Me.DataGridView1.Rows(i).Cells("Itemm").Value
                    cmd.Parameters.Add("Qty", SqlDbType.NChar).Value = Me.DataGridView1.Rows(i).Cells("Qtyy").Value



                Next
                'cmd.Parameters.Add("@Item", SqlDbType.NVarChar).Value = row.Cells(0).Value.ToString
                ' cmd.Parameters.Add("@Qty", SqlDbType.NChar).Value = row.Cells(1).Value.ToString

            End If

        Next
        Dim result As Integer

        result = cmd.ExecuteNonQuery()

        If result = 1 Then
            MsgBox("Saved!!", MsgBoxStyle.Information, _
                   "Success")

        Else
            MsgBox("Updation incomplete!!", MsgBoxStyle.Information, _
                   "Updation not complete")
        End If
        con.Close()
        Autogenerate_ReqNo()

    End Sub

Answer 1

您不能在一个插入值语句中插入多个记录。每行需要调用一次execute语句。在那种情况下，然后在循环内的每个调用使用相同的cmd对象。这对于循环的第一次迭代是可以的，但对于第二次和所有后续迭代，cmd对象已经有一个名为＆＃34; item＆＃34;的参数。添加。您需要清除循环中的命令参数。尝试在循环开始时添加cmd.Parameters.Clear（）。

Answer 2

如果使用相同的SQLCommand对象，请单独插入并在每个插入之间使用
cmd.Parameters.Clear()

。

插入数据网格视图数据时出错

2 个答案: