USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  IMPRIMIR COM CRYSTAL REPORT
NETO711-171
IBITIARA
BA - BRASIL
ENUNCIADA !
Postada em 22/02/2008 09:47 hs            
Veja se alguém consegue me ajudar. To usando o crystal report pra imprimir umas tabelas de um programa. Quando fui criar o arquivo usando o report design na opção data file onde eu informo o BD, tá pedindo uma senha para o banco de dados e eu não uso senha, então fica travado lá. Como não consegui simplesmente informar o BD nessa opção, acabei usando a opção sql/odbc para selecionar o banco de dados e com isso consegui criar o relatório.
Porém quando executo o programa, dá o seguinte erro:
run time error 20536
unable to connect: incorrect log on parameters
Alguém tem uma sugestão do que fazer? Pode ser até mesmo algo usando o print.
Segue o código da impressão pra que dêem uma olhada. Tá parando na linha
CrystalReport1.Action = 1
 
Private Sub cmdImprimir_Click()
Me.MousePointer = 11
CrystalReport1.ReportFileName = App.Path + "segmat1.RPT"
CrystalReport1.DataFiles(0) = App.Path + "Biblio.mdb"
CrystalReport1.CopiesToPrinter = 1
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1
Me.MousePointer = 0
End Sub
 
   
J.Carlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 22/02/2008 12:08 hs            
Tente isso:
Tira esta linha: CrystalReport1.DataFiles(0) = App.Path + "Biblio.mdb"
Acrescenta esta:CrystalReport1.Connect = "Dsn=NomeDaSuaODBC;  Dsq=NomeBDados"

   
NETO711-171
IBITIARA
BA - BRASIL
ENUNCIADA !
Postada em 22/02/2008 14:42 hs            
Deu certo J. Carlos. Fiz as mudanças que falou e ficou assim:
CrystalReport1.Connect = "Dsn=segmat1.RPT;  Dsq=Biblio.MDB"
Tá abrindo a tela de impressão tudo certinho agora. Só tem um problema. Como faço pra atualizar o relatório? Da forma como tá, tá imprimindo sempre o mesmo documento. Quando incluo novos registros, eles não aparecem nesse relatório. O que foi que eu fiz de errado?
   
J.Carlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 22/02/2008 21:28 hs            
No Crystal, vá no menu : File/Save data With Report
Ele deve estar setado (Chek), desligue-o, assim sempre que chamado ele buscará no Banco de dados. Do jeito que está ele está sempre pegando o arquivo da primeira consulta.
 
   
NETO711-171
IBITIARA
BA - BRASIL
ENUNCIADA !
Postada em 26/02/2008 09:49 hs            
J. Carlos, agora não tá imprimindo mais. O que pode ter acontecido? Já  setei de novo o data with e mesmo assim não imprime.. Tá dando o erro:
RUN TIME ERROR 20536
UNABLE TO CONNECT: INCORRECT LOG ON PARAMETERS
e o código tá assim:
 
Private Sub cmdImprimir_Click()
Me.MousePointer = 11
CrystalReport1.ReportFileName = App.Path + "segmat1.RPT"
CrystalReport1.Connect = "Dsn=segmat1.RPT;  Dsq=Biblio.MDB"
CrystalReport1.CopiesToPrinter = 1
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1 'Fica dando erro aqui
End Sub
 
O mais estranho é que tava imprimindo quando eu fiz os testes aqui na sexta feira e acho que não fiz nenhuma outra alteração além de desmarcar esse save data with report.
 
   
Macaubal
não registrado
ENUNCIADA !
Postada em 26/02/2008 10:46 hs   
Va no menu Database, verifique se o item Verify on Every Print, está habilitado! É um campo Check ele tem que estar selecionado...
   
Página(s): 1/3      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página