EMPERREI PRA VISUALIZA RELATORIO NO CRYSTA
Boa tarde, gente.
O problema e o seguinte, já tenho o relatorio no crystal report, mais o problema e que não consigo abrir e visualiza ele no vb6, já faz 2 dias que to nisso e até agora nada, a versão do crystal e 10.
to quasse ficando louco com isso.
primeira vez que uso o crystal e ele ta me matando de raiva.
como faço pra abrir e visualiza esse relatorio no vb 6
O problema e o seguinte, já tenho o relatorio no crystal report, mais o problema e que não consigo abrir e visualiza ele no vb6, já faz 2 dias que to nisso e até agora nada, a versão do crystal e 10.
to quasse ficando louco com isso.
primeira vez que uso o crystal e ele ta me matando de raiva.
como faço pra abrir e visualiza esse relatorio no vb 6
Veja se este artigo te ajuda.
Bom dia.
Tentei e sempre da erro nessa linha
Report1.Action = 1
erro: run-time erro [ô]20728[ô]
F
Tentei e sempre da erro nessa linha
Report1.Action = 1
erro: run-time erro [ô]20728[ô]
F
WANDSONSOUSA eu utilizo o crystal 9 e utilizo assim
Tenho um form que foi criado pelo assistendo do crystal no vb e chamo ele dessa forma
Dim tbCryst As Recordset
Dim StrSql As String
Private Sub Form_Load()
Dim StrSql As String
Dim Rs As ADODB.Recordset
Dim Crystal As New CRAXDDRT.Application
Dim Reports As CRAXDDRT.Report
Screen.MousePointer = vbHourglass
StrSql = [Ô]SELECT 'ConsAuto'.'NomeAssociado', 'ConsAuto'.'MatriculaAssoc', 'ConsAuto'.'Nome', 'ConsAuto'.'Parentesco', 'ConsAuto'.'Credenciado', 'ConsAuto'.'TipoServico', 'ConsAuto'.'Endereco', 'ConsAuto'.'Bairro', 'ConsAuto'.'Cidade', 'ConsAuto'.'CEP', 'ConsAuto'.'nomeEmpr','ConsAuto'.'CodigoAuto' [Ô] & _
[Ô]FROM 'ConsAuto' 'ConsAuto' Where 'ConsAuto'.'CodigoAuto'=[Ô] & frmAutorizacoes.TxtCodigo
Set Rs = Conexao.Execute(StrSql)
If Rs.EOF = False Then
Set Reports = Crystal.OpenReport(App.Path & [Ô]\autorizacao.rpt[Ô])
Reports.DiscardSavedData
Reports.Database.SetDataSource Rs
CRV.ReportSource = Reports
CRV.ViewReport
CRV.EnablePrintButton = True
End If
Set Rs = Nothing
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRV.Top = 0
CRV.Left = 0
CRV.Height = ScaleHeight
CRV.Width = ScaleWidth
End Sub
Tive tb alguns problemas iguais aos seus, más consegui resolver dessa forma. Agora um conselho, o que puder fugir do crystal, não pense duas vezes, rsrsrs
Espero ter te ajudado, se te ajudei encerre o tópico e me pontue, senão posta ai para a gente te ajudar
Tenho um form que foi criado pelo assistendo do crystal no vb e chamo ele dessa forma
Dim tbCryst As Recordset
Dim StrSql As String
Private Sub Form_Load()
Dim StrSql As String
Dim Rs As ADODB.Recordset
Dim Crystal As New CRAXDDRT.Application
Dim Reports As CRAXDDRT.Report
Screen.MousePointer = vbHourglass
StrSql = [Ô]SELECT 'ConsAuto'.'NomeAssociado', 'ConsAuto'.'MatriculaAssoc', 'ConsAuto'.'Nome', 'ConsAuto'.'Parentesco', 'ConsAuto'.'Credenciado', 'ConsAuto'.'TipoServico', 'ConsAuto'.'Endereco', 'ConsAuto'.'Bairro', 'ConsAuto'.'Cidade', 'ConsAuto'.'CEP', 'ConsAuto'.'nomeEmpr','ConsAuto'.'CodigoAuto' [Ô] & _
[Ô]FROM 'ConsAuto' 'ConsAuto' Where 'ConsAuto'.'CodigoAuto'=[Ô] & frmAutorizacoes.TxtCodigo
Set Rs = Conexao.Execute(StrSql)
If Rs.EOF = False Then
Set Reports = Crystal.OpenReport(App.Path & [Ô]\autorizacao.rpt[Ô])
Reports.DiscardSavedData
Reports.Database.SetDataSource Rs
CRV.ReportSource = Reports
CRV.ViewReport
CRV.EnablePrintButton = True
End If
Set Rs = Nothing
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRV.Top = 0
CRV.Left = 0
CRV.Height = ScaleHeight
CRV.Width = ScaleWidth
End Sub
Tive tb alguns problemas iguais aos seus, más consegui resolver dessa forma. Agora um conselho, o que puder fugir do crystal, não pense duas vezes, rsrsrs
Espero ter te ajudado, se te ajudei encerre o tópico e me pontue, senão posta ai para a gente te ajudar
Tópico encerrado , respostas não são mais permitidas