Visual Basic.NET - parametros en crystal report

hola a todos por favor necesito ayuda, necesito saber como puedo pasar parametros a crystal report.
Lo que quiero hacer es elegir por ejemplo un trabajador y que me muestre el informe de ese trabajador que elegi previamente en un formulario y no todos los de la tabla.
por favor ayuda

gracias de antemano

Con este codigo asignas el valor a un parametro de tu crystal report:

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Dim oReporte As New reportDocument ' INSTANCIA DE TU ARCHIVO *.RPT

Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues

crParameterFieldDefinitions = oReporte.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("@CODIGO")'NOMBRE DEL PARAMETRO EN EL *.RPT
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = me.txtCodigo.text.trim 'VALOR PARA EL PARAMETRO
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

Me.crvReporte.ReportSource = oReporte ' ASIGNANDO AL CRYSTAL REPORT VIEWER
End Sub

Espero te sea de utilidad.

gracias

pero no me funciona... =(... donde lo pongo?? por que lo puse en unboton y nopuedo me arroja error alpresionar el boton, estuve viendo que al parametro le das valor de un cuadro de texto y despues como comparas pa que temuestre los datos?? por que yo quiero elegir un dato de una tabla de la base de datos y que aparezca todo lo relacionado con ese datoque elegi en el informe.

graicas nuevamente

Hola!!
A ver.. Prueba con esto

HOLA LILIA, ME LLAMO MARISOL VEO QUE SABES MUCHO, ME PODRIAS AYUDAR, TE PLATICO:
MIRA ESTOY ASIENDO UN PROYECTO EN VISUAL BASIC 6.0 Y MIS REPORTES SON EN CRYSTAL REPORT, TOD ES SOBRE STORED PROCEDURE PERO CON PARAMETROS.
Y NO SE COMO MANDAR ESOS PARAMETROS DEL VISUAL AL CRYSTAL

POR FAVOR SI TU SABES DIME SIP. O CUALQUIER PERSONITA QUE ESTE EN ESTE FORO Y SEPA DEL TEMA, LE SERE AGRADECIDA.

Hola Marisol!!
Hijoles ya hace un buen de Tu pregunta, solo espero que hayas encontrado la solución, la cosa es que hasta hoy vi eso :S de mera casualidad...

Lo ideal es que hayas puesto Tu nota como nueva, para que esté más a la vista...
Bien talvés leas esto o no lo sé, pero pues aqui andamos, ah y No Te creas, sé muy poquito, lo bueno es que existen personitas especiales que están dispuestas a ayudarlo a uno y con eso aprendes muchote!...

En cuanto a lo que comentas en la nota, la verdad que no me ha tocado manejar VB6.0, pero pues los storeds si un pokitín, más se le busca para encontrar..
Ojalá algún día leas esto y me cuentes cómo Te fué...
Que estés muy bien!!
Un saludo!

SI ALGUIEN QUIERE CONSULTAS AVISEME MI EMAIL ES [email protected]

TODO SOBRE PROGRAMACION Y CODIGOS PARA INTERCAMBIAR CONOCIMIENTOS.

TENGO EXPERIENCIA .

Y SOY DE PERU

Hola!!
A ver.. Prueba con esto que nuestro amigo Robes me ha prestado y funciona perfecto:

Declaras esto arriba de la Clase:

Imports CrystalDecisions.Shared
Imports CrystalDecisions.ReportSource

En el evento click del botón que te va a mostrar el crystal:

'Imprimir Entradas por Rango de Fecha
Me.crv_entradas.ReportSource = Nothing

Dim ParamCte As New ParameterDiscreteValue

ParamIni.Value = Me.txtcliente.Text 'Aqui indicas de donde va a tomar el valor para el parametro

Dim ParamList As New ParameterFields
Dim ParamTemp As ParameterField

ParamTemp = New ParameterField
ParamTemp.ParameterFieldName = "@campoCte" 'Aqui asignas el parametro que usas
ParamTemp.CurrentValues.Add(ParamCte)
ParamList.Add(ParamTemp)

MsgBox("Espere un momento mientras se carga el catalogo", MsgBoxStyle.Information, " ::Sistema Wa Wa ::")

Me.crystalreport1.ParameterFieldInfo = ParamList
Me.crystalreport1.ReportSource = New rpt_Cliente 'es el nombre de mi reporte

Espero te sea de ayuda, cualquier cosa ahi me cuentas va??

gracias lilia..... ua consulta de dende sacas ParamIni????? y como creo el parametro en el crystal porque yo me fui a agregar formularios de windows y ahi elegi crystal report y ya hicedos informespero solo sacando datos de las tablas y haciendo grupos, y hay una parte de crear parametros pero no se si sera ahi???

y.... me.crv_entradas es el crystalreportviewer???
y.... crystalreport1 es el reporte???

te agradeceria montonces queme respondieras eso porfavor
soy un poco duro pero a estas alturas quiero terminar luego esto, por que ees mi proyecto de titulo y he aprendido visual.net probando codigos y con un libro nada mas. ojala me ayudes porfavor

gracias

A ver te explicare con manzanas:

En tu Archivo .RPT, ese donde diseñas como quieres que se muestre el reporte, alli al lado DERECHO tienes un PANEL, donde muestra tu conexion y tablas o SP.

Yo usualmente uso SP, y dentro de ellos creo los parametros, AHORA el Crystal tambien te permite crear los parametros, solo das clic derecho en esa opcion y lo creas, PERO DE PREFERENCIA CREATE UN SP Y ASUNTO ARREGLADO.

Luego en tu formulario pegas el codigo que te pase y donde veas REPORTDOCUMENT pones el NOMBRE DE TU REPORTE.

Eso es todo, espero lo entiendas.
Salu2 y Suerte!

Muchas gracias P.J. por darte eltiempo de enseñarme =) pero me arroja error en esta linea

