Consulta sql entre Datas, e cliente na mesma consulta.

Bom Dia Pessoal,

Sou novo por aqui, é estou precisando de ajuda em relação a uma consulta sql no visual studio 2010 com banco de dados access, fazendo a consulta por data da tudo certo mas quando tento incluir pesquisar clientes junto no periodo da retorna nada, vou colocar abaixo o código que estou usando para fazer a consulta entre as datas.

Private Sub ConsultaData()
       Dim DtaInicial As String
       Dim DtaFinal As String
       Dim tabela As New DataTable
       Dim Cliente As String
       Dim strsql As String

       DtaInicial = txtdtainicial.Text.ToString
       DtaFinal = txtdtafinal.Text.ToString
       Cliente = Me.txtcliente.Text

       ' essa consulta e por data - aqui funciona certinho.
       strsql = "Select * from XmlNfeProduto Where DtaEmissão between @DtaInicial And @DtaFinal order by DtaEmissão"



       Dim con As New OleDbConnection
       Dim cmd As New OleDbCommand
       Try
           con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Central-BancoDados\BdControleXml.accdb"
           con.Open()
           cmd.Connection = con
           cmd.Parameters.AddWithValue("@DtaInicial", DtaInicial)
           cmd.Parameters.AddWithValue("@DtaFinal", DtaFinal)
           cmd.Parameters.AddWithValue("@NomeCliente", Cliente)
           cmd.CommandText = strsql

           Using reader As OleDbDataReader = cmd.ExecuteReader()
               tabela.Load(reader)
               Me.dgvvendas.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

       Dim SomaColunaQuantidade As String = tabela.Compute("SUM(Quantidade)", Nothing).ToString
       Me.txttotalqntd.Text = Convert.ToInt32(SomaColunaQuantidade)

       Dim SomaColunaValorProduto As String = tabela.Compute("SUM(ValorProduto)", Nothing).ToString
       Me.txttotalproduto.Text = FormatCurrency(SomaColunaValorProduto)

       Me.txttotalregistro.Text = Me.dgvvendas.RowCount - 1


       Me.XmlNfeProdutoBindingSource.DataSource = tabela
       Me.ReportViewerVendas.RefreshReport()

   End Sub

agora se eu incluir na consulta por cliente também no periodo, não retorna nada e nem erro, o que pode estar acontecendo, segue abaixo com consulta do cliente junto,

strsql = "Select * from XmlNfeProduto Where RazãoSocial=@NomeCliente and DtaEmissão between @DtaInicial And @DtaFinal order by DtaEmissão"

não funciona, ai tentei assim

strsql = "SELECT  TOP 20 RazãoSocial,DtaEmissão FROM XmlNfeProduto WHERE  RazãoSocial = @NomeCliente AND DtaEmissão BETWEEN @DtaInicial AND @DtaFinal ORDER BY DtaEmissão,RazãoSocial"

também não funciona assim,

Alguem pode me dar uma ajuda para resolver esse problema, preciso fazer uma consulta por periodo e cliente na mesma consulta, como seria isso.

Desde já agradeço, muito obrigado.

Pablo Sousa

Olá,

Faz essa consulta diretamente no banco Access, substituindo os dados de teste:

Select * from XmlNfeProduto Where RazãoSocial="XYZ" and DtaEmissão between #01/01/2017# And #01/01/2017# order by DtaEmissão

Talvez o problema esteja nas datas, que devem ser passadas para a instrução sql no formato mm/dd/yyyy.

Boa Tarde Claudio,

Vou fazer o teste o logo coloco a resposta.
Desde já muito obrigado.

Pablo Sousa.

Boa tarde, e bem-vindo ao fórum
Por não de se tratar de Access, a dúvida foi movida para esta sala

Boa Tarde Claudio,

Realmente era formato de data, converti a data antes de passar o parametro funcionou certinho, mas indicando o nome do cliente, segue abaixo

strsql = "SELECT * FROM(XmlNfeProduto) WHERE (RazãoSocial = 'fuladodetAL') AND (DtaEmissão BETWEEN @DtaInicial AND @DtaFinal)"

mas quero que pega o nome da caixa de texto igual o parametro das datas, mas não quer da certo, tentei assim segue abaixo,

strsql = "SELECT * FROM(XmlNfeProduto) WHERE (RazãoSocial = @NomeCliente) AND (DtaEmissão BETWEEN @DtaInicial AND @DtaFinal)"

com o parametro para cliente mas não quer dar certo, somente se eu colocar o nome dele direto na consulta, da para resolver isso também o que será que dando errado.

Desde já agradeço, muito obrigado.

Pablo Sousa.

Boa tarde Pablo,

Poderia enviar uma cópia do banco de dados?
Iria facilitar com a solução.

Boa Tarde Claudio,

Segue em anexo o banco de dados.
Desde já agradeço, muito obrigado.

Parece que esqueceu de anexar o arquivo.

Boa Tarde Claudio,

Não sei porque não foi,
Vamos ver se agora vai,
Obrigado,

A ordem dos parâmetros deve ficar de acordo com a ordem em que aparecem na instrução sql:

