Reporte con crystal report desde BD mdf

[klaudio83]

Hola que tal espero me puedan ayudar con esto.
Estoy trabajando en el Visual Studio 2008 con vb.net y estoy usando una BD de SQL server 2005 de tipo .mdf.

Necesito generar un reporte, en realidad una factura (entiendase imprimir el detalle de una venta asociada a un cliente) y sacar todos los datos de la BD.
Creo que es como tratar de generar un reporte pero con variables.

El punto es que googleando encontre la manera de generar un reporte un listado para ser mas preciso. El problema es que una factura es un poco mas complejo y no eh podido encontrar nada al respecto.

Dejo lo que encontre para ver si alguien tiene una idea de como hacerlo y ayudarme porfavor.

Código vb.net:

Imports System.Data.SqlClient
 
Public Class visor_ListadoClientes
    Dim cadena As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\KlAuDiO\Mis documentos\Sistema\sistema.mdf;Integrated Security=True;User Instance=True"
 
    Private Sub visor_ListadoClientes_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim conexion As New SqlConnection(cadena)
 
        Dim ds As New sistemaDataSet
 
        Dim da1 As New SqlDataAdapter("SELECT * FROM cliente", conexion)
        Dim da2 As New SqlDataAdapter("SELECT * FROM ciudad", conexion)
 
        Try
            conexion.Open()
            da2.Fill(ds.ciudad)
            da1.Fill(ds.cliente)
            conexion.Close()
 
            Dim InformeClientes As New cr_ListadoClientes
            InformeClientes.SetDataSource(ds)
            Me.CrystalReportViewer1.ReportSource = InformeClientes
 
            ds.Dispose()
            da1.Dispose()
            da2.Dispose()
 
        Catch ex As Exception
            MsgBox("Mensaje : " & ex.Message)
        End Try
    End Sub
End Class
 

[eperedo]

Tienes problemas para enlazar el reporte por código o con el diseño del mismo??

El diseño es sencillo, los datos del cliente (nombre, dirección, etc) debes ponerlos en el encabezado de página del reporte mientras que su detalle (ventas) en la sección de detalle.

PD: El código que has puesto no parece tener errores. Si tienes errores sería bueno que los publiques.
Saludos.

[klaudio83]

Holas, Efectivamente tengo problemas al enlazar.
El ejemplo funciona prefectamente, lo que puse es para mostrar como es que se debe hacer.
El problema es que no se como hacerlo.
Mira habia pensado en hacerlo de esta manera pero no me funciona, no por que mande error sino porque no muestra ningun dato.

Código vb.net:

Imports System.Data.SqlClient
 
Public Class visor_crFactura
    Dim cadena As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\KlAuDiO\Mis documentos\Sistema\sistema.mdf;Integrated Security=True;User Instance=True"
    Public idFactura As String
    Public codCliente As String
 
    Private Sub visor_crFactura_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'MsgBox("Id Factura: " & idFactura & " Codigo Cliente: " & codCliente & "")
        Dim conexion As New SqlConnection(cadena)
 
        Dim ds As New sistemaDataSet
 
        Dim da1 As New SqlDataAdapter("SELECT * FROM cliente WHERE cod_cli='" & codCliente & "'", conexion)
        Dim da2 As New SqlDataAdapter("SELECT * FROM factura WHERE id_factura='" & idFactura & "'", conexion)
        Dim da3 As New SqlDataAdapter("SELECT * FROM detalle WHERE id_factura='" & idFactura & "'", conexion)
        Dim da4 As New SqlDataAdapter("SELECT * FROM producto", conexion)
 
        Try
            conexion.Open()
            da4.Fill(ds.producto)
            da1.Fill(ds.cliente)
            da2.Fill(ds.factura)
            da3.Fill(ds.detalle)
            conexion.Close()
 
            Dim reporteFactura As New cr_factura
            reporteFactura.SetDataSource(ds)
            'reporteFactura.
            Me.CrystalReportViewer1.ReportSource = reporteFactura
 
            ds.Dispose()
            da1.Dispose()
            da2.Dispose()
            da3.Dispose()
            da4.Dispose()
 
        Catch ex As Exception
            MsgBox("Mensaje : " & ex.Message)
            
        End Try
    End Sub
End Class
 

Espero me puedan ayudar gracias.

[klaudio83]

Ah se me habia olvidado, lei tambien que hay que llenar los Dataset en relacion al diagrama. Intente de varias formas pero no pude arreglarlo.
Dejo el diagrama de todas maneras, igual sirve para entender un poco mas mi problema. Cualquier ayuda sirve
Muchas gracias por la ayuda

[eperedo]

Pero dale un alias a cada tabla del dataset ó indica la tabla al momento de pasar el DataSource

Código vb.net:

reporteFactura.SetDataSource(ds.Tables(0))
 

Te dejo este post dónde indican como hacer algo como lo que tu deseas.
Saludos.

http://www.albertmata.net/2008/10/pa...ystal-reports/

[klaudio83]

Excelente ahora si que funciona!
Lo mas facil y sencillo, es hacer una vista que contenga los datos que se van a utilizar en el reporte.
Dejo el ejemplo por si a alguien mas le sirve.
Gracias eperedo, como siempre buena onda.

Código vb.net:

Private Sub visor_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        tNum2Text = New cNum2Text
 
        Dim conexion As New SqlConnection(cadena)
        Dim ds As New sistemaDataSet
        Dim da As New SqlDataAdapter("SELECT * FROM VistaPrueba WHERE id_factura='" & idFactura & "'", conexion)
 
        Dim resultado As String
        resultado = tNum2Text.Numero2Letra(total, , , "peso", , 1, ).ToUpper()
 
        Try
            conexion.Open()
            da.Fill(ds.VistaPrueba)
            conexion.Close()
 
            Dim reporte As New CrystalReport1
            reporte.SetDataSource(ds)
 
            Dim rptObject As ReportObject
            rptObject = reporte.Section4.ReportObjects("txtvalor")
            Dim txtValor As TextObject = DirectCast(rptObject, TextObject)
            'txtValor.Text = "ESTO ES UN VALOR CUALQUIERA"
            txtValor.Text = resultado
 
            Me.CrystalReportViewer1.ReportSource = reporte
 
            ds.Dispose()
            da.Dispose()
 
        Catch ex As Exception
            MsgBox("Mensaje : " & ex.Message)
        End Try
    End Sub