Programación General > Visual Basic 6.0 e inferiores
Duda En Filtros Datareport
TasQuin:
:huh: mi duda es como hago para que cuando quiera hacer un reporte de una determinda fecha, por ejemple "15/diciembre/2004" al "25/12/2004" las introduzca y estas me generren un reporte entre estas dos fechas.
Sé que con los filtros se puede hacer una consulta de tipo numérico, pero con un solo filtro. lo que no se es como meter esta consulta en un solo filtro ya que utilizo dos opciones en un solo filtro, pero no me acepta las opciones AND OR >= ó <=
hice esta consulta y me sale de maravilla. pero lo que quiero es que el usuario cuando introduzca estas dos fechas le genere solo los movimientos que se hicieron entre estos rangos-
Dim Inempleado As Long
Inempleado = (Val(InputBox("Esciba la Clave del Empleado", "Clave del Empledo")))
If Inempleado = 0 Then
MsgBox ("No Se Escribío Una Clave Valida")
Exit Sub
Else
emple.Todo_Grouping
emple.rsTodo_Grouping.Requery
If emple.rsTodo_Grouping.EOF = True Then
MsgBox ("El Empleado No Existe")
emple.rsTodo_Grouping.Close
Exit Sub
End If
REPTRABAJOS.Refresh
REPTRABAJOS.Show
End If
:comp:
Si Alguien me podria ayudar, de antemano Mil Gracias
Brroz:
Hola.
El código que muestras sirve realmente de poco... Analiza y estudia la clase instanciada por la variable 'emple' (que me da que no la has creado tu) y entérate de cómo funciona. Para filtrar datos usa una sentencia SQL con la correspondiente cláusula WHERE, que por supuesto admite los operadores AND, OR, <, >, etc, etc.
Suerte.
TasQuin:
;) emple es la conexion que estoy haciendo con labase de datos lo que pasa es que son varios reportes los que estoy manejando, unas veces solo los uso por las tablas que se hacen referencia pero me dijeron que los agrupara a traves del dataenvironment y las consultas que se hacen a traves de SQL no si la puede regresar como generalmente la regresa en una consulta normal.
de todos modos lo estoy tratando de hacer a traves de lo que es el generador de SQL del environment, si pudieras decirme de un manual e sentecias para realizar las consultas
gracias
Brroz:
Hola.
Emple es una clase creada por alguien, pero desde luego no es una clase Connection de ADO. Y lo deduzco más que nada por este método al que llamas:
--- Código: Text --- emple.Todo_Grouping
Aparte de esto no consigo comprender lo que intentas explicarme... pero te diré que una forma sencilla de ir aprendiendo SQL es usar access y su generador de consultas. Primero crea una consulta mediante la vista 'Diseño' y luego usa su vista 'SQL' para examinar la correspondiente sentencia.
Chao.
TasQuin:
:o ya entendí, gracias la consulta la logre de este modo desde el comando de la conexion del dataenvironment
select * from produccion where situacion=? and fecha>=? and fecha<=?
desde las "intrucciones de SQL"
"emple" es el nombre que le puse al DATAENVIRONMENT
"RevTer" se llama mi conexion "revizar terminados"
"RevTer_Grouping" donde los agrupe para que me mostrara en el reporte
y dentro del del botón coloque lo siguiente :comp:
Private Sub Terminados_Click()
Dim M, N As String
M = InputBox("DESDE LA FECHA:", "Introduzca la Fecha", "Día/Mes/Año")
If (Len(M) > 8) Or (Len(M) <= 6) Or Len(M) = 7 Or M = "" Then
MsgBox " No es Una fecha valida" & Chr(13) & "El Formato es (Dia/Mes/Año)", 0 + 64
Exit Sub
End If
N = InputBox("HASTA LA FECHA DE:", "Introduzca la Fecha", DateTime.Date)
If (Len(N) > 8) Or (Len(N) <= 6) Or Len(N) = 7 Or N = "" Then
MsgBox " No es Una fecha valida" & Chr(13) & "El Formato es (Dia/Mes/Año)", 0 + 64
Exit Sub
End If
emple.RevTer_Grouping "ENTREGADO", M, N
REPENTREGADO.Refresh
REPENTREGADO.Show
End Sub
Gracias por dedicale un tiempo, ahora solo me gustaria que le hicieras unas observaciones y si pudieras me digeras en que puedo mejorar el aspecto de la programacion. Muchas gracias :rolleyes:
Navegación
[#] Página Siguiente
Ir a la versión completa