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

 

Tente isso:

Tira esta linha: CrystalReport1.DataFiles(0) = App.Path + "Biblio.mdb"

Acrescenta esta:CrystalReport1.Connect = "Dsn=NomeDaSuaODBC;  Dsq=NomeBDados"

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?

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.

 

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.