ALTERAR BANCO CRYSTAL REPORTS8.5
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?
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?
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
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
Obrigado Lendaurbana!
Têm como fazer no VB6 com a OCX do Crystal?
Têm como fazer no VB6 com a OCX do Crystal?
Faça seu login para responder