none
Crear reportes con crystalReports En visual Basic Studio 2008 RRS feed

  • Pregunta

  • Buenas Tardes, estoy haciendo un proyecto en visual Basic 2008 (Studio ) con una base de datos de SQL Server, y necesito hacer un reporte, pero antes de que me muestre el reporte, necesito rangear en un formulario desde que clave hasta que clave me va a mostrar.

    He visto varios ejemplos pero todos dicen que con un Dataset Tipiado, y mi programa hace la conexión por lineas de cogido, y llena los DataSet tambien por código.

    La aplicacion trata de capturar proveedores.

     

    Espero que me puedan ayudar, muchas gracias de antemano...

    • Cambiado Enrique M. Montejo jueves, 17 de noviembre de 2011 6:26 consulta sobre Crystal Reports (De:Lenguaje VB.NET)
    jueves, 17 de noviembre de 2011 4:56

Respuestas

  • amigote imagino que sabes como agregar un crystal reports y crear una conexio de este a tu bd de modo que t dejo lo que pides esete ejemplito es de un reporte de compras donde elijo un proveedor y un rango de ventas pero en vez de las fechas tu pondrias un rango de claves . de modo que elijas de que clave hasta que clave consultar

    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Data.SqlTypes
    Imports CrystalDecisions.CrystalReports.Engine
    Imports CrystalDecisions.Shared
    Imports CrystalDecisions.ReportSource
    
    Public Class formrptcomprs
        Dim cn2 As New SqlConnection("server=azucena;initial catalog=pqs;integrated security=true;")
        Dim cn As New SqlConnection("server=azucena;initial catalog=pqs;integrated security=true;")
    
        
    
    
    
        Private Sub formrptcomprs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
    
            Dim condicion2 As String
            Dim cmd2 As New SqlCommand("select nombre from proveedor", cn2)
            cn2.Open()
    
            Dim rdrprove As SqlDataReader = cmd2.ExecuteReader()
            ComboBox1.Items.Clear()
    
            Do While rdrprove.Read
                condicion2 = rdrprove.GetValue(0)
    
                ComboBox1.Items.Add(condicion2)
    
            Loop
    
    
        End Sub
    
        
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim report As New CrystalReport2
    
            Dim dt As New DataTable
            Using conexion As New SqlConnection("server=azucena;initial catalog=pqs;integrated security=true;")
                Try
    
                    Dim cmd As New SqlCommand("sp_rpt_compras", conexion)
                    cmd.CommandType = CommandType.StoredProcedure
                    conexion.Open()
                    cmd.Parameters.AddWithValue("@fechainicial", DateTimePicker1.Value.Date)
                    cmd.Parameters.AddWithValue("@fechafinal", DateTimePicker2.Value.Date)
                    cmd.Parameters.AddWithValue("@nombre", ComboBox1.Text)
                    Dim adaptador As New SqlDataAdapter(cmd)
    
                    adaptador.Fill(dt)
    
                Catch y As SqlClient.SqlException
                    MessageBox.Show(y.Message)
    
                End Try
            End Using
    
    
    
            report.SetDataSource(dt)
            CrystalReportViewer1.ReportSource = report
    
    
        End Sub
    
    End Class
    

    espero que te sirva ! =)

    • Marcado como respuesta Hugo Gil martes, 10 de enero de 2012 2:18
    sábado, 19 de noviembre de 2011 16:07