Pessoal, preciso de um help.
Eu tenho uma que tem um campo texto para digitar o código do pedido.
quando eu clicar em ok aparece todos os registro de acordo com o código do pedido que foi digitado.
Só que eu não sei fazer esse filtro no crystal pelo vb.

Como eu posso fazer esse tipo de sql, ou seja, um filtro, para que quando eu digitar o código do pedido apareça um relarório feito em crystal com todos os registros pertencentes aquele pedido?

Por favor, pesso que me expliquem detalhado, por favor.
Se já tiverem um exmplo, eu agradeço.

Obrigado.
Valeu

 

Estou enviando esse código, mostrando como passar parametros para um objeto CRVIWER do Crystal Report 10...

'Após criar um relatório e chamalo através do menu PROJECT do VB
'Será criado um novo FORM com o Objeto CRVIWER.DLL e um Objeto DESIGNERS esse objeto deve chamar-se
'CrystalReport1 para o código abaixo funcionar
'No meu exemplo o relatório irá pegar os dados da Tabela Clientes
'do MDB Dados que está na mesma pasta do Aplicativo EXE
'
'Na verdade oque quero mostrar é como definir via código
'Parametros para o DESIGNERS
'Neste exemplo o meu relatório irá mostrar apenas o registro cujo
'Nome seja igual ao Valor informado na Caixa de Texto ( txtNome.Text )
'Você pode substituir essa caixa de texto por uma variável ou valor
'Direto na string SQL
'

'
'Coloque esse código no Form criado com o obejto CRVIWER.DLL
'
'OBS: Esse relatório foi feito em CrystalReport 10 e Visual Basic 6
'Usando o Windows XP SP2
'
Option Explicit
Dim m_Report As New CrystalReport1
Dim m_Connection As ADODB.Connection
Dim adoRS As ADODB.Recordset

Private Sub Form_Load()
Dim xCam As String
  If Right(App.Path, 1) <> "" Then
    xCam = App.Path & "Dados.mdb"
  Else
    xCam = App.Path & "Dados.mdb"
  End If

    Dim SQL As String
    Dim strConnect As String
  
    'Cria a conexão usando o objeto ADO Recordset
    'Não esqueça de fazer referência a esse objeto 
    '
    Set m_Connection = New ADODB.Connection
    Set adoRS = New ADODB.Recordset

    ' Abri a conexão
    '
    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & xCam & ";Mode=Read"
    m_Connection.Open strConnect
    SQL = "Select * from Clientes Where Nome = '" & txtNome.Text & "'"
    adoRS.Open SQL, m_Connection, adOpenDynamic, adLockBatchOptimistic
    m_Report.Database.SetDataSource adoRS
   
    'Carrega o Crystal Report 
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = m_Report
    CRViewer1.ViewReport
    Screen.MousePointer = vbDefault
End Sub

'Fim

 

Tentei