none
Crear un reporte a travez de un parametro pasado en un textbox RRS feed

  • Pregunta

  • Tengo el siguiente formulario con un reporte de crystal para crear el ID de estudiante y me gustaria pasarle como parametro el numero del estudiante que es el mismo numero de barcode convertido a codigo de barras. lo que quiero es buscar por el textbox Num.Estudiante y poder encontrar solo ese estudiante para imprimir solo esa tarjeta, gracias

    lunes, 7 de julio de 2014 19:07

Respuestas

  • Hola:
    En un Form con 1 Button, 1 TextBox, 1 ReportDocument(rdInforme) y 1 ReportViewer(crvInforme), copia y pega el siguiente codigo.

    Option Strict On
    Option Explicit On
    Imports CrystalDecisions.CrystalReports.Engine
    Imports CrystalDecisions.Shared
    Imports System.Data.SqlClient

    Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Try
                Using loConexion As New SqlConnection("TU_CADENA_DE CONEXION")
                    'Cargar el ReportDocument con el fichero de crystal
                    Me.rdInforme.Load("TU_FICHERO_RPT")
                    'Crear el conjunto de datos para llenar el fichero de Crystal
                    Dim lsQuery As String = "Select * From TU_TABLA Where NUM_ESTUDIANTE=" & Me.txtNumEstudiante.Text
                    Dim loDataAdapter As New SqlDataAdapter(lsQuery, loConexion)
                    Dim loDataTable As New DataTable
                    loDataAdapter.Fill(loDataTable)
                    'Llenar el ReportDocument con los datos
                    Me.rdInforme.SetDataSource(loDataTable)
                    'Cargar el ReportViewer con el ReportDocument
                    Me.crvInforme.ReportSource = Me.rdInforme
                End Using
            Catch Exp As Exception
                MessageBox.Show(Exp.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos

    • Marcado como respuesta Efrain Diaz domingo, 13 de julio de 2014 12:02
    martes, 8 de julio de 2014 10:13