ALTERAR BANCO CRYSTAL REPORTS8.5

MFVB 28/09/2014 12:14:06
#441575
Olá pessoal!

Preciso alterar o nome do catalogo no crystal reports que faz acesso no sql server 2008. Existem vários bancos anexados em uma instância. Preciso alterar o nome do banco em runtime para esses relatórios. ex: o relatório acessa o banco1 ou o banco2 depende da empresa que o usuário está conectado. A estrutura do banco é igual em todos os bancos. Já tentei com conexão externa via dsn, udl, e o relatório sempre conecta em um banco.

Alguém pode me ajudar?
LENDAURBANA 29/09/2014 10:16:29
#441585
Acredito que não esteja usando data set como no exemplo abaixo né ? Como você esta fazendo para ,mudar a conexão ?

http://www.devmedia.com.br/alterando-a-fonte-de-dados-de-um-relatorio-no-crystal-reports/7218

Ve se te ajuda

Dim cryRpt As New ReportDocument
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table

cryRpt.Load([Ô]PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt[Ô])

With crConnectionInfo
.ServerName = [Ô]YOUR SERVER NAME[Ô]
.DatabaseName = [Ô]YOUR DATABASE NAME[Ô]
.UserID = [Ô]YOUR DATABASE USERNAME[Ô]
.Password = [Ô]YOUR DATABASE PASSWORD[Ô]
End With

CrTables = cryRpt.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next



MFVB 29/09/2014 12:57:40
#441592
Obrigado Lendaurbana!

Têm como fazer no VB6 com a OCX do Crystal?
Faça seu login para responder