Boa tarde galera.

Ainda estou no CR 4.6 e gostaria de saber como usar o CR 10, já que o mesmo não usa a OCX que usamos até a versão 8.5.

Se possível gostaria de algum exemplo, de como devo gerar os relatórios e chama-los pelo VB.

 

Grato.

Boa tarde amigo !!!

 

Bem eu instalei o crystal report10 na minha máquina e até agora os meus testes deram oquei....

 

Ao instalar o CR10, é adicionado um SUBMENU no VB, quando eu chamo um arquivo .rpt criado no CR10 é criador um objeto novo form com as propriedades e objetos do crystal tanto para visualizar, manipular como para imprimir o relatório...

 

Estou concluindo um exemplo para colocar aqui no site, até se vc precisar de um prototico, me manda um email que eu te passo um...

 

Tentei...

Tekki,

Também fiz uma migração há pouco tempo do Crystal 4.6, porém para o CR 11.

Um dos passos é: primeiro, em componentes, selecione o CRVIEWER.DLL (Crystal ActiveX Report Viewer Library) . Depois, coloque o objeto em um Form.

No form que irá chamar o relatório, crie as variáveis:

Dim RelApli As New CRAXDRT.Application, RelRep As New CRAXDRT.Report

Depois prossiga com os comandos de abrir o rpt, mostrar, ...

Ou voce poderá adicionar em o CR em Designers, criando os rpts dentro do VB, deixando-os na própria aplicação.

Bem, já migrei das duas formas, se quiser mais detalhes mande um email. Espero ter ajudado.

Boa tarde amigo !!

 

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

 

Galera, desculpe pela demora não anda sobrando tempo, não esta sobrando tempo nem para usar o CR10 . 

Obrigado pela ajuda, vou testar as dicas.