none
Vb6 com Crystal Report Acess RRS feed

  • Pergunta

  • Tem como colocar este sql na pesquisa ?

    "Select * from Cabecario whare CodOrçamento='" & CodOrçamento & "'"

    Ou Tem como informar o RecordSet que quero que pesquise os dados ?



    With Report ' Report
            .Reset
            .ReportFileName = PastaDoSistemas + "\Relatorio\Orcamento Proficional.rpt"
            .Action = 1
           End With
    Exit Sub

    • Movido Eder Costa terça-feira, 2 de agosto de 2011 15:09 Processos de relatórios (De:VB.NET e Visual Basic)
    quinta-feira, 28 de julho de 2011 19:19

Todas as Respostas

  • Olá tudo bem?

     

    Bom não entendi sua pergunta.

    Tem como especificar melhor.

    O que você quer fazer?

     

    T+

    quinta-feira, 28 de julho de 2011 20:54
  • Olá tudo bem?

     

    Bom não entendi sua pergunta.

    Tem como especificar melhor.

    O que você quer fazer?

     

    T+

    Queria colocar o RecortSet para ele pegar os itens da tabela na posição que esta o itens,

    ou quem sabe colocar um Sql para ele pesquisar no Cristal reporte onde esta o iten

    quinta-feira, 28 de julho de 2011 21:19
  • Marcelo, execute seu SELECT no RecordSet. Depois atribua ao relatório:

    Report.DiscardSavedData
    Report.DataBase.SetDataSource = seuRecordSet



    "Mas a persistência é o que leva a perfeição." Se a resposta for útil, marque-a. Poderá ser útil para outros desenvolvedores.
    quinta-feira, 28 de julho de 2011 21:40
  • Marcelo, execute seu SELECT no RecordSet. Depois atribua ao relatório:

     

    Report.DiscardSavedData
    Report.DataBase.SetDataSource = seuRecordSet


     


    "Mas a persistência é o que leva a perfeição." Se a resposta for útil, marque-a. Poderá ser útil para outros desenvolvedores.

    Estou usando o componente CrystalReporte no vb6

    Report Seria o nome dele

    Report.DataBase.SetDataSource = seuRecordSet

    Ele não aceita Erro 438

    quinta-feira, 28 de julho de 2011 21:50
  • Qual a mensagem do erro 438?
    "Mas a persistência é o que leva a perfeição." Se a resposta for útil, marque-a. Poderá ser útil para outros desenvolvedores.
    sexta-feira, 29 de julho de 2011 12:27
  • Qual a mensagem do erro 438?
    "Mas a persistência é o que leva a perfeição." Se a resposta for útil, marque-a. Poderá ser útil para outros desenvolvedores.
    Object doesn´t suport this property or method
    sexta-feira, 29 de julho de 2011 13:22
  • Marcelo, seu código ficaria assim:

    Dim conexao  As ADODB.Connection
    Dim relatorio  As CrystalReport1
    Dim rpt      As CRAXDRT.Report
    Dim relApp   As CRAXDRT.Application
    
    Dim command As ADODB.Command
    Dim recordSet As ADODB.RecordSet
    
    Dim infoConexao As CRAXDRT.ConnectionProperties
    
    Set command = New ADODB.Command
    Set recordSet = New ADODB.RecordSet
    
    Set infoConexao = relatorio.Database.Tables(1).ConnectionProperties
    
    With infoConexao
     .Item("Provider") = "seuProvider"
     .Item("Data Source") = "seuServidor"
     .Item("Initial Catalog") = "seuBanco"
     .Item("User ID") = "usuario"
     .Item("Password") = "senha"
    End With
    
    conexao.ConnectionString = "suaStringConexao"
    conexao.Open
    
    recordSet.Open "SELECT * FROM cabecario WHERE codorcamento='" & CodOrçamento & "'", conexao
    
    Set rpt = relApp.OpenReport("caminhoSeuRelatorio")
    
    rpt.DiscardSavedData
    rpt.DataBase.SetDataSource recordSet
    
    CrystalViewer.ReportSource = rpt
    CrystalViewer.ViewReport
    DoEvents
    
    conexao.Close
    Set recordSet = Nothing
    Set conexao = Nothing
    Set relApp = Nothing
    Set rpt = Nothing
    
    



    "Mas a persistência é o que leva a perfeição." Se a resposta for útil, marque-a. Poderá ser útil para outros desenvolvedores.
    • Sugerido como Resposta Eder Costa terça-feira, 2 de agosto de 2011 15:07
    sexta-feira, 29 de julho de 2011 13:45
  • Marcelo, seu código ficaria assim:

     

    Dim conexao As ADODB.Connection
    Dim relatorio As CrystalReport1
    Dim rpt   As CRAXDRT.Report
    Dim relApp  As CRAXDRT.Application
    
    Dim command As ADODB.Command
    Dim recordSet As ADODB.RecordSet
    
    Dim infoConexao As CRAXDRT.ConnectionProperties
    
    Set command = New ADODB.Command
    Set recordSet = New ADODB.RecordSet
    
    Set infoConexao = relatorio.Database.Tables(1).ConnectionProperties
    
    With infoConexao
     .Item("Provider") = "seuProvider"
     .Item("Data Source") = "seuServidor"
     .Item("Initial Catalog") = "seuBanco"
     .Item("User ID") = "usuario"
     .Item("Password") = "senha"
    End With
    
    conexao.ConnectionString = "suaStringConexao"
    conexao.Open
    
    recordSet.Open "SELECT * FROM cabecario WHERE codorcamento='" & CodOrçamento & "'", conexao
    
    Set rpt = relApp.OpenReport("caminhoSeuRelatorio")
    
    rpt.DiscardSavedData
    rpt.DataBase.SetDataSource recordSet
    
    CrystalViewer.ReportSource = rpt
    CrystalViewer.ViewReport
    DoEvents
    
    conexao.Close
    Set recordSet = Nothing
    Set conexao = Nothing
    Set relApp = Nothing
    Set rpt = Nothing
    
    


     


    "Mas a persistência é o que leva a perfeição." Se a resposta for útil, marque-a. Poderá ser útil para outros desenvolvedores.

      Onde o Report o é o compninete do  CrystalRepot no form

        With Report ' Report
            .Reset
            .ReportFileName = PastaDoSistemas + "\Relatorio\Orcamento Proficional.rpt"
            .ReportSource = 1
            .Action = 1
           End With

    sexta-feira, 29 de julho de 2011 13:55
  • Olá Marcelo!  

    Seu post será movido para o fórum de relatórios.

    Sempre que sua dúvida estiver relacionada a impressões, poste por lá.

    att; 

     

     


    Eder Costa
    LATAM Forum Support Engineer
    Microsoft Corporation
    forumguys
    terça-feira, 2 de agosto de 2011 15:09