CRIANDO RELTORIO NO CRYSTAL REPORT
Bom dia pessoal.
Estou usando o crystal report para criAR relatório. porem estou querendo criar um filtro no relatorio. Mas não quero pelo proprio reporting. quero executar es filtro por outro formulario.
alguém poderia me ajudar por favor
grata
Carolyta
Estou usando o crystal report para criAR relatório. porem estou querendo criar um filtro no relatorio. Mas não quero pelo proprio reporting. quero executar es filtro por outro formulario.
alguém poderia me ajudar por favor
grata
Carolyta
Try
strSql = ([Ô]SELECT * FROM Cliente WHERE cod_Cliente BETWEEN [ô][Ô] & nudDe.Value & [Ô][ô] And [ô][Ô] & nudAte.Value & [Ô] [ô] Order By cod_Cliente [Ô])
cmd = cnnSql.CreateCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = strSql
cmd.Connection = cnnSql
cmd.Prepare()
cmd.ExecuteNonQuery()
da.SelectCommand = cmd
da.Fill(ds)
relatorioCli.SetDataSource(ds)
Frm_Gera_Rel_Cli.CrystalReportViewer1.ReportSource = relatorioCli
[ô]DataGridView1.DataSource = ds.Tables(0)
Frm_Gera_Rel_Cli.Show()
cmd.Parameters.Clear()
Catch ex As Exception
MsgBox([Ô]Erro ao executar o comando [Ô] + Chr(13) + ex.Message, MsgBoxStyle.Critical, [Ô]Aviso[Ô])
Exit Sub
End Try
eu faço assim o Frm_Gera_Rel_Cli é o form que esta o componete crystalreportviewer da toolbox que vc add o crytalreport
ñ sei se esta certo...
strSql = ([Ô]SELECT * FROM Cliente WHERE cod_Cliente BETWEEN [ô][Ô] & nudDe.Value & [Ô][ô] And [ô][Ô] & nudAte.Value & [Ô] [ô] Order By cod_Cliente [Ô])
cmd = cnnSql.CreateCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = strSql
cmd.Connection = cnnSql
cmd.Prepare()
cmd.ExecuteNonQuery()
da.SelectCommand = cmd
da.Fill(ds)
relatorioCli.SetDataSource(ds)
Frm_Gera_Rel_Cli.CrystalReportViewer1.ReportSource = relatorioCli
[ô]DataGridView1.DataSource = ds.Tables(0)
Frm_Gera_Rel_Cli.Show()
cmd.Parameters.Clear()
Catch ex As Exception
MsgBox([Ô]Erro ao executar o comando [Ô] + Chr(13) + ex.Message, MsgBoxStyle.Critical, [Ô]Aviso[Ô])
Exit Sub
End Try
eu faço assim o Frm_Gera_Rel_Cli é o form que esta o componete crystalreportviewer da toolbox que vc add o crytalreport
ñ sei se esta certo...
quase esqueci
Private da As New SqlDataAdapter
Private cmd As New SqlCommand
Private ds As New DataSet
e a istaciaçao do crystalreport
Dim relatorioCli As New Rel_Cliente
Private da As New SqlDataAdapter
Private cmd As New SqlCommand
Private ds As New DataSet
e a istaciaçao do crystalreport
Dim relatorioCli As New Rel_Cliente
vou testar felipe...
o Código do meu relatório e assim já esta funcionando.
Try
objConexaoBD.ConectarSQL()
Dim sql As String
Dim Ds As New DataSet
Dim adapter As New SqlDataAdapter
sql = [Ô]Select * From testes[Ô]
adapter = New SqlDataAdapter(sql, ConexaoSQL)
adapter.Fill(Ds, [Ô]testes[Ô])
rpt.SetDataSource(Ds)
CrystalReportViewer1.Zoom(100)
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Show()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
objConexaoBD.DesconectarSQL()
End Try
End Sub
isso esta no formulário que gera o relatório,.. quero criar um outro formulário antes para por exemplo eu colocar o código que eu quero pesquisar e no relatório aparecer só esse código..
Try
objConexaoBD.ConectarSQL()
Dim sql As String
Dim Ds As New DataSet
Dim adapter As New SqlDataAdapter
sql = [Ô]Select * From testes[Ô]
adapter = New SqlDataAdapter(sql, ConexaoSQL)
adapter.Fill(Ds, [Ô]testes[Ô])
rpt.SetDataSource(Ds)
CrystalReportViewer1.Zoom(100)
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Show()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
objConexaoBD.DesconectarSQL()
End Try
End Sub
isso esta no formulário que gera o relatório,.. quero criar um outro formulário antes para por exemplo eu colocar o código que eu quero pesquisar e no relatório aparecer só esse código..
Faça seu login para responder