none
Gravar GRID em SQL Server RRS feed

  • Discussão Geral

  • 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.

    sexta-feira, 17 de maio de 2013 09:44

Todas as Respostas

  • 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

    sexta-feira, 17 de maio de 2013 12:27