none
Somar Valores RRS feed

  • Pergunta

  • Ola a todos,
    Estou fazendo um sistema contas pagar, receber. Tenho no formulario um DataGridView com as colunas
    Valor, e na Coluna Posição Da Conta, tenho os itens [ Pagar,Paga, Receber, Recebida ] Gostaria de quando abro o formulario em 4 TextBox me mostre os valres totais de cada iten Por Ex:
    TxtPagar -> 1.000,00
    TxtPaga -> 80.000,00
    TxtReceber -> 5.000,00
    TxtRecebida -> 1.200,00

    Para abrir o formulario uso uma Classe: 

    Imports System
    Imports System.Data
    Imports System.Data.OleDb

    Public Class Contas
        Public conn As OleDbConnection
        Public da As OleDbDataAdapter
        Public cb As OleDbCommandBuilder

        Public Sub New()
            conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\cadastro.mdb;Mode=Share Deny None")
            da = New OleDbDataAdapter("Select * from Contas", conn)
            cb = New OleDbCommandBuilder(da)
        End Sub
    terça-feira, 21 de maio de 2013 19:54

Respostas

  • CRCJ.1,

    Para fazer isso eu uso isso:

    NA CLASSE DO SEU PROJETO.

    Function Buscar_codigosfiscais_codigo(ByVal descricao As String) As DataTable
            Dim codigosfiscais As New DataTable
            Dim con As New SqlConnection(StrCon)
            Dim sql As String = "SELECT codigo, descricao FROM codigosfiscais WHERE codigo LIKE '%" + descricao + "%'"
            Dim adpt As New SqlDataAdapter(sql, con)
    
            Try
                con.Open()
                adpt.Fill(codigosfiscais)
            Catch ex As SqlException
                MessageBox.Show(ex.Message, ex.Number.ToString)
            Finally
                con.Close()
            End Try
            Return codigosfiscais
            Exit Function
        End Function

    Isso serve para selecionar os campos que voce precisa no banco de dados e mostrar numa datagridview.

    E no form que voce fez para mostrar esses dados com o datagridview. USO ISSO:

     Private Sub cmdSelecionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSelecionar.Click
    
            Dim Selecionar_emp As DataGridViewRow
    
    
            Selecionar_emp = dtEmpresas.CurrentRow
    
                   frmPrestacaoservico.txtSerie.Text = Selecionar_emp.Cells("serie").Value
            frmPrestacaoservico.txtSubserie.Text = Selecionar_emp.Cells("subserie").Value
            frmPrestacaoservico.txtEstado.Text = Selecionar_emp.Cells("uf").Value
            '  frmPrestacaoservico.txtCliente.Text = Selecionar_emp.Cells("cliente").Value
            frmPrestacaoservico.cboTipomovimento.Text = Selecionar_emp.Cells("tipomovimento").Value
            frmPrestacaoservico.txtDiaemi.Text = Selecionar_emp.Cells("diaemissao").Value
           
            Me.Close()
            frmPrestacaoservico.CmdOk.Visible = False
            frmPrestacaoservico.cmdAlterar.Visible = True
            frmPrestacaoservico.mskReferenciaEmi.Enabled = True
            frmPrestacaoservico.mskReferenciaMov.Enabled = True
            frmPrestacaoservico.Show()
        End Sub

    Como você quer o valor total de cada item (contas a pagar, receber e talz). No meu primeiro bloco de codigo vc teria que fazer um SUM, SUM serve para somar todos os valores no campo especificado. EXEMPLO:

    Dim sql As String = "SELECT SUM(codigo), SUM(descricao) FROM codigosfiscais WHERE codigo LIKE '%" + descricao + "%'"

    No mais é isso ai cara, precisando tamo ai.

    • Marcado como Resposta CRCJ.1 terça-feira, 13 de janeiro de 2015 17:52
    quarta-feira, 22 de maio de 2013 14:08

Todas as Respostas

  • Vc quer que cada informação que venha da base apareça em um textbox ?
    Vc pode usar um dataSet
    Especifique mais por gentileza

    terça-feira, 21 de maio de 2013 20:35
  • CRCJ.1,

    Para fazer isso eu uso isso:

    NA CLASSE DO SEU PROJETO.

    Function Buscar_codigosfiscais_codigo(ByVal descricao As String) As DataTable
            Dim codigosfiscais As New DataTable
            Dim con As New SqlConnection(StrCon)
            Dim sql As String = "SELECT codigo, descricao FROM codigosfiscais WHERE codigo LIKE '%" + descricao + "%'"
            Dim adpt As New SqlDataAdapter(sql, con)
    
            Try
                con.Open()
                adpt.Fill(codigosfiscais)
            Catch ex As SqlException
                MessageBox.Show(ex.Message, ex.Number.ToString)
            Finally
                con.Close()
            End Try
            Return codigosfiscais
            Exit Function
        End Function

    Isso serve para selecionar os campos que voce precisa no banco de dados e mostrar numa datagridview.

    E no form que voce fez para mostrar esses dados com o datagridview. USO ISSO:

     Private Sub cmdSelecionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSelecionar.Click
    
            Dim Selecionar_emp As DataGridViewRow
    
    
            Selecionar_emp = dtEmpresas.CurrentRow
    
                   frmPrestacaoservico.txtSerie.Text = Selecionar_emp.Cells("serie").Value
            frmPrestacaoservico.txtSubserie.Text = Selecionar_emp.Cells("subserie").Value
            frmPrestacaoservico.txtEstado.Text = Selecionar_emp.Cells("uf").Value
            '  frmPrestacaoservico.txtCliente.Text = Selecionar_emp.Cells("cliente").Value
            frmPrestacaoservico.cboTipomovimento.Text = Selecionar_emp.Cells("tipomovimento").Value
            frmPrestacaoservico.txtDiaemi.Text = Selecionar_emp.Cells("diaemissao").Value
           
            Me.Close()
            frmPrestacaoservico.CmdOk.Visible = False
            frmPrestacaoservico.cmdAlterar.Visible = True
            frmPrestacaoservico.mskReferenciaEmi.Enabled = True
            frmPrestacaoservico.mskReferenciaMov.Enabled = True
            frmPrestacaoservico.Show()
        End Sub

    Como você quer o valor total de cada item (contas a pagar, receber e talz). No meu primeiro bloco de codigo vc teria que fazer um SUM, SUM serve para somar todos os valores no campo especificado. EXEMPLO:

    Dim sql As String = "SELECT SUM(codigo), SUM(descricao) FROM codigosfiscais WHERE codigo LIKE '%" + descricao + "%'"

    No mais é isso ai cara, precisando tamo ai.

    • Marcado como Resposta CRCJ.1 terça-feira, 13 de janeiro de 2015 17:52
    quarta-feira, 22 de maio de 2013 14:08