Visual Basic - Ayuda con Crystal Report

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con Crystal Report

Publicado por w_rene (12 intervenciones) el 03/07/2002 17:50:05
de nuevo yo...

bueno en esta vez ademas de todo o demas, necesito crear un informe en Crystal, el cual me tome el valor de unas fechas... o sea:
que yo coloque el rango de fechas que necesito (dd/mm/yyyyy) y que me genere un listado de registros que se encuentren entre ese criterio...

como carambas lo puedo hacer..??

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:Ayuda con Crystal Report

Publicado por carla (104 intervenciones) el 03/07/2002 18:07:18
con que te estas conectando
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:Ayuda con Crystal Report

Publicado por w_rene (12 intervenciones) el 03/07/2002 18:15:27
DAO
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:Ayuda con Crystal Report

Publicado por carla (104 intervenciones) el 03/07/2002 18:36:09
mira asi lo hago yo con dao

Private Sub Definir_Conexion()
CrystalReport1.Connect = "ODBC;UID=" + Gl_Usuario + ";PWD=" + GL_Pass + ";DSN=" + GL_DSN_BD
CrystalReport1.ReportFileName = Gl_Reportes + "PV_L12.rpt"
End Sub

Private Sub bo_editar_Click()
On Error GoTo ERRORCONEXION

MousePointer = 11
pasar_parametros
If Sw_datos Then
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1
End If
MousePointer = Default
Exit Sub

ERRORCONEXION:
MsgBox Err.Description & " Nº de error = " & Err.Number
Exit Sub
End Sub
Private Sub pasar_parametros()
lin = 0
Mquery = "Select * From tabla where fecha >= " & fecha_ini & " and fecha <= " & fecha_fin & " "
Set Cliente = bdatc.OpenRecordset(Mquery, 16)
lin = Cliente.RecordCount
If lin = 0 Then
MsgBox "No Se Encontrarón Datos en la Búsqueda", vbInformation, "Error en la Búsqueda"
Exit Sub
End If
Sw_datos = True
in_titulo = " Maestro de Clientes"

CrystalReport1.Formulas(0) = "Titulo = '" & in_titulo & "'"
CrystalReport1.Formulas(1) = "Hora = '" & pa_hora & "'"
CrystalReport1.Formulas(2) = "Fecha inicial = '" & fecha_ini & "'"
CrystalReport1.Formulas(3) = "Feha Final = '" & fecha_fin & "'"
CrystalReport1.SQLQuery = Mquery ''''''' aca le pasas el query y lo filtras
%
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:Ayuda con Crystal Report

Publicado por w_rene (1 intervención) el 03/07/2002 19:33:35
Gracias Carla, eres un amor... lo probaré lo mas pronto posible...

w_rene
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