CRYSTAL 8.5 - SERVER HAS NOT YET BEEN OPENED

RO.DRIGOSG 04/03/2010 17:25:01
#336079
Boa tarde pessoal,

Estou com o seguinte problema:

Tenho um relatório em crystal 8.5, nele está vinculado uma view e a conexão é feita através de uma ODBC (SQL SERVER 2005).
Estou tentando executar ele apartir do CrView mas está ocorrendo um erro: [Ô]Server has not yet been opened[Ô].
O código é o seguinte:

Option Explicit

    Private rptReport   As CRAXDRT.Report
    Private rptDB       As CRAXDRT.Database
    Private rptTable    As CRAXDDRT.DatabaseTable
    Private rptAplic    As CRAXDRT.Application

Private Sub Form_Load()
    
    Dim rsRel           As New ADODB.Recordset
    
    Screen.MousePointer = vbHourglass
    frmRelatorio.WindowState = 2
    
    Set rptAplic = New CRAXDRT.Application
    Set rptReport = rptAplic.OpenReport(App.Path & [Ô]\Relatorios\Atualiza_Atas_Log.rpt[Ô])
    Set rptDB = rptReport.Database
    Set rsRel = gclsTrans.sp_Cliente_Teste([Ô]CON[Ô])
    
    rptReport.DiscardSavedData
    rptReport.Database.SetDataSource rsRel
    
    crvRelatorio.ReportSource = rptReport
    crvRelatorio.ViewReport
    
    Screen.MousePointer = vbDefault
    
    Set rptReport = Nothing
    Set rptDB = Nothing
    Set rptAplic = Nothing
    Set rptTable = Nothing

End Sub


Alguem pode me ajudar?
XXXANGELSXXX 29/12/2010 08:32:56
#360598
kra.. voce tem que abrir a tabela , ele nao ta conseguindo abrir a tabela.. entao veja como faço..

  
        Set crxRpt = crxApp.OpenReport(App.Path & [Ô]\RelatoriosCrystalptCliCidades.rpt[Ô])
[ô]Criei uma DSN e estou buscando o valor da mesma para conectar a tabela
        crxRpt.Database.Tables(1).SetLogOnInfo [Ô]MyDSNCRM[Ô], BASEDEDADOS, USUARIO, SENHA

        Set crxTables = crxRpt.Database.Tables
        For Each crxTable In crxTables
            With crxTable
                .Location = .Name
            End With
        Next
[ô]formulas diversas
        sCriterio = [Ô][Ô] & [Ô]{cadpessoascontato.contprincipal}=1[Ô]
        If txtCidade.Text <> [Ô][Ô] Then sCriterio = sCriterio & [Ô] and {cadpessoasendereco.endcidade}=[ô][Ô] & txtCidade.Text & [Ô][ô][Ô]
with CRViewer
        .ReportSource = crxRpt
        crxRpt.RecordSelectionFormula = sCriterio
        .ViewReport
        .Zoom 80
end with
Tópico encerrado , respostas não são mais permitidas
Voltar