Problema con Parametros en CrytalReports/SQL Server/VB2005

[Melunina]

Holas, tengo una consulta por hacer:

Necesito saber cómo poder pasarle un parámetro a CrystalReports desde una aplicación en visual Studio 2005 (.net)

El problema que tengo es el siguiente: tengo una base de datos en SQL Server 2005, en la cual tengo un procedimiento almacenado, que recibe un parámetro para devolver datos de una consulta.

El Store Procedure es el siguiente:

Select * from Alumnos where Id_Alu = @Alu

Cuando quiero listar eso en CrystalReports, me solicita ese parámetro,



Pero yo quiero pasarlo por código, por ejemplo desde un txt desde otro Form.
Es posible??
Muchas gracias y espero que alguien pueda responder

[eperedo]

Primero crea un método que te devuelva esos datos de la forma normal, como si lo fueras a enlazar a un DataGridView.

Código vb.net:

Private Function MostrarDatos() As DataTable
Dim cn As New SqlConnection(conexion)
Dim cmd As New SqlCommand("MI_USP",cn)
cmd.Parameters.Add("@codigo",SqlDbType.VarChar,4).value = Me.TextBox1.Text
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
da.fill(dt)
return dt
End Function
 

Luego usar el método SetDataSource de la clase ReportDocument.

Código vb.net:

Dim rpt As New ReportDocument();
rpt.Load("C:\TU_reporte.rpt")
rpt.setDataSource(me. MostrarDatos) 'Esto asignará los datos al reporte sin mostrar la ventan a de parámetros del CR
Me.CrystalReportViewer1.ReportSource=rpt
 

Y eso sería todo, cualquier duda o error en el código me avisas.

PD: Puedes visitar un post de mi blog con código fuente de esto.
Mi blog

[Melunina]

Muchisimas Graciassssss

Muy bueno tu blog y estoy leyendolo desde hoy por la tarde

Tenes muchisimas cosas!!! Gracias de verdad!!!

[eperedo]

Que bueno que te haya servido, aunque tengo bastante desactualizado el blog, pero aprovechando las vacaciones escribiré más seguido.

Saludos.