none
Utilização de SQLQueryString com VB6 e Crystal 10 RRS feed

  • Pergunta

  • Pessoal, alguém ja teve alguma restrição de uso do comando sqlquerystring para uso em relatórios crystal 10 com vb6?

    Estamos fazendo da seguinte maneira:

      Dim Form As New CPT_Report_Viewer
      Dim crpeApp As CRAXDRT.Application
      Dim crpeReport As CRAXDRT.Report

      Set crpeApp = New CRAXDRT.Application
      Set crpeReport = New CRAXDRT.Report
      
    Set crpeReport = crpeApp.OpenReport(App.Path + "\rpt_processos.rpt") 

     For Lacm_for = 1 To crpeReport.Database.Tables.Count
          With crpeReport.Database.Tables(Lacm_for).ConnectionProperties
               .Item("Data Source") = 'datasource'
               .Item("User ID") = 'login'
               .Item("Password") = 'senha' 
         End With
       Next Lacm_for

      crpeReport.DiscardSavedData

     crpeReport.SQLQueryString = "select top 10 * from cliente"

       Form.CrystalActiveXReportViewer1.ReportSource = crpeReport
           Form.CrystalActiveXReportViewer1.ViewReport
           Form.Show

    ' Finaliza a chamada

    Quando carrega o relatório, ele não traz a instrução do select e sim  o que ja veio carregado previamente ao selecionar a tabela pelo crystal.
    segunda-feira, 11 de janeiro de 2010 21:19

Todas as Respostas