SOMANDO VALORES
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
Public Function GetContas() As DataTable
Dim dt As DataTable = New DataTable([Ô]Contas[Ô])
da.Fill(dt)
Return dt
End Function
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
Public Function GetContas() As DataTable
Dim dt As DataTable = New DataTable([Ô]Contas[Ô])
da.Fill(dt)
Return dt
End Function
vc pode fazer isso na sua query usando o SUM() e o GROUP BY
FELLIPEASSIS
Desculpe, mas eu não tenho muita experiencia em VB NET, pode me ajudar como faço isso
Desculpe, mas eu não tenho muita experiencia em VB NET, pode me ajudar como faço isso
Esperei até postar de novo,então vai um exemplo simples.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim cn As New OleDbConnection([Ô]Provider = Microsoft.jet.OleDB.4.0;Data Source = [Ô] & Application.StartupPath & [Ô]\Cadastro.mdb;[Ô])
cn.Open()
Dim cmd = New OleDbCommand([Ô]Select Sum(Pagar)as Pargar,Sum(Paga) as Paga, Sum(Receber) as Receber, Sum(Recebida) as Recebida From Contas[Ô], cn)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
Text1.Text = dr.Item(0)
Text2.Text = dr.Item(1)
Text3.Text = dr.Item(2)
Text4.Text = FormatCurrency(dr.Item(3)) [ô]formatação moeda
End While
cn.Close()
cmd.Cancel()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim cn As New OleDbConnection([Ô]Provider = Microsoft.jet.OleDB.4.0;Data Source = [Ô] & Application.StartupPath & [Ô]\Cadastro.mdb;[Ô])
cn.Open()
Dim cmd = New OleDbCommand([Ô]Select Sum(Pagar)as Pargar,Sum(Paga) as Paga, Sum(Receber) as Receber, Sum(Recebida) as Recebida From Contas[Ô], cn)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
Text1.Text = dr.Item(0)
Text2.Text = dr.Item(1)
Text3.Text = dr.Item(2)
Text4.Text = FormatCurrency(dr.Item(3)) [ô]formatação moeda
End While
cn.Close()
cmd.Cancel()
End Sub
OMAR2011
Esta dando erro aqui quando clico no botão:
Dim cn As New OleDbConnection([Ô]Provider = Microsoft.jet.OleDB.4.0;Data Source = [Ô] & Application.StartupPath & [Ô]\Cadastro.mdb;[Ô])
cn.Open()
Dim cmd = New OleDbCommand([Ô]Select Sum(Pagar)as Pargar,Sum(Paga) as Paga, Sum(Receber) as Receber, Sum(Recebida) as Recebida From Contas[Ô], cn)
ele não esta reconhecendo cn e cmd, ja troquei para conn, da, cb que é quando abro o formulario como esta descrito acima, mas não deu certo
Esta dando erro aqui quando clico no botão:
Dim cn As New OleDbConnection([Ô]Provider = Microsoft.jet.OleDB.4.0;Data Source = [Ô] & Application.StartupPath & [Ô]\Cadastro.mdb;[Ô])
cn.Open()
Dim cmd = New OleDbCommand([Ô]Select Sum(Pagar)as Pargar,Sum(Paga) as Paga, Sum(Receber) as Receber, Sum(Recebida) as Recebida From Contas[Ô], cn)
ele não esta reconhecendo cn e cmd, ja troquei para conn, da, cb que é quando abro o formulario como esta descrito acima, mas não deu certo
Como você disse acima.Iniciando.
Na pasta onde está seu projeto vai abrindo até achar bin\[txt-color=#e80000]Debug[/txt-color],é onde vai colocar seu Banco de Dados.
Iste é caminho do meu teste que fiz.
C:\Users\computer home\Desktop\TesteVb2012\TesteClassMysql\TesteClassMysql\bin\Debug
Pode executar que vai dar certo.
Valeu.
Na pasta onde está seu projeto vai abrindo até achar bin\[txt-color=#e80000]Debug[/txt-color],é onde vai colocar seu Banco de Dados.
Iste é caminho do meu teste que fiz.
C:\Users\computer home\Desktop\TesteVb2012\TesteClassMysql\TesteClassMysql\bin\Debug
Pode executar que vai dar certo.
Valeu.
OMAR2011
Não deu certo, se eu fizer isso, ele nem abre o formulario, já da erro
Coloquei o banco de dados aqui -> E:\VB-NET-Projetos Aproveitáveis\CadastroVB\bin
quando digito o coigo que voçe postou, ele não reconhece o comando -> Dim cmd
e quando mando rodar o sistema me da erro aqui Dim dr As OleDbDataReader = cmd.ExecuteReader ERRO -> Referência circular causada pelo alias [ô]Paga[ô] na lista SELECT da definição da consulta.
Não deu certo, se eu fizer isso, ele nem abre o formulario, já da erro
Coloquei o banco de dados aqui -> E:\VB-NET-Projetos Aproveitáveis\CadastroVB\bin
quando digito o coigo que voçe postou, ele não reconhece o comando -> Dim cmd
e quando mando rodar o sistema me da erro aqui Dim dr As OleDbDataReader = cmd.ExecuteReader ERRO -> Referência circular causada pelo alias [ô]Paga[ô] na lista SELECT da definição da consulta.
não sei se entendi direito ..... mas esse codigo pode lhe ser util
Dim texto_do_datagrid As String = [ô]nome do seu datagrid[ô] .CurrentRow.Cells([Ô] [ô]nome da coluna do datagrid[ô] [Ô]).Value.ToString()
[ô]TextBox_q_vai_o_dado_puxado[ô].Text = texto_do_datagrid
ele puxa os dados do DataGridView e joga numa textbox
ai com os dados em uma textbox vc consegue fazer as contas q quiser mais facilmente
espero ter ajudado qualquer duvida só mandar ... Abs
Dim texto_do_datagrid As String = [ô]nome do seu datagrid[ô] .CurrentRow.Cells([Ô] [ô]nome da coluna do datagrid[ô] [Ô]).Value.ToString()
[ô]TextBox_q_vai_o_dado_puxado[ô].Text = texto_do_datagrid
ele puxa os dados do DataGridView e joga numa textbox
ai com os dados em uma textbox vc consegue fazer as contas q quiser mais facilmente
espero ter ajudado qualquer duvida só mandar ... Abs
GEISSLER
Não é bem isso, o que eu quero é que me some todos os valores de uma coluna do datagridview e me de o resultado em uma texbox,
por exemplo
Coluna: Valor [ aqui eu tenho os valores de cada conta ]
Coluna: Posição Da Conta [ aqui eu tenho os itens: Paga, Pagar, Receber, Recebida ]
textbox1 = a soma de todos os valores do item Paga
textbox2 = a soma de todos os valores do item Pagar
textbox3 = a soma de todos os valores do item Receber
textbox4 = a soma de todos os valores do item Recebida
Não é bem isso, o que eu quero é que me some todos os valores de uma coluna do datagridview e me de o resultado em uma texbox,
por exemplo
Coluna: Valor [ aqui eu tenho os valores de cada conta ]
Coluna: Posição Da Conta [ aqui eu tenho os itens: Paga, Pagar, Receber, Recebida ]
textbox1 = a soma de todos os valores do item Paga
textbox2 = a soma de todos os valores do item Pagar
textbox3 = a soma de todos os valores do item Receber
textbox4 = a soma de todos os valores do item Recebida
ve se eu entendi agora ....
*cria um novo projeto
*coloca um datagridview1 e uma textbox
adiciona o codigo :
Public Class Form1
Dim valor_total = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]Formatando a grid com 1 colunas
Dim coluna As Integer
Dim linha2 As Integer
For coluna = 0 To 0
DataGridView1.Columns.Add(coluna.ToString, [Ô]Valor[Ô])
Next
DataGridView1.Rows.Add(5)
[ô]adicionando dados ao datagrid
For linha2 = 0 To 5
DataGridView1.Rows(linha2).Cells(0).Value = [Ô]10[Ô]
Next
[ô]puxa os dados para variaveis e soma numa 3ª variavel ... (vc pode usar Textbox tambem se preferir)
For linha2 = 0 To 5
Dim dado1 As String = DataGridView1.Rows(linha2).Cells(0).Value.ToString()
valor_total = valor_total + dado1
Next
TextBox1.Text = valor_total
End Sub
End Class
[ô] o codigo cria um datagrid com uma coluna adiciona valores pra simular seu datagrid preenchido pelo banco de dados ... depois ele soma todos valores adicionados nas linhas do datagrid ....
Espero ter ajudado agora kkkkk qualquer coisa só chamar Abs.
*cria um novo projeto
*coloca um datagridview1 e uma textbox
adiciona o codigo :
Public Class Form1
Dim valor_total = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]Formatando a grid com 1 colunas
Dim coluna As Integer
Dim linha2 As Integer
For coluna = 0 To 0
DataGridView1.Columns.Add(coluna.ToString, [Ô]Valor[Ô])
Next
DataGridView1.Rows.Add(5)
[ô]adicionando dados ao datagrid
For linha2 = 0 To 5
DataGridView1.Rows(linha2).Cells(0).Value = [Ô]10[Ô]
Next
[ô]puxa os dados para variaveis e soma numa 3ª variavel ... (vc pode usar Textbox tambem se preferir)
For linha2 = 0 To 5
Dim dado1 As String = DataGridView1.Rows(linha2).Cells(0).Value.ToString()
valor_total = valor_total + dado1
Next
TextBox1.Text = valor_total
End Sub
End Class
[ô] o codigo cria um datagrid com uma coluna adiciona valores pra simular seu datagrid preenchido pelo banco de dados ... depois ele soma todos valores adicionados nas linhas do datagrid ....
Espero ter ajudado agora kkkkk qualquer coisa só chamar Abs.
GEISSLER
Poço de mandar meu projeto em anexo para voçe entender melhor
Poço de mandar meu projeto em anexo para voçe entender melhor
Tópico encerrado , respostas não são mais permitidas