cmd.Parameters.AddWithValue("@NomeCliente", Cliente)
cmd.Parameters.AddWithValue("@DtaInicial", DtaInicial)
cmd.Parameters.AddWithValue("@DtaFinal", DtaFinal)

Boa Noite Claudio,

Claudio agora deu certo, segue o código abaixo caso alguém venha a precisar,

Private Sub ConsultaData()
Dim DtaInicial As String
Dim DtaFinal As String
Dim tabela As New DataTable
Dim Cliente As String
Dim strsql As String

DtaInicial = txtdtainicial.Value
DtaInicial = Convert.ToDateTime(DtaInicial).ToString("MM/dd/yyyy")
DtaFinal = txtdtafinal.Value
DtaFinal = Convert.ToDateTime(DtaFinal).ToString("MM/dd/yyyy")
Cliente = Me.txtcliente.Text

' essa consulta e por data
strsql = "SELECT * FROM(XmlNfeProduto) WHERE RazãoSocial=@NomeCliente AND (DtaEmissão BETWEEN @DtaInicial AND @DtaFinal)"


Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Try
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Central-BancoDados\BdControleXml.accdb"
con.Open()
cmd.Connection = con

cmd.Parameters.AddWithValue("@NomeCliente", Cliente)
cmd.Parameters.AddWithValue("@DtaInicial", DtaInicial)
cmd.Parameters.AddWithValue("@DtaFinal", DtaFinal)

cmd.CommandText = strsql

Using reader As OleDbDataReader = cmd.ExecuteReader()
tabela.Load(reader)
Me.dgvvendas.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

Dim SomaColunaQuantidade As String = tabela.Compute("SUM(Quantidade)", Nothing).ToString
Me.txttotalqntd.Text = Convert.ToInt32(SomaColunaQuantidade)

Dim SomaColunaValorProduto As String = tabela.Compute("SUM(ValorProduto)", Nothing).ToString
Me.txttotalproduto.Text = FormatCurrency(SomaColunaValorProduto)

Me.txttotalregistro.Text = Me.dgvvendas.RowCount - 1


Me.XmlNfeProdutoBindingSource.DataSource = tabela
Me.ReportViewerVendas.RefreshReport()

End Sub

Claudio percebi que na consulta do nome do cliente tenho que digitar o nome todo do cliente, será que tem como colocar no parametro do nome cliente um "like" para pegar por parte do nome, ai fecha a consulta fica top do verão.

Desde já agradeço demais a ajuda, muito obrigado.

Pablo Sousa.

Bom dia,

strsql = "Select * from XmlNfeProduto Where RazãoSocial like '%' & @NomeCliente & '%' And DtaEmissão between @DtaInicial And @DtaFinal order by DtaEmissão"

Bom Dia Claudio,

Obrigado pelo exemplo vou fazer o teste agora na hora do almoço e manda a resposta.
Desde já agradeço demais a ajuda, muito obrigado.

Pablo Sousa.

Boa Tarde Claudio,

Claudio deu tudo certo, segue o código abaixo caso alguém venha precisar.
Código=

Private Sub ConsultaDataCliente()
Dim DtaInicial As String
Dim DtaFinal As String
Dim tabela As New DataTable
Dim Cliente As String
Dim strsql As String

DtaInicial = txtDtaInicialPC.Value
DtaInicial = Convert.ToDateTime(DtaInicial).ToString("MM/dd/yyyy")
DtaFinal = txtDtaFinalPC.Value
DtaFinal = Convert.ToDateTime(DtaFinal).ToString("MM/dd/yyyy")
Cliente = Me.txtclienteperiodo.Text

' essa consulta e por data e por nome do cliente
strsql = "Select * from XmlNfeProduto Where RazãoSocial like '%' & @NomeCliente & '%' And DtaEmissão between @DtaInicial And @DtaFinal order by DtaEmissão"

Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Try
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Central-BancoDados\BdControleXml.accdb"
con.Open()
cmd.Connection = con

cmd.Parameters.AddWithValue("@NomeCliente", Cliente)
cmd.Parameters.AddWithValue("@DtaInicial", DtaInicial)
cmd.Parameters.AddWithValue("@DtaFinal", DtaFinal)

cmd.CommandText = strsql

Using reader As OleDbDataReader = cmd.ExecuteReader()
tabela.Load(reader)
Me.dgvvendas.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

Dim SomaColunaQuantidade As String = tabela.Compute("SUM(Quantidade)", Nothing).ToString
Me.txttotalqntd.Text = Convert.ToInt32(SomaColunaQuantidade)

Dim SomaColunaValorProduto As String = tabela.Compute("SUM(ValorProduto)", Nothing).ToString
Me.txttotalproduto.Text = FormatCurrency(SomaColunaValorProduto)

Me.txttotalregistro.Text = Me.dgvvendas.RowCount - 1


Me.XmlNfeProdutoBindingSource.DataSource = tabela
Me.ReportViewerVendas.RefreshReport()

End Sub

Desde já muito obrigado pela ajuda, agora com esses exemplos da para brincar muito.
Ate a próxima.

Pablo Sousa.