FALHA CONEXAO CRYSTAL REPORT XI

XXXANGELSXXX 09/11/2010 12:15:27
#356970
Bom dia senhoras e senhores, estou com um probleminha aqui com meu relatorio do crystal, vejam só, eu faço o relatorio conectando diretamente do mesmo normalmente, so para buscar os campos da tabela, coloco os campos que quero que sejam exibidos, depois via vb passo o parametro SQL para o relatorio ser carregado, utilizo o crviwer para carregar os dados do relatorio, pois dele ou imprimo ou exporto, entao veja o que acontece, na minha maquina que tem o crystal 11 instalado funciona parfeitamente, o relatorio é exibido normalmente, nas maquinas estações instalei o run time do crystal 11, onde começou o problema, em todas as maquinas.. o relatorio que tem mais de 1 tabela relacionada começou acontecer o erro [Ô]Falha na conexão[Ô] só esse erro, e o relatorio nao imprime no crviewer, veja so, se tiver apenas 1 tabela o sistema imprime normalmente, so esta acontecendo o erro quando tem mais de 1 tabela vinculada, vou passar o fonte de como chamo o relatorio, para verem se tem algo errado, lembrando que, na minha maquina funciona normal, so da problema nas estaçoes, e outra coisa, instalei o ambiente de programacao em uma das maquinas para ver se era alguma dll ou ocx com problema e o erro permaneceu, entao já não é problema de dll pelo que vi, 

  
If OptPorCidade.Value = True Then
    Set RsRelatorio = New ADODB.Recordset
    Set Report = Crystal.OpenReport(App.Path & [Ô]\RelatoriosCrystalptCliCidades.rpt[Ô])
    Report.DiscardSavedData
    StrSql = [Ô]select a.pesscodigo,a.pessnome,b.contdescricaocontato,c.endtipendereco,c.endendereco from cadpessoas a,cadpessoascontato b,cadpessoasendereco c where a.pesscodigo=b.pesscodigo and a.pesscodigo=c.pesscodigo and b.contprincipal=1 and c.endprincipal=1[Ô]
    If ChAtivos.Value = True Then StrSql = StrSql & [Ô] and a.pessativo=1[Ô]
    If ChInativos.Value = True Then StrSql = StrSql & [Ô] and a.pessativo=0[Ô]
    If txtCidade.Text <> [Ô][Ô] Then StrSql = StrSql & [Ô] and c.endcidade=[ô][Ô] & txtCidade.Text & [Ô][ô][Ô]
    
    StrSql = StrSql & [Ô] order by c.endendereco[Ô]
    RsRelatorio.Open StrSql, Conexao, adOpenStatic, adLockReadOnly
   
    Report.Database.SetDataSource RsRelatorio

If RsRelatorio.RecordCount > 0 Then
    For i = 1 To Report.FormulaFields.Count
        nFor = Report.FormulaFields.item(i).Name
        If nFor = [Ô]{@CliCodigo}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & pesscodigo & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@clinome}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & pessnome & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@clitelefone}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & contdescricaocontato & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@tipoender}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & endtipendereco & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@endendereco}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & endendereco & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@endn}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & endnumero & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@endbairro}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & endbairro & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@endcomp}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & endcomplemento & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@forcidade}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & endcidade & [Ô][ô][Ô]
        ElseIf nFor = [Ô]{@xpsituacao}[Ô] Then
            Report.FormulaFields.item(i).Text = [Ô][ô][Ô] & LblStatus.Caption & [Ô][ô][Ô]
        End If
       
    Next i
    With frmRelatorios
        .CRViewer.ReportSource = Report
        .CRViewer.ViewReport
        Do While .CRViewer.IsBusy
    DoEvents
    Loop
       .Show 1
    End With

    
Else
msg1.MsgBox [Ô]   Não existe dados com esses critérios selecionados![Ô], vbInformation, [Ô]techsize CRM.net[Ô]
End If

    RsRelatorio.Close
    Set RsRelatorio = Nothing
    Set Crystal = Nothing
    Set Report = Nothing
End If

Quem ajudar vai ganhar um doce.. rsrs. abraço pessoal.
XXXANGELSXXX 10/11/2010 09:24:51
#357075
Resolvido.. 
   

Set crxRpt = crxApp.OpenReport(App.Path & [Ô]\RelatoriosCrystalptCliCidades.rpt[Ô])
crxRpt.Database.Tables(1).SetLogOnInfo [Ô]siteztrix[Ô], BASEDEDADOS, USUARIO, SENHA

Set crxTables = crxRpt.Database.Tables
For Each crxTable In crxTables
    With crxTable
         .Location = .Name
    End With
Next
Tópico encerrado , respostas não são mais permitidas
Voltar