none
ListView salvando no Access RRS feed

  • Pergunta

  • Boa tarde.

    Tenho um listview com 6 colunas (descrição, quantidade, peso unitário, R$ x Kg, R$ x Peça, subtotal) e preciso salvar os itens que eu adiciono, como faço?

    Código do botão incluir:

    Private Sub IncluirItemInd()
            Try
    
                'Add items in the listview
                Dim arr(6) As String
                Dim itm As ListViewItem
                Dim subtot As Double
                Dim rskg As Double = txtRsKgInd.Text
                Dim rspc As Double = txtRsPcInd.Text
    
    
                If txtPesoUnitInd.Text = "" Or txtQuantInd.Text = "" Or txtRsKgInd.Text = "" Or txtRsPcInd.Text = "" Then
                    MsgBox("Preencher todos os campos!", MsgBoxStyle.Exclamation, "Erro")
                Else
    
                    subtot = txtQuantInd.Text * txtPesoUnitInd.Text * rskg + (rspc * txtQuantInd.Text)
    
                    'Add first item
                    arr(0) = txtDescInd.Text
                    arr(1) = txtQuantInd.Text
                    arr(2) = txtPesoUnitInd.Text
                    arr(3) = rskg.ToString("C")
                    arr(4) = rspc.ToString("C")
                    arr(5) = subtot.ToString("C")
    
                    itm = New ListViewItem(arr)
                    lvItenInd.Items.Add(itm)
    
                End If
    
                Call SomarSubTotInd()
    
                txtCustoFabInd.Text = txtTotInd.Text
    
                Call PercItens()
    
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Erro crítico")
            End Try
        End Sub
    Obs.: Sou novato e estou aprendendo na raça! :D

    sexta-feira, 13 de junho de 2014 18:34

Respostas

  • Boa tarde Bruno,

    olha nesses links.

    http://stackoverflow.com/questions/15513359/how-to-save-items-in-a-listview-to-an-access-database

    http://social.msdn.microsoft.com/Forums/vstudio/en-US/095f7bcc-fe47-441d-947c-a814a449a55d/how-to-save-data-from-listview-to-access-database?forum=vbgeneral

    Att,

    sexta-feira, 13 de junho de 2014 18:44