Manual de datavew

Solo disponible en BuenasTareas
  • Páginas : 3 (639 palabras )
  • Descarga(s) : 0
  • Publicado : 13 de noviembre de 2011
Leer documento completo
Vista previa del texto
CREACIÓN DE REPORTES
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 =...
tracking img