CrystalReportViewer e passagem de parâmetros

Question

Seguinte pessoal...estou fazendo um aplicação ao qual tem relatórios em Crystal feitos com procedures no sql...

Estou usando VS2005 e não estou acetando a passagem de parâmetro já que a minhna procedure tem 6 parametros

Coloquei o componente em uma página em branco e tenho algumas dúvidas em como proceguir depois....tipo.. na minha página aspx onde tem o botão imprimir que abre o relatório...o que eu deevo colocar nessa página ja que toda a configuração do relatoria vai ficar na página onde coloquei o componente CrystalReportViewer (Me corrijam se estou errada, pois nunca fiz isso.)

 

A minha página vb onde esta o componente esta assim:

 

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Imports System.Data

Imports sistvb_cripto

 

Partial Class Relatorio1

Inherits System.Web.UI.Page

Private rpt As ReportDocument

Private Sub ConfigureCrystalReports()

rpt = New ReportDocument()

rpt.Load(Server.MapPath("viewer\rptDispensa1_9.rpt").ToString)

 

Dim user_bco As String = "UiePbcIbN"

Dim senha_bco As String = "AYkbrkEySe@"

Dim Obj As New crpt

'Dim Mat As Integer

'Dim Data As DateTime

'Dim Dia As Integer

'Dim Superintendente As String = Nothing

'Dim DuasHoras As Integer

'Dim DiasCorridos As Integer

rpt.SetDatabaseLogon(Obj.fug_criptografa(user_bco, False), Obj.fug_criptografa(senha_bco, False))

crvRelatorio.ReportSource = rpt

'rpt.SetParameterValue("@func_cd_matricula", Mat)

'rpt.SetParameterValue("@DtCessarAtividades", Data)

'rpt.SetParameterValue("@DiaApresentacaoRH", Dia)

'rpt.SetParameterValue("@NmSuperintendente", Superintendente)

'rpt.SetParameterValue("@flDuasHoras", DuasHoras)

'rpt.SetParameterValue("@fl7DiasCorridos", DiasCorridos)

End Sub

Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

ConfigureCrystalReports()

End Sub

End Class

 

 

PS que esta comentado são os parametros da minha procedure..eis a dúvida..se coloco ai ou na pagian ondee tem o botão imprimir ou se em ambas....clareiem isto pra mim por favor..estou perdida.

 

PS 2: Esta ocorrendo um erro assim tb :

Error 1 'CrystalReportViewer' is ambiguous in the namespace 'CrystalDecisions.Web'. C:\Inetpub\wwwroot\Prog2005\Relatorio1.aspx

Não sei o que é...

 

Me ajudem...

Answer 1

Ola, vivian tenho um relatorio em meu sistema que funciona direitinho, veja se te ajuda.

detalhe uso o vs2003 mas para adaptar para vs2005 é facil.

 

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here

Dim rpt As New CRImp_VeicApreLib

Dim sqlConexao As New SqlClient.SqlConnection(conStr)

Try

sqlConexao.Open()

Dim cm As SqlClient.SqlCommand = sqlConexao.CreateCommand

 

cm.CommandType = CommandType.StoredProcedure

cm.CommandText = "sp_Veiculos_Apreendidos"

cm.Parameters.Add("@codsit", SqlDbType.VarChar).Value = Request.QueryString("TpSituacao")

cm.Parameters.Add("@muncod", SqlDbType.VarChar).Value = Request.QueryString("muncod")

cm.Parameters.Add("@dataini", SqlDbType.VarChar).Value = Request.QueryString("dataini")

cm.Parameters.Add("@datafim", SqlDbType.VarChar).Value = Request.QueryString("datafim")

cm.ExecuteNonQuery()

 

Dim da As New SqlClient.SqlDataAdapter(cm)

Dim ds As New Dsliberacao

da.Fill(ds, "Liberacao")

rpt.SetDataSource(ds)

rpt.SetDataSource(ds.Tables(0))

CRVimp_VeicApreeLib.ReportSource = rpt

Catch ex As Exception

msgboxweb("Erro ao Tentar Visualizar.: " & ex.ToString, Me)

End Try

End Sub

End Class