Manual de datavew
1. Cree un proyecto llamado Crystal _Report
2. Diseñe el siguiente formulario.
3. Luego añadir un módulo llamado moduloconectar, y programar lo siguiente
Publiccone As New SqlConnection("server=(local);database=peliculas06;uid=sa ;pwd=sam2011")
4. Programar en el evento load del form 1
Declaramos las siguientes variables a nivel de clases
Dim daclienteAs SqlDataAdapter
Dim ds As DataSet
Dim dv As New DataView
5. Programamos en el evento load de Form1
dacliente = New SqlDataAdapter("select * from tblmaclientes inner join (tblcaalquilerinner join tblmaempleados on tblcaalquiler.empcodigo=tblmaempleados.empcodigo)on tblmaclientes.clicodigo=tblcaalquiler.clicodigo", cone)
ds = New DataSet
dacliente.Fill(ds,"Consultas_Alquileres")
cargar el dataView
dv.Table = ds.Tables("Consultas_Alquileres")
Me.Dgdatos.CaptionText = "Lista total de Pedidos que realizaron los clientes"
Me.Dgdatos.DataSource = dv
6.Programar los botones (btnvertodo , btnconsulta, btnimprimir)
Private Sub btnvertodo_Click(...
dacliente = New SqlDataAdapter("select * from tblmaclientes inner_ join (tblcaalquiler inner jointblmaempleados on _ tblcaalquiler.empcodigo=tblmaempleados.empcodigo)on _ tblmaclientes.clicodigo=tblcaalquiler.clicodigo", cone)
ds = New DataSet
dacliente.Fill(ds, "Alquileres")
'cargar el dataViewdv.Table = ds.Tables("Alquileres")
Me.Dgdatos.CaptionText = "Lista total de Pedidos que realizaron_ los clientes"
Me.Dgdatos.DataSource = dv
End Sub
Private Sub btnconsulta_Click(...dacliente = New SqlDataAdapter("select cliApellidos,clinombres,_ NroAlquiler,fecha,Emp_apellidos,Emp_nombres from tblmaclientes_ inner join (tblcaalquiler inner join tblmaempleados on_tblcaalquiler.empcodigo=tblmaempleados.empcodigo)on_
tblmaclientes.clicodigo=tblcaalquiler.clicodigo", cone)
ds = New DataSet
dacliente.Fill(ds, "Consultas_Alquileres")
'cargar el dataView
dv.Table =...
Regístrate para leer el documento completo.