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 originalImports 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)
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.