Pesquisa entre Datas com soma de Valores Vb.Net

[JMRF]

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

JMRF

[JMRF]

Boa noite,

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?

JMRF

[Danleonhart]

Olá !

Como você está salvando estas datas no BD ?

A melhor maneira é salvar : "yyyy-MM-dd"

E na hora de carregar basta usar o"FormatDate" para configurar da maneira desejada:

FormatDateTime(valorData, DateFormat.ShortDate)

[JMRF]

Boa noite,

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?

JMRF

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

[Danleonhart]

Bem...

Há tantas consultas nesse script que chega a causar confusão :wacko:

mas começa substituindo os DateTimerPicker da maneira que está "DTPIni.Text", por esta: "DTPIni.ToString("yyyy-MM-dd")"

É justo o que falei anteriormente... :rolleyes:

[wilmotezfnu]

Parece ótimo! Simplesmente maravilhoso!