ola

gostaria de fazer uma consulta no cristal reporte, por intervalo de data e nome, ou seja eu queria saber por exe: que o cristal reporte me informa-se que entre os dias 20/04/2006 a 20/04/2006 o joao comprou tanto. entao seria uma tripa consulta.

eu tenho o seguinte codigo: stringsql = ""
    If mskDT1 <> "__/__/____" Then
        If Not validadata(mskDT1) Then
            MsgBox "Primeira data do período inválida", vbCritical, "Erro no Relatório"
            Exit Sub
        End If
        If mskDT2 <> "__/__/____" Then
            If Not validadata(mskDT2) Then
                MsgBox "Segunda data do período inválida", vbCritical, "Erro no Relatório"
                Exit Sub
            End If
            stringsql = stringsql & " and {areceber.dataentrada}in date(" & Right(mskDT1, 4) & "," & Mid(mskDT1, 4, 2) & "," & Left(mskDT1, 2) & ") to date(" & Right(mskDT2, 4) & "," & Mid(mskDT2, 4, 2) & "," & Left(mskDT2, 2) & ")"
        Else
            stringsql = stringsql & " and {areceber.dataentrada}=date(" & Right(mskDT1, 4) & "," & Mid(mskDT1, 4, 2) & "," & Left(mskDT1, 2) & ")"
            End If
         
        End If
         saio
        stringsql = Mid(stringsql, 5)
               
    CrystalReport1.ReportFileName = App.Path + "elatorioscontas a receber.rpt"
    CrystalReport1.SelectionFormula = stringsql
    CrystalReport1.Destination = crptToWindow
    CrystalReport1.Action = 1
    stringsql = ""

este codigo so me dar o intrvalo de datas. falta o nome da pessoa

uso o cristal reporte do vb5

desde já agradeço a ajuda

Jose veja este exemplo :

Private Sub CmdPesquisar_Click()
On Error GoTo Trata_Erro

Dim lFormula   As String
'Captura data inicial
lFormula = "({bolão.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
'Captura data final
lFormula = lFormula & " AND ({bolão.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"
lFormula = lFormula & " AND {bolão.Equipe} = '" & Equipe.Text & "'"
lFormula = lFormula & " and {bolão.Local} ='" & LocalC.Text & "' "

'para visualizar a formula
'MsgBox lFormula
Me.MousePointer = 11
Crp.DataFiles(0) = App.Path & "olao.mdb"
Crp.ReportFileName = App.Path & "Campeonato.rpt"
Crp.SelectionFormula = lFormula
Crp.WindowState = crptMaximized
Crp.Destination = crptToWindow
Crp.Action = 1
Me.MousePointer = 0


Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"

End Sub

 

Neste exemplo utilizo uma consulta por periodo entre datas mais 2 campos no seu caso basta eliminar o ultimo campo do meu exemplo ........:)

tenta assim

 

Dim inicio
inicio = Format(Text1.Text, "mm/dd/yyyy")
Dim fim
fim = Format(Text2.Text, "mm/dd/yyyy")
lFormula = "({vteste_2.Data} >= datevalue('" & inicio & "')) AND ({vteste_2.Data} <= datevalue('" & fim & "')) and {vteste_2.nome}='" & TextNome.Text & "'"

Crp.SelectionFormula = lFormula

 

falow um abraço

valeu, deu certo muito obrigado um abraço....