COMO CONECTAR CRYSTAL REPORT COM SQL SERVER EXPRES

FFECHER 09/07/2011 09:46:49
#378844
BOm dia
Consegui migrar meu sistema de acess para sql server mas agora vem o segundo problema todos meus relatorios estao em crystal report, como faco o crystal report buscar os dados no sql server ?
ALVAROVB2009 09/07/2011 11:17:32
#378850 Resposta escolhida
FFECHER da uma olhada no meu tópico do subreport e pega também o esquema q tem lá, ele tem conexão com o mysql, más vc pode usar o mesmo padrão, acho que dá para te ajudar, qqer coisa posta ai blz
FFECHER 09/07/2011 14:29:17
#378858
aCHO QUE SEU EXEMPLO NAO SE APLICA DEVIDO A EU USAR O CRYSTAL 8 AI O RELATORIO E FORA DA APLICACAO
NO SEU CASO O CRYSTAL E O NOVO NE PELO QUE POUCO SEI ELE FUNCIONA INTEGRADO JA NE
ROBIU 09/07/2011 16:59:40
#378865 
Report.Database.SetDataSource Rs

Esse código carrega o relatório. Para isso o Rs deve está carregado com os dados que serão exibidos no relatório. Então carregue o Rs pegando os dados para o Rs e jogando para o relatorio. para isso os campos sevem ser iguais.

Como você carrega o relatório? Por dentro ou por fora do vb6? E a conexão, como é feita. Dê mais detalhes para facilitar. Se possível, poste um projeto com o relatorio.
FFECHER 10/07/2011 10:04:47
#378884
ele e um arquivo externo so passo para ele quando necessario a clausula de selecao. no access eu fazia assim :
CrystalReport1.DataFiles(0) = fprincipal.StatusBar1.Panels(1).Text & dirtrab
CrystalReport1.ReportFileName = fprincipal.StatusBar1.Panels(1).Text & [Ô]\PEDIDOFABRICA.RPT[Ô]
[ô]sql = [Ô]{ENTRADAS.CD_PEDIDO}=[Ô] & Chr(39) & Format(resp, [Ô]00000[Ô]) & Chr(39) & [Ô] and {precos.cd_loja}=[Ô] & Chr(39) & ds_loja.BoundText & Chr(39)
CrystalReport1.SelectionFormula = sql
CrystalReport1.PrintReport
RFTD 11/07/2011 08:12:34
#378897 
Public Sub CarregarRelatorio()
    On Error GoTo tratar

    [ô]Unload Me
    Dim rs As New ADODB.Recordset               [ô]HOLDS ALL DATA RETURNED FROM QUERY

    rs.CursorLocation = adUseClient
    rs.Open sql, MyDatabase, adOpenForwardOnly, adLockReadOnly, adCmdText
    Set rs.ActiveConnection = Nothing
  
    If rs.EOF Then
        MsgBox [Ô]Não há registros![Ô], vbInformation
        Unload Me
        Exit Sub
    End If
        
    Dim crystal As New CRAXDRT.Application      [ô]LOADS REPORT FROM FILE
  
    Dim report As CRAXDRT.report            [ô]HOLDS REPORT
    Set report = crystal.OpenReport(App.Path & [Ô]pt\[Ô] & relatorio)  [ô]OPEN OUR REPORT

    report.DiscardSavedData                            [ô]CLEARS REPORT SO WE WORK FROM RECORDSET
    report.Database.SetDataSource rs             [ô]LINK REPORT TO RECORDSET

Me.Show
  
    [ô]CRViewer.DisplayBorder = False          [ô]MAKES REPORT FILL ENTIRE FORM
    [ô]CRViewer.DisplayTabs = False            [ô]THIS REPORT DOES NOT DRILL DOWN, NOT NEEDED
    [ô]CRViewer.EnableDrilldown = False        [ô]REPORT DOES NOT SUPPORT DRILL-DOWN
    [ô]CRViewer.EnableRefreshButton = False    [ô]ADO RECORDSET WILL NOT CHANGE, NOT NEEDED
    [ô]CRViewer.EnableExportButton = True      [ô]EXPORTAR RELATORIO
  
    CRViewer.ReportSource = report              [ô]LINK VIEWER TO REPORT
    CRViewer.ViewReport                   [ô]SHOW REPORT

    Do While CRViewer.IsBusy              [ô]ZOOM METHOD DOES NOT WORK WHILE
        DoEvents                          [ô]REPORT IS LOADING, SO WE MUST PAUSE
    Loop                                  [ô]WHILE REPORT LOADS.
      
    CRViewer.Top = 0                    [ô]WHEN FORM IS RESIZED
    CRViewer.Left = 0
    CRViewer.Height = ScaleHeight
    CRViewer.Width = ScaleWidth

    rs.Close
    Set rs = Nothing
    Set crystal = Nothing
    Set report = Nothing
  
    limparVariaveis
    Exit Sub
tratar:
    MsgBox Err.Description
  
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar