Boa tarde pessoal

 

Como eu faço para definir via código a localização do banco de dados para impressão dos relatórios no CR10, já que preciso que o caminho seja dinâmico , em outras versões do crystal eu usava CR1.DataFiles(0) = App.Path & "dadoscadastro.mdb" . Como obter o mesmo resultado na versão 10 ?

 

Pessoal , a solução foi essa :

 

Dim n_aplicacao As New CRAXDRT.Application
Dim n_relatorio As CRAXDRT.Report
Dim n_banco As CRAXDRT.Database
Dim n_tabelas As CRAXDRT.DatabaseTables
Dim n_tabela As CRAXDRT.DatabaseTable

 

Set n_relatorio = n_aplicacao.OpenReport("d:sistemasgcclientes.rpt")
Set n_banco = n_relatorio.Database
Set n_tabelas = n_banco.Tables

For x = 1 To n_tabelas.Count
    Set n_tabela = n_tabelas.Item(x)
Next

n_tabela.Location = App.Path & "anco.mdb"
n_relatorio.DiscardSavedData
CR1.ReportSource = n_relatorio