• Domingo 22 de Diciembre de 2024, 02:37

Autor Tema:  Extraer Datos De Recordset A Crystal Report X  (Leído 3883 veces)

llagy

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Extraer Datos De Recordset A Crystal Report X
« en: Sábado 18 de Agosto de 2007, 17:22 »
0
Hola amigos soy programador en visual basic 6.0 y quisiera saber com ohago para extraer los datos de un recordset a un informe de Crystal Report  , no extaer todos si no lo que yo quiero presentar, ademas quisiera saber si esque te permite en Crystal report en laversion 10 conectarse con varios recordsert a la vez.
Saludos Cordiales.

viHack

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Extraer Datos De Recordset A Crystal Report X
« Respuesta #1 en: Miércoles 29 de Agosto de 2007, 04:19 »
0
Si te entendi bien, podrias hacer lo siquiente (yo lo hago asi y me funciona muy bien)

Primero que Nada tendrias que tener tu cadena de conexion a la base de datos, asumo que en eso no tienes problema, si me equivoco avisame.

Private Conexion As Connection
Set Conexion = New Connection
pcnConexion.Open "AQUI IRIA LA CADENA DE CONEXION A TU BASE DE DATOS"

Crea una variable de tipo Report, y luego seteala a tu reporte.

Dim Reporte as Report
Set Reporte = New NombreDelReporte

Crea tu o tus recordset (En este caso usare 2, asumiendo que mi reporte usa dos consultas), el filtrado dependera del Query que hagas, es la forma mas facil, o crear un recordset desconectado y llenarlo solo con los registros que necesitas

Dim Tabla1, Tabla2 As New ADOR.Recordset
Tabla1.Open "AQUI IRIA TU SELECT O QUERY Para la Primer Consulta", Conexion
Tabla2.Open "AQUI IRIA TU SELECT O QUERY Para la Segunda Consulta", Conexion

Luego asignas la o las consultas a tu variable reporte, nota que el numero al final indica a que numero de consulta se asignara el recordset. Asi tabla1 se asignara a la primer consulta (1), que por default podria llamarse "Command"

Reporte.Database.SetDataSource Tabla1, , 1
Reporte.Database.SetDataSource Tabla2, , 2

Luego asignas el reporte a tu crviewer

crviewer1.ReportSource = Report
crviewer.ViewReport

Y ya esta.

Espero te sirva de algo