Boa Noite Pessoal!!!
Estou com 2 problemas, vou explicar.
Quando faço a consulta entre datas, por exemplo quero do dia 25 ate o dia 25, a consulta retorna nada, se coloca de 24 a 25 se não tiver cadastro do dia 24 retorna todos do dia 25, esse e um problema, segue codigo da consulta abaixo.
Private Sub PesquisaData()
Dim DtaInicial As String
Dim DtaFinal As String
Dim tabela As New DataTable
Dim strsql As String
DtaInicial = txtdtainicial.Value.ToString
DtaFinal = txtdtafinal.Value.ToString
strsql = "Select * from TbContasReceber Where Vencimento between @DtaInicial And @DtaFinal order by Vencimento"
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Try
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\BbDadosControlePessoalContas\BdContasReceber.accdb"
con.Open()
cmd.Connection = con
cmd.Parameters.AddWithValue("@DtaInicial", DtaInicial)
cmd.Parameters.AddWithValue("@DtaFinal", DtaFinal)
cmd.CommandText = strsql
Using reader As OleDbDataReader = cmd.ExecuteReader()
tabela.Load(reader)
dgvcontasreceber.DataSource = tabela
End Using
Catch ex As Exception
MessageBox.Show("Erro : " & ex.Message, "Dados Não Existe, Favor verificar Datas!!!")
Finally
con.Close()
End Try
End Sub
O outro problema e o seguinte, quando retorna essa consulta de datas quero somar a coluna valor e colocar em um textbox, so que quando soma ele soma todos os cadastros que tem no dataset, nao as linhas da consulta, segue codigo para somar a coluna.
Private Sub SomarValor()
Dim Valor As String = Me.DataSetBdContasReceber.TbContasReceber.Compute("SUM(ValorDocumento)", Nothing).ToString
Me.txttotalreceber.Text = CDbl(Valor)
Me.txttotalreceber.Text = Convert.ToDouble(txttotalreceber.Text).ToString("C")
End Sub
Se tiver alguem que possa me dar uma ajuda para resolver agradeço demais.
Muito Obrigado.
PabloSousa
