Member 11045819 Ответов: 1

Данные Datagridview должны храниться в другой таблице


Мне нужно добавить текущие данные shows datagridview в другую таблицу. Если я добавлю данные, база данных должна взять последние данные в datagridview. Пожалуйста, ребята, мне нужна ваша помощь, направьте меня.

Что я уже пробовал:

Try
                    con = New SqlConnection(cs)
                    con.Open()

                    Dim sqlInsertT2 As String = ""
                    For i As Integer = 0 To DataGridView1.RowCount - 1
                        sqlInsertT2 &= " Insert Into Techsp(Jobno,Qty,Jobid,Item,AU,ItemQty,Category,TotalQty) Values ('" & TextBox1.Text & "','" & TextBox4.Text & "','" & TextBox6.Text & "','" & DataGridView1.Rows(i).Cells("Items").Value & "','" & DataGridView1.Rows(i).Cells("A/U").Value & "','" & DataGridView1.Rows(i).Cells("Item Qty").Value & "','" & DataGridView1.Rows(i).Cells("Category").Value & "',@TotalQty);"
                        cmd = New SqlCommand(sqlInsertT2)
                        cmd.Connection = con
                        Dim iresult As Integer
                        iresult = Val(TextBox4.Text) * Val(DataGridView1.Rows(i).Cells("Item Qty").Value)
                        cmd.Parameters.AddWithValue("Jobno", TextBox1.Text)
                        cmd.Parameters.AddWithValue("Qty", TextBox4.Text)
                        cmd.Parameters.AddWithValue("Jobid", Textbox6.Text)
                        cmd.Parameters.AddWithValue("Item", DataGridView1.Rows(i).Cells("Items").Value)
                        cmd.Parameters.AddWithValue("AU", DataGridView1.Rows(i).Cells("A/U").Value)
                        cmd.Parameters.AddWithValue("ItemQty", DataGridView1.Rows(i).Cells("Item Qty").Value)
                        cmd.Parameters.AddWithValue("Category", DataGridView1.Rows(i).Cells("Category").Value)
                        cmd.Parameters.AddWithValue("@TotalQty", iresult)
                    Next
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
                cmd.ExecuteReader()

1 Ответов

Рейтинг:
0

Gdno

Попробовать это:

Dim NewTable As Datatable = DataGridView1.DataSource.Copy