CRYSTAL REPORT

USUARIO.EXCLUIDOS 01/04/2004 14:05:45
#18064
Eu estou tentando fazer um relatório onde deveria pegar as tabelas q estão em ACCESS 97 ....
Só q para isso eu usei o seguinte :
CrystalReport1.SQLQuery = "SELECT PedidoC.Numero, Clientes.RazaoSocial, .... ON PedidoC.Cliente = Clientes.Codigo WHERE (((PedidoC.Numero)='" & Text4.Text & "'));"

Só q para funcionar esse sqlquery eu preciso fazer o logon no server entao pra isso eu usei o seguinte:

CrystalReport1.LogOnServer "P2bdao.dll", "", "DB", "userid", "password"

Só q ele da o seguinte erro : ERROR : 20536 UNABLE TO LOGON TO SERVER
LIZANDRO 01/04/2004 14:12:11
#18070 Resposta escolhida
Não seria melhor colocar esta consulta dentro do proprio relatorio, e vc so mandar parametros para pesquisa...
LIZANDRO 01/04/2004 14:27:44
#18092
Perai ... Vc vai construi o acesso detro do prorpio crystal. Qual versao vc esta utilizando ???
Tenho esta codificação cas queira usar

Public Sub ImprimeRelatorio(ByRef objCristal As CrystalReport, _
                            ByVal strNomeRelatorio As String, _
                            ByVal strTituloRelatorio As String, _
                            Optional strSelectionFormula As String, _
                            Optional strDestinoImpressao As String, _
                            Optional strNomeSubRelatorio As String)

On Error GoTo TrataErro
    objCristal.Connect = "Driver=Microsoft Access Driver (*.mdb);"
    objCristal.ReportFileName = strNomeRelatorio
    objCristal.ReplaceSelectionFormula strSelectionFormula
    objCristal.Destination = strDestinoImpressao
    objCristal.WindowTitle = strTituloRelatorio
    objCristal.WindowState = crptMaximized
    objCristal.WindowBorderStyle = crptSizable
    objCristal.ProgressDialog = True
    objCristal.Action = 1
    objCristal.PageZoom 80
    
    Exit Sub
    
TrataErro:
    MsgBox Err.Description
        MsgBoxPadrao "Ocorreu um Erro na Impressão !" & vbCrLf & vbCrLf & "Contacte o Analista de Desenvolvimento.", "Atenção", vbOK, vbCritical
'    strSelectionFormula = ""
    
End Sub


Esta é a parte e para fazer a chamada do relatorio

esta e dentro do form 

                strSelectionFormula = ""
                If lCod_Secao  0 Then
                    strSelectionFormula = "{tbSecao.Cod_Secao} = " & lCod_Secao
                Else
                    strSelectionFormula = ""
                End If
                If lCod_Cidade  0 Then
                    strSelectionFormula = strSelectionFormula & " AND {tbCidade.Cod_Cidade} = " & lCod_Cidade
                End If
                Call ImprimeRelatorio(frmBairroSelecao.crpRelatorio, Mid(sPathNomeBanco, 1, Len(sPathNomeBanco) - 8) & "rptBairro.rpt", "Relatório de Bairros", strSelectionFormula, crptToWindow)



O que esta entre{}, e um compo no seu relatorio ...



Deu para entender ???
LIZANDRO 01/04/2004 14:33:53
#18096
Acho que é assim

crystal.selectionformula:="{PedidoC.Numero}=" & text4.text & ""
LIZANDRO 01/04/2004 15:07:07
#18120
O teu banco tem senha ???
LIZANDRO 01/04/2004 15:20:50
#18129
Não esqueça de fechar o tópico
Tópico encerrado , respostas não são mais permitidas
Voltar