Вставка нескольких строк из dataGridview в одну строку в Microsoft Access - PullRequest
Новая
       30

Вставка нескольких строк из dataGridview в одну строку в Microsoft Access

0 голосов
/ 27 марта 2019

Я пытаюсь вставить несколько строк из datagridView в одну строку в таблице Microsoft Access.Приложение представляет собой систему Point of Sale.

Мне удалось добавить несколько строк из таблицы данных в таблицу базы данных, но она сохраняет их отдельно в таблице.Я хочу сохранить его в одной строке таблицы базы данных.

Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
    Try
        Using cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\inventory1.accdb")
            cn.Open()
            For Each row As DataGridViewRow In dgv_order_cart.Rows
                Using cmd2 As New OleDbCommand("INSERT INTO tblTransaction (Product_Name,Price,Qty,Amount) VALUES (@Product_Name,@Price,@Qty,@Amount)", cn)
                    cmd2.Parameters.AddWithValue("@Product_Name", OleDbType.VarChar)
                    cmd2.Parameters.AddWithValue("@Price", OleDbType.Currency)
                    cmd2.Parameters.AddWithValue("@Qty", OleDbType.Decimal)
                    cmd2.Parameters.AddWithValue("@Amount", OleDbType.Currency)

                    With cmd2
                        .Parameters("@Product_Name").Value = row.Cells(0).Value
                        .Parameters("@Price").Value = row.Cells(1).Value
                        .Parameters("@Qty").Value = row.Cells(2).Value
                        .Parameters("@Amount").Value = row.Cells(3).Value
                    End With

                    cmd2.ExecuteNonQuery()
                End Using
            Next
            'End Using 'You probably want to catch more specific exceptions
            'and handle them separately
        End Using
    Catch ex As Exception 'You probably want to catch more specific exceptions
        'and handle them separately
        'MessageBox.Show(ex.Message)
    End Try
    MessageBox.Show("TRANSACTION INSERTED SUCCESFULLY")
End Sub

Я хочу, чтобы множественные записи из таблицы данных были сохранены в одной строке таблицы базы данных.

...