Gravar GRID em SQL Server

Question

Bom dia, sou iniciante na programação e estou tentado salvar dados que estão em uma grid no banco...

O código que conseguir até agora é foi esse

 Sub cadastrarPizza()
        'Dim WF_OJGridFeriado As DataTable
        Dim WL_OjConnection As SqlConnection
        Dim WL_OjCommand As SqlCommand
        Dim WL_OjTransaction As SqlTransaction

        WL_OjConnection = New SqlConnection("Data Source= SIMONE-PC;Initial Catalog= bdBambinaPizza;Integrated Security=SSPI;")
        WL_OjConnection.Open()

        WL_OjTransaction = WL_OjConnection.BeginTransaction(IsolationLevel.ReadCommitted)
        WL_OjCommand = New SqlCommand
        WL_OjCommand.CommandTimeout = 54000
        WL_OjCommand.Connection = WL_OjConnection
        WL_OjCommand.Transaction = WL_OjTransaction

        Try
            For I = 0 To frmPrincipal.tabela.Rows.Count - 1
                WL_DSSQL = "INSERT INTO tbPedido(codVenda, codProduto, quantidade) "
                WL_DSSQL = WL_DSSQL + " VALUES "
                WL_DSSQL = WL_DSSQL + " ( " & ultimaVenda & " , " & frmPrincipal.tabela.Rows(I).Item("cod") & " ,' " & frmPrincipal.tabela.Rows(I).Item("quant") & " ')"

                WL_OjCommand.CommandText = WL_DSSQL
                WL_OjCommand.ExecuteNonQuery()
            Next

            MessageBox.Show("Pedido cadastrado com sucesso", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.None)
        Catch ex As Exception
            'MsgBox(ex.Message)
            MessageBox.Show("Pedido não cadastrado", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.None)
        End Try
    End Sub

No código acima o VB mostra a mensagem: Pedido cadastrado com sucesso, porém quando vou conferir no banco não salvo nada.

Alguém poderia me dá uma mãozinha.

Answer 1

Sub cadastrarPizza()
        'Dim WF_OJGridFeriado As DataTable
        Dim WL_OjConnection As SqlConnection
        Dim WL_OjCommand As SqlCommand
 
        WL_OjConnection = New SqlConnection("Data Source= SIMONE-PC;Initial Catalog= bdBambinaPizza;Integrated Security=SSPI;")
        WL_OjConnection.Open()

        WL_OjTransaction = WL_OjConnection.BeginTransaction(IsolationLevel.ReadCommitted)
        WL_OjCommand = New SqlCommand
        WL_OjCommand.Connection = WL_OjConnection
        
        Try
            For I = 0 To frmPrincipal.tabela.Rows.Count - 1
                WL_DSSQL = "INSERT INTO tbPedido(codVenda, codProduto, quantidade) "
                WL_DSSQL = WL_DSSQL + " VALUES "
                WL_DSSQL = WL_DSSQL + " ( " & ultimaVenda & " , " & frmPrincipal.tabela.Rows(I).Item("cod") & " ,' " & frmPrincipal.tabela.Rows(I).Item("quant") & " ')"

                WL_OjCommand.CommandText = WL_DSSQL
                WL_OjCommand.ExecuteNonQuery()
            Next

            MessageBox.Show("Pedido cadastrado com sucesso", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.None)
        Catch ex As Exception
            'MsgBox(ex.Message)
            MessageBox.Show("Pedido não cadastrado", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.None)
        End Try
    End Sub