CRYSTAL REPORT X VB2005
TENHO ESTE CODIGO PRA VISUALIZAR MEUS RELATORIOS.
Dim CaminhoRel As String = My.Application.Info.DirectoryPath & [Ô]\Rel\[Ô] & RelatorioEnvio
Dim rpt As New ReportDocument
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Cursor.Current = Cursors.WaitCursor
Try
rpt.Load(CaminhoRel)
For Each tbCurrent In rpt.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = [Ô]transystem[Ô]
.DatabaseName = [Ô]transys[Ô]
.UserID = [Ô]sa[Ô]
.Password = [Ô]120298[Ô]
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
CarregaFormulaRelatorio(rpt)
rpt.RecordSelectionFormula = Formulas
SÓ QUE QUANDO NÃO TEM INFORMAÇÃO NA BASE QUE ATENDE MEUS CRITéRIOS DE CONSULTA ELE ABRE O RELATÓRIO EM BRANCO, GOSTARIA DE SABER SE ALGUEM SABE NÃO DEIXAR ABRIR O RELATÓRIO EM BRANCO E SIM DA UMA MSG.
DESDE Jà AGRADEÇO A ATENÇÃO DE VCS AMIGOS.
Dim CaminhoRel As String = My.Application.Info.DirectoryPath & [Ô]\Rel\[Ô] & RelatorioEnvio
Dim rpt As New ReportDocument
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Cursor.Current = Cursors.WaitCursor
Try
rpt.Load(CaminhoRel)
For Each tbCurrent In rpt.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = [Ô]transystem[Ô]
.DatabaseName = [Ô]transys[Ô]
.UserID = [Ô]sa[Ô]
.Password = [Ô]120298[Ô]
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
CarregaFormulaRelatorio(rpt)
rpt.RecordSelectionFormula = Formulas
SÓ QUE QUANDO NÃO TEM INFORMAÇÃO NA BASE QUE ATENDE MEUS CRITéRIOS DE CONSULTA ELE ABRE O RELATÓRIO EM BRANCO, GOSTARIA DE SABER SE ALGUEM SABE NÃO DEIXAR ABRIR O RELATÓRIO EM BRANCO E SIM DA UMA MSG.
DESDE Jà AGRADEÇO A ATENÇÃO DE VCS AMIGOS.
Mala o comum é vc criar um formulário onde vc possa visualizar todos os relatórios.
depois vc faz um select com os parametros, caso contenha registro vc passa o select para o recordsource do relatório, caso não vc dá a mensagem que não existe registro.
Outro detalhe, da forma que vc está fazendo se vc precisar migrar pra outro banco todos os relatório serão perdidos.
o legal seria vc fazer o select colocar em um dataset e depois passar pro relatório. ficando assim os relatório desvinculado da base de dados.
depois vc faz um select com os parametros, caso contenha registro vc passa o select para o recordsource do relatório, caso não vc dá a mensagem que não existe registro.
Outro detalhe, da forma que vc está fazendo se vc precisar migrar pra outro banco todos os relatório serão perdidos.
o legal seria vc fazer o select colocar em um dataset e depois passar pro relatório. ficando assim os relatório desvinculado da base de dados.
Eu faço desta maneira que vc me falou no vb6, mas no vb.net nao conseguir fazer o codigo funcionar, se vc ti ver um codigo que funcione e se puder me passar eu fico muito agradecido.
Amigo logo que possivel eu posto um exemplo para voce !
Obrigado !
Obrigado !
Tópico encerrado , respostas não são mais permitidas