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

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:
Ver original
  1. Imports System.Data.SqlClient
  2.  
  3. Public Class visor_crFactura
  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.     Public idFactura As String
  6.     Public codCliente As String
  7.  
  8.     Private Sub visor_crFactura_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  9.         'MsgBox("Id Factura: " & idFactura & " Codigo Cliente: " & codCliente & "")
  10.         Dim conexion As New SqlConnection(cadena)
  11.  
  12.         Dim ds As New sistemaDataSet
  13.  
  14.         Dim da1 As New SqlDataAdapter("SELECT * FROM cliente WHERE cod_cli='" & codCliente & "'", conexion)
  15.         Dim da2 As New SqlDataAdapter("SELECT * FROM factura WHERE id_factura='" & idFactura & "'", conexion)
  16.         Dim da3 As New SqlDataAdapter("SELECT * FROM detalle WHERE id_factura='" & idFactura & "'", conexion)
  17.         Dim da4 As New SqlDataAdapter("SELECT * FROM producto", conexion)
  18.  
  19.         Try
  20.             conexion.Open()
  21.             da4.Fill(ds.producto)
  22.             da1.Fill(ds.cliente)
  23.             da2.Fill(ds.factura)
  24.             da3.Fill(ds.detalle)
  25.             conexion.Close()
  26.  
  27.             Dim reporteFactura As New cr_factura
  28.             reporteFactura.SetDataSource(ds)
  29.             'reporteFactura.
  30.             Me.CrystalReportViewer1.ReportSource = reporteFactura
  31.  
  32.             ds.Dispose()
  33.             da1.Dispose()
  34.             da2.Dispose()
  35.             da3.Dispose()
  36.             da4.Dispose()
  37.  
  38.         Catch ex As Exception
  39.             MsgBox("Mensaje : " & ex.Message)
  40.            
  41.         End Try
  42.     End Sub
  43. End Class

Espero me puedan ayudar gracias.