Inquiridor
Vb6 com Crystal Report Acess

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)
Todas as Respostas
-
-
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
-
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. -
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
-
-
-
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
-
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 -