Crystal Report...
Debo tomar de una vista que crea el sistema, información particular y presentarla a través de un reporte generado en Crystal Report... Orientación por favor...
Trabajo en Visual 6, SQL Server 2000 y Crystal Report 7.
Gracias
Trabajo en Visual 6, SQL Server 2000 y Crystal Report 7.
Gracias
1 Respuesta
Respuesta de fvomaster
1
A ver, sigue los siguientes pasos...
Crea la vista en SQL, con la consulta incluida...
Crea el reporte en Crystal Report.
Toma la programación de la creación de la Vista e insértala donde corresponda en Visual Basic.
Elimina la vista en SQL
Entonces cuando quieras imprimir, la lógica sería..
Crear la vista..
Actualizar el crystal report con los datos de la consulta.
Ejecutar el Crystal report.
Eliminar la vista..
Ejemplo:
----Crear Vista-------
Dim creaSQL as String
creaSQL = "CREATE VIEW Vista_Clientes AS SELECT Cod_Cliente, Nombre_Cliente From Clientes where Rut_Cliente= ' " & txtrut.text & " ' "
Miconexion. Execute (creaSQL)
---Actualizar Crystal report.
Crystalreport1.Retrievedatafiles
-----Abrir el reporte.
Crystalreport1.action=1
----Eliminar la vista...
Dim BorraSQL as string
borraSQL = "DROP VIEW Vista_Clientes"
Miconexion. Execute (borraSQL)
LISTO !.. Pruebelo por favor...
Un abrazo desde Chile.
Master
Crea la vista en SQL, con la consulta incluida...
Crea el reporte en Crystal Report.
Toma la programación de la creación de la Vista e insértala donde corresponda en Visual Basic.
Elimina la vista en SQL
Entonces cuando quieras imprimir, la lógica sería..
Crear la vista..
Actualizar el crystal report con los datos de la consulta.
Ejecutar el Crystal report.
Eliminar la vista..
Ejemplo:
----Crear Vista-------
Dim creaSQL as String
creaSQL = "CREATE VIEW Vista_Clientes AS SELECT Cod_Cliente, Nombre_Cliente From Clientes where Rut_Cliente= ' " & txtrut.text & " ' "
Miconexion. Execute (creaSQL)
---Actualizar Crystal report.
Crystalreport1.Retrievedatafiles
-----Abrir el reporte.
Crystalreport1.action=1
----Eliminar la vista...
Dim BorraSQL as string
borraSQL = "DROP VIEW Vista_Clientes"
Miconexion. Execute (borraSQL)
LISTO !.. Pruebelo por favor...
Un abrazo desde Chile.
Master
