none
Erro ao filtrar dados para relatorio RRS feed

  • Pergunta

  • Boa Tarde Galera..

    eu tenho o seguinte codigo.

     Private Sub imprimeEquipamentoSelecionadoAnalitico()
        Dim conn As String = My.Settings.SIGIURB_2009ConnectionString()
        Dim da As New OleDbDataAdapter(" select * from Rel_Analitico_Equipamento where data Between #" & dtpinicio.Value.ToShortDateString & "# and #" & dtpfim.Value.ToShortDateString & "#" + "and contrato='" & cbxcontrato.Text & "'" + "and placa='" & cbxitem.Text & "'", conn)
        Dim ds As New _SIGIURB_2009DataSet()
        Dim rpt As New Relatorio_Analitico_Equipamento()
        Dim frm As New Visualizar_relatorio()
        Try
          da.Fill(ds, "Rel_Analitico_Equipamento")
          rpt.SetDataSource(ds)
          frm.CrystalReportViewer1.ReportSource = rpt
          frm.Show()
        Catch ex As Exception
          MsgBox(ex.Message)
        End Try
      End Sub

    Num formulario preencho os seguinte dados para gerar o relatorio

    data inicial e data final

    o numero do contrato

    e o equipamento

    o problema que estou tendo é.

    Se o intervalo que estou selecionado por exemplo data inicial 18/10/2010 e data final 31/10/2010

    ele faz a consulta e gera o relatorio sem problemas,

    mas se o intervalo  é data inicial 18/10/2010 e datafinal 02/11/2010 ele me traz o relatorio sem gerar erros, mas nao filtra as datas corretamente.

     

    Resumindo quando a data inicial(dia) é menor que a data final(dia) ele nao funciona corretamente.

    Alguem pra dar um help..

    GRato.algumas informações a mais

    uso o vb.net 2005 e o banco access, a data esta no formato short.

     

    Valeu.


    Ricardo
    segunda-feira, 8 de novembro de 2010 15:54

Respostas

Todas as Respostas