как вставить строки в datagridview в sql, если datagridview имеет определенные критерии c в указанной ячейке c? - PullRequest
0 голосов
/ 18 апреля 2020

Я пытаюсь добавить все строки в datagridview в базе данных sql, в которой указан c текст «оранжевый», но когда я добавляю, выдает ошибку, что supid не предоставлен. Может кто-то направить меня. моя таблица данных выглядит как

enter image description here

введите код здесь

Private Sub orange ()

    Using cn As New SqlConnection("server= .\SQLEXPRESS; database = software; integrated security=true")
            Using cmd5 As New SqlCommand("INSERT INTO orangedata (supid,date,docno,name,qty,value) VALUES (@supid,@date,@docno,@name,@qty,@value)", cn)
                cmd5.Parameters.Add("@supid", SqlDbType.NChar)
                cmd5.Parameters.Add("@date", SqlDbType.VarChar)
                cmd5.Parameters.Add("@docno", SqlDbType.VarChar)
                cmd5.Parameters.Add("@name", SqlDbType.VarChar)
                cmd5.Parameters.Add("@qty", SqlDbType.VarChar)
                cmd5.Parameters.Add("@value", SqlDbType.VarChar)
            For Each rw As DataGridViewRow In DataGridView2.Rows

                With cmd5
                    If rw.Cells(0).Value = "Orange" Then
                        .Parameters("@supid").Value = combobox6.text
                        .Parameters("@date").Value = Now.ToString
                        .Parameters("@docno").Value = Val(Label5.Text)
                        .Parameters("@name").Value = rw.Cells(7).Value
                        .Parameters("@qty").Value = rw.Cells(8).Value
                        .Parameters("@value").Value = rw.Cells(1).Value
                    End If
                End With
                cn.Open()
                cmd5.ExecuteNonQuery()
                cn.Close()
            Next
        End Using 
        End Using

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...