Vb6 com Crystal Report Acess

Question

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

Answer 1

Olá tudo bem?

 

Bom não entendi sua pergunta.

Tem como especificar melhor.

O que você quer fazer?

 

T+

Answer 2

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

Answer 3

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.

Answer 4

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

Answer 5

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.

Answer 6

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

Answer 7

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.

Answer 8

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

Answer 9

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