crParameterFieldLocation = crParameterFieldDefinitions.Item("@trabajador")

asi se llama mi parametro lo cree en la barra que sale del crystal y me dice "invalid field name" puke nuc crear PS =s

Hola!
Por lo que veo no revisas tu mail.... y si disculpa lo que pasa que me ekivoké en lo de ParamIni por eso te habia enviado el mail...nohagas caso a lo anterior y prueba con esto ke esta abajo...

Me.crystalreport1.- es el crystalreportviewer y
rpt_Cliente.- es el nombre del reporte

Y si te pido una disculpa por no haber respondido antes, Porfa espero respondas que tal te fue si?

Pero bueno puedes elegir la propuesta que se te haga más fácil:
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

A ver.. Prueba con esto que nuestro amigo Robes me ha prestado y funciona perfecto:

Declaras esto arriba de la Clase:

Imports CrystalDecisions.Shared
Imports CrystalDecisions.ReportSource

En el evento click del botón que te va a mostrar el crystal, pones lo siguiente:

'Imprimir Clientes
Me.crystalreport1.ReportSource = Nothing

Dim ParamCte As New ParameterDiscreteValue

ParamCte.Value = Me.txtcliente.Text 'Aqui indicas de donde va a tomar el valor para el parametro

Dim ParamList As New ParameterFields
Dim ParamTemp As ParameterField

ParamTemp = New ParameterField
ParamTemp.ParameterFieldName = "@campoCte" 'Aqui asignas el parametro que usas
ParamTemp.CurrentValues.Add(ParamCte)
ParamList.Add(ParamTemp)

MsgBox("Espere un momento mientras se carga el catalogo", MsgBoxStyle.Information, " ::Sistema Wa Wa ::")

Me.crystalreport1.ParameterFieldInfo = ParamList
Me.crystalreport1.ReportSource = New rpt_Cliente 'es el nombre de mi reporte

Espero te sea de ayuda, cualquier cosa ahi me cuentas va??
Saludos!!!!!!
Besos!!

Gracias Lilia y gracias P.J. son muuy buena onda ambos, gracias por la ayuda y la paciencia y eltiempo que les hago perder en mi inquietud =)

PD:Lilia te acabo deenviar un meil.....para que lo revises

Buenas

Una pregunta cuando pego las 2 primeras instrucciones en general del vb.net 2005 en el form (general)

Imports CrystalDecisions.Shared
Imports CrystalDecisions.ReportSource

me las subraya la palabra "Imports" indicandome error de sintasis

ademas que el reporte se me muestra en blanco coloque el crystareportvierw

y anterior mente habia realizado el reporte, le indique al crystalview el reporte y estableci la coneccion todo bien

me muestra el informe en blanco

e probado de todo

gracias por la colaboración

Atte

Andy.....

Excelente

¿Qué sucede si queremos pasar mas de un parámetro?

Podemos Hacer los siguiente:

frmPreview.crvReportes.ReportSource = Nothing
Dim PEmpDes, PEmpRUC, PEmpGIR, PFechaImp, PvPie As New ParameterDiscreteValue
'Parametros
PEmpDes.Value = EmpDes
PEmpRUC.Value = EmpRUC
PEmpGIR.Value = EmpGir
If chkFechaImp.Checked = True Then
PFechaImp.Value = "Imp.: " & Mid(FechaImp.ToString.Trim, 1, 10)
Else
PFechaImp.Value = ""
End If
PvPie.Value = vPie
'Definicion de Parámetros
Dim ParamList As New ParameterFields
Dim ParamTemp1 As ParameterField
Dim ParamTemp2 As ParameterField
Dim ParamTemp3 As ParameterField
Dim ParamTemp4 As ParameterField
Dim ParamTemp5 As ParameterField

ParamTemp1 = New ParameterField
ParamTemp2 = New ParameterField
ParamTemp3 = New ParameterField
ParamTemp4 = New ParameterField
ParamTemp5 = New ParameterField
ParamTemp1.ParameterFieldName = "@PEmpDes" 'Aqui asignas el parametro que usas
ParamTemp2.ParameterFieldName = "@PEmpRUC" 'Aqui asignas el parametro que usas
ParamTemp3.ParameterFieldName = "@PEmpGIR" 'Aqui asignas el parametro que usas
ParamTemp4.ParameterFieldName = "@PFechaImp" 'Aqui asignas el parametro que usas
ParamTemp5.ParameterFieldName = "@PvPie" 'Aqui asignas el parametro que usas

ParamTemp1.CurrentValues.Add(PEmpDes)
ParamTemp2.CurrentValues.Add(PEmpRUC)
ParamTemp3.CurrentValues.Add(PEmpGIR)
ParamTemp4.CurrentValues.Add(PFechaImp)
ParamTemp5.CurrentValues.Add(PvPie)

ParamList.Add(ParamTemp1)
ParamList.Add(ParamTemp2)
ParamList.Add(ParamTemp3)
ParamList.Add(ParamTemp4)
ParamList.Add(ParamTemp5)

frmPreview.crvReportes.ParameterFieldInfo = ParamList

Dim dt As New DataTable

With dt
.Columns.Add("ffecha")
.Columns.Add("ncomer")
.Columns.Add("nvenfp")
.Columns.Add("ncomfp")
.Columns.Add("nvenfc")
.Columns.Add("ncomfc")
End With
For Each dr As DataGridViewRow In frmTipodeCambio.dgvTipCam.Rows
dt.Rows.Add(dr.Cells("ffecha").Value, dr.Cells("ncomer").Value, _
dr.Cells("nvenfp").Value, dr.Cells("ncomfp").Value, _
dr.Cells("nvenfc").Value, dr.Cells("ncomfc").Value)
Next
Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New rptTipodeCambio
rptDoc.SetDataSource(dt)
frmPreview.crvReportes.ReportSource = rptDoc
frmPreview.ShowDialog()
frmPreview.Dispose()

erdon que les escriba ero estoy siguiendo su codigo para realizar un reporte y no me causa conflicto pero solo mandando un parametro como le hago ara mandar varios he intantado p ero no me funciona

Hola, tengo una pregunta quiero hacer que un reporte de crystal o de microsft rdlc me muestre un producto determinado del cual ingreso el codigo en un txt alguien me puede ayudar con eso? saludos.

gracias funciono chevere un 10