Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
FREITAS

Pesquisa entre Datas com soma de Valores Vb.Net

Recommended Posts

Bom dia,

VB.NET

BD Access

Olha eu peço a ajuda de vocês, para o seguinte:

Quero criar um Form onde consultarei os vencimentos por período. Entre datas.

Exemplo: Os recebimentos de eu tiver para o período de 20/06/2012 a 10/07/2012,

Então quero que o código, faça a busca no Banco de Dados nesse período e coloque no DBGridView só os recebimentos desse período pesquisado e num txtbox me dê o valor total da coluna valor a receber no período pesquisado.

Pode me dar mais essa força, por favor?

Obrigado

FREITAS

Compartilhar este post


Link para o post
Compartilhar em outros sites

Por favor, o que está errado nesse código?

Eu tenho uns dados cadastrados num BD Access nas seguintes datas:

05/05/2012

07/05/2012

25/05/2012

10/06/2012

25/06/2012

Acontece que quando faço a pesquisa entre datas com o Código abaixo (estou usando DateTimerPicker na Pesquisa),

se eu seleciono no primeiro DateTimerPicker:

Data Inicial: a data de 01/05/2012

e no outro DateTimerPicker a Data Final:10/06/2012

Só aparece do DataGridView a linha com a data: 05/05/2012

Se eu seleciono Data Final 11 ou 12/06/2012 continua mostrando só a linha com a data 05/05/2012

quando seleciono no DateTimerPicker de Data Final: 13/06/2012 aparecem no DBGrid as linhas:

05/05/2012

07/05/2012 e

10/06/2012

Se eu seleciono no DateTimerPicker a data inicial 08/06/2012 e data final 30/06/2012,

ou seja só data dentro do mes de junho, me mostra as linhas no DataGridView com as datas:

07/05/2012

10/06/2012

25/05/2012

25/06/2012

Ou seja a Data Inicial é no mes de junho e mostra as datas 05/05/2012 e 25/05/2012 que são de maio

porque está acontecendo esse erro?

Podem me ajudar, por favor?

Obrigado

FREITAS

Private Sub btn_Consult_Click(sender As System.Object, e As System.EventArgs) Handles btn_Consult.Click

Dim css As String = My.Settings.EstoqueConnectionString

Dim conect As New OleDb.OleDbConnection

conect.ConnectionString = css

conect.Open()

Dim selcom As New OleDb.OleDbCommand

selcom.Connection = conect

selcom.CommandText =

"SELECT * FROM tb_saidas_estoque WHERE data_de_saida BETWEEN #" & DTPIni.Text & "# AND #" & DTPFin.Text & "# order by data_de_saida"

'"Select * from tb_saidas_estoque WHERE data_de_saida between >= DTPIni.text and data_de_saida <= DTPFin.text Order by data_de_saida"

 

'"SELECT * FROM tb_saidas_estoque WHERE data_de_saida >= #DTPIni#" And "<= #DTPFin#"

'"select * from tb_saidas_estoque where data_de_saida >= #DTPIni#" And "<= #DTPFin#"

'"select * from tb_saidas_estoque where data_de_saida BETWEEN #" & DTPIni.Text & "# AND #" & DTPFin.Text & "#"

Dim vleitor As OleDb.OleDbDataReader

vleitor = selcom.ExecuteReader()

Dim c As Integer = 0

DgvConsulta.Rows.Clear()

Do While vleitor.Read

c = c + 1

ReDim Preserve avalor_materiais_produtos©

ReDim Preserve amateriais_produtos©

ReDim Preserve adata_de_saida©

ReDim Preserve asaidas©

avalor_materiais_produtos© = vleitor(

"valor_materiais_produtos")

amateriais_produtos© = vleitor(

"materiais_produtos")

adata_de_saida© = vleitor(

"data_de_saida")

asaidas© = vleitor(

"saidas")

DgvConsulta.Rows.Add(avalor_materiais_produtos©, amateriais_produtos©, adata_de_saida©, asaidas©)

Loop

conect.Close()

End Sub

End

Class

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...