Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/01/2010, 11:49
klaudio83
 
Fecha de Ingreso: octubre-2009
Mensajes: 70
Antigüedad: 15 años, 1 mes
Puntos: 0
Pregunta Reporte con crystal report desde BD mdf

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:
Ver original
  1. Imports System.Data.SqlClient
  2.  
  3. Public Class visor_ListadoClientes
  4.     Dim cadena As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\KlAuDiO\Mis documentos\Sistema\sistema.mdf;Integrated Security=True;User Instance=True"
  5.  
  6.     Private Sub visor_ListadoClientes_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  7.         Dim conexion As New SqlConnection(cadena)
  8.  
  9.         Dim ds As New sistemaDataSet
  10.  
  11.         Dim da1 As New SqlDataAdapter("SELECT * FROM cliente", conexion)
  12.         Dim da2 As New SqlDataAdapter("SELECT * FROM ciudad", conexion)
  13.  
  14.         Try
  15.             conexion.Open()
  16.             da2.Fill(ds.ciudad)
  17.             da1.Fill(ds.cliente)
  18.             conexion.Close()
  19.  
  20.             Dim InformeClientes As New cr_ListadoClientes
  21.             InformeClientes.SetDataSource(ds)
  22.             Me.CrystalReportViewer1.ReportSource = InformeClientes
  23.  
  24.             ds.Dispose()
  25.             da1.Dispose()
  26.             da2.Dispose()
  27.  
  28.         Catch ex As Exception
  29.             MsgBox("Mensaje : " & ex.Message)
  30.         End Try
  31.     End Sub
  32. End Class