Crystal Report - Urgente Pasar Sentencia SQL - a Crystal report

   
Vista:

Urgente Pasar Sentencia SQL - a Crystal report

Publicado por Steffy (14 intervenciones) el 04/04/2009 17:08:41
Desarrollo en vb6.0 y cr 9.0 Hola tengo 02 formularios frmaplicación y frmreporte como hago la conección a mi bas de datos en acces y envío la siguiente sentencia sql al crystal
SQL="select * from tabla1"
donde hago la programación en frmaplicacion o frmreporte
ayudame por favor es urgente. si pueden enviarme un ejemplo mi email es j_enigma@hotmail.com

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente Pasar Sentencia SQL - a Crystal report

Publicado por marvin (85 intervenciones) el 01/05/2009 22:03:39
facil, agrega un control "Crystal Reports" en las referencias, supongamos que se llama "Reporte1", este ejemplo hasta le pasa hasta formulas de texto para imprimir en el reporte.... (obviamente tu query es mas sencilla que esta, pero es lo mismo)

With Reporte1

consulta = ""

'El nombre de mi reporte:
.ReportFileName = CurDir + "ReportesRepFacXCliente.rpt"
'Los parámetros a imprimir en las formulas del reporte:
.Formulas(0) = "Fini='" & Format(dtFechaIni.Value, "dd/mm/yyyy") & "'"
.Formulas(1) = "Ffin='" & Format(dtFechaFin.Value, "dd/mm/yyyy") & "'"

consulta = "SELECT * " & _
"FROM CLIENTE_CREDITO " & _
"INNER JOIN credito_maestro_factura " & _
"ON CLIENTE_CREDITO.CodigoCliente = credito_maestro_factura.codcliente " & _
"INNER JOIN credito_detalle_factura " & _
"ON credito_maestro_factura.serie = credito_detalle_factura.serie " & _
"AND credito_maestro_factura.numero = credito_detalle_factura.numero " & _
"WHERE credito_maestro_factura.fecha >= '" & Format(dtFechaIni.Value, "dd-mm-yyyy") & _
"' and credito_maestro_factura.fecha <= '" & Format(dtFechaFin.Value, "dd-mm-yyyy") & "'"


'Lanzo el parametro de ordenamiento para completar la consulta al reporte
consulta = consulta + " ORDER BY cliente_credito.codigocliente"
.SQLQuery = consulta
.Action = 1
End With
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente Pasar Sentencia SQL - a Crystal report

Publicado por Steffy (14 intervenciones) el 02/05/2009 15:27:00
Muchas gracias amiguito,,, pero ahora tengo un problemas, cuando se ejecuta la consulta, el icono del puntero cambia a l de relojito y siempre esta asi, como si sioguiera procesando, ayudame por favor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Urgente Pasar Sentencia SQL - a Crystal report

Publicado por marvin (85 intervenciones) el 04/05/2009 23:17:13
hola, facil....

desde visual basic....

sobre el form....
'Esto pone el puntero normal, es decir, la flechita
Me.MousePointer = 0

'Este pone el puntero del mouse con el relojito, es decir, como si estuviera en espera...
Me.MousePointer = 11


espero te sirva....

salu2 desde guatemala...

marvin
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar