RUN-TIME ERROR 20599
Bom dia pessoal,
Estou ás voltas com mais um erro do Crystal Report:
RUN-TIME ERROR 20599
Cannot open SQL Server
Como posso contornar este erro???
Obrigado,
Estou ás voltas com mais um erro do Crystal Report:
RUN-TIME ERROR 20599
Cannot open SQL Server
Como posso contornar este erro???
Obrigado,
Isso porque o crystal não está encontrando o banco de dados.
O banco de dados é mesmo o Sql server?
Como você faz a conexão?
Posta o código aqui.
O banco de dados é mesmo o Sql server?
Como você faz a conexão?
Posta o código aqui.
Robiu - mt obrigado por ter respondido, não estou utilizando o SQL mas ele me fala que estou - trabalho banco de dados do Acess, mas mesmo assim me retorna este erro. Então refiz o arquivo do Crystal, só que agora aparece o relatório mas demora um tempão, o crystal fica contando não sei o que e só depois que dá 100% da contagem que o relatório apareçe na tela para mim. O que estou fazendo de errado??
Ai vai o código que utilizo para chamar o cristal.
Private Sub Cmd_Ficha_Click()
If Not Lst_Assos.SelectedItem Is Nothing Then
NewAluno = Lst_Assos.SelectedItem
Call PrintReport
Frame2.Visible = False
End If
End Sub
Private Sub PrintReport()
Dim Criterio As String
Criterio = [Ô]{Ado.CODMAT_ASS} =[ô][Ô] & NewAluno + [Ô][ô][Ô]
With Report1
.DataFiles(0) = App.Path & [Ô]\Dados\VB_FOTOS.Mdb[Ô]
.SelectionFormula = Criterio
.ReportFileName = App.Path & [Ô]\Relatorios\Rpt_Fotos002.rpt[Ô]
.Action = 1
End With
End Sub
Espero que me ajude
Obrigado,
Ai vai o código que utilizo para chamar o cristal.
Private Sub Cmd_Ficha_Click()
If Not Lst_Assos.SelectedItem Is Nothing Then
NewAluno = Lst_Assos.SelectedItem
Call PrintReport
Frame2.Visible = False
End If
End Sub
Private Sub PrintReport()
Dim Criterio As String
Criterio = [Ô]{Ado.CODMAT_ASS} =[ô][Ô] & NewAluno + [Ô][ô][Ô]
With Report1
.DataFiles(0) = App.Path & [Ô]\Dados\VB_FOTOS.Mdb[Ô]
.SelectionFormula = Criterio
.ReportFileName = App.Path & [Ô]\Relatorios\Rpt_Fotos002.rpt[Ô]
.Action = 1
End With
End Sub
Espero que me ajude
Obrigado,
Alguém pode me ajudar??
[Ô]Me ajudem!!![Ô];
* [Ô]Pelo amor de Deus, estou desesperado!!![Ô];
* [Ô]Socorro!!![Ô];
* [Ô]Help!!![Ô];
* [Ô]Urgente!!![Ô];
* [Ô]Essa é pra quem sabe.[Ô];
* [Ô]Só para Feras.[Ô];
* [Ô]Desafio.[Ô];
* [Ô]Pelo amor de Deus, estou desesperado!!![Ô];
* [Ô]Socorro!!![Ô];
* [Ô]Help!!![Ô];
* [Ô]Urgente!!![Ô];
* [Ô]Essa é pra quem sabe.[Ô];
* [Ô]Só para Feras.[Ô];
* [Ô]Desafio.[Ô];
Coloca o cristal por dentro do vb6 que você poderá usar métodos e eventos do report no seu código. Neste caso, o report é compilado junto com o exe e não há risco de perda do arquivo. Para chamar o relatorio é só usar o mesmo Rs que você usa para carregar campos, grids, etc. Todo filtro será feito pelo select e não precisará de fórmulas. Os relatórios prontos também podem ser incluidos no vb6. Para incluir o report no vb, vai no menu project => Add Crystal Report
segue um exemplo de conexão com o crystal. Aqui o caminho do banco é definido pela conexão ado.
segue um exemplo de conexão com o crystal. Aqui o caminho do banco é definido pela conexão ado.
Sql=[Ô]Select...[Ô]
Rs.Open Sql, Bd, adOpenKeyset, adLockPessimistic
Report.Database.SetDataSource Rs
robiu, mt obrigado por ter respondido, já tentei de tudo para tirar o erro, até mesmo voltar a trabalhar com o crystal 8.5, mas o erro ainda continua.
robiu - se eu te enviar o programa completo - vc dá uma olhada nele e vê o que estou fazendo de errado??
Caso sim - me envie um e-mail para o endereço cpd@aecminas.com.br
Obrigado,
Caso sim - me envie um e-mail para o endereço cpd@aecminas.com.br
Obrigado,
Tópico encerrado , respostas não são mais permitidas