consultas por hora

Question

Tienes razón en cuanto a que no he informado que los parametros de la busqueda estan dados por dos Dtpicker1 (Fecha inicial de busqueda) y Dtpicker2 ( Fecha final de busqueda) y de acuedo a la fecha seleccionada en ellos es que buscare a los usuarios que en el lapso de ese tiempo llegaron después de las 06:50:00 a.m.
 Buenos días
Tengo una base de datos en visual conectada a acces. En ella hay una tabla llamada retardos con los campos codigo, Fecha y hora. En el formulario  los parametros de la busqueda estan dados por dos Dtpicker1 (Fecha inicial de busqueda) y Dtpicker2 ( Fecha final de busqueda) y de acuedo a la fecha seleccionada en ellos es que buscare a los usuarios que en el lapso de ese tiempo llegaron después de las 06:50:00 a.m. Mi consulta es la siguiente Tengo el siguiente código para realizar la consulta pero no sé como colocar dentro de él que la hora sea mayor a 06:50:00 a.m
La busqueda la hago con este codigo, el cual me muestra todos los usuarios registrados en esas fechas con sus horas de llegada pero necesito que me filtre también los que llegaron des pués de la hora señalada. 

Adodc1.RecordSource = "Select * From Retardos WHERE Fecha_Inicio BETWEEN #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# And #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "# Order by Fecha_Inicio"
Adodc1.Refresh

Answer 1

Select * From Retardos WHERE Fecha_Inicio BETWEEN #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# And #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#  And Hora_Inicio  >  Format(""06:50:00"", ""Short Time"") Order by Fecha_Inicio"

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

Answer 2

Select * From Retardos WHERE Fecha_Inicio BETWEEN #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# And #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#  And Hora_Inicio  >  Format(""06:50:00"", ""Short Time"") Order by Fecha_Inicio"

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

   Cuando hago la consulta me sale un letrero que dice: No se  especificado valores para algunos de los parametros definidos. No sé cual sea el problema ya que en otra consulta que hago en la cual es solo por fecha sin importar la hora si funciona el código que había escrito, pero ahora que hago la consulta por hora tal como tu lo dices me sale el error que te digo. Gracias por tu ayuda

Answer 3

En tu tabla cómo se llama el campo de HORA???

revisa que  Format(""06:50:00"", ""Short Time"") te devuelva un valor de time en formato corto... 

Puedes?? Dime algo

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

Answer 4

• Lo he cambiado a entero corto y sale el mismo error, he revisado la tabla en acces y me aparece el campo Hora (tu lo tenías como hora_Inicio, pero ya lo arregle, sin embargo cro que es algo con ese campo el error.

Answer 5

El campo HORA en tu base de datos de qué tipo es ?? UN SALUDO

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

Answer 6

Fecha/hora  de  formato Hora corta

Answer 7

Me he creado una base de datos access y dentro de ella una tabla con dos campos de Fecha/Hora uno con formato fecha corta y otro con hora corta. He realizado la consulta con tus condiciones y con lo que te modifiqué y me funciona.... Puedes mandar la consulta que te genera tu codigo VB cuando se lo asignas a ADODC1.Recordsource ?? A ver como te lo está asignando...

GRACIAS Y UN SALUDO a ver si lo logramos...

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

Answer 8

La verdad el error lo comienza a arrojar desde que se carga el formulario

Private Sub Form_Load()

DTPicker1.Value = Date
DTPicker2.Value = Date

Dretardos
Adodc1.CursorLocation = adUseClient
  Adodc1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\LIPECUN.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select * From Retardos WHERE Fecha_Inicio BETWEEN #" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# And #" & Format(DTPicker2.Value, "mm/dd/yyyy") & "#  And Hora  >  Format(""06:50:00"", ""Long Time"") Order by Fecha_Inicio"
 
 
 Adodc1.Refresh

Cuando carga el formulario sale un error de adoc1 que dice que no se han especifícado valores para algunos de los parametros requeridos.

La tabla de acces tiene un campo código, Fecha, Hora

Answer 9

Prueba añadiendo después de CursorLocation

Adodc1.CursorType = adOpenDynamic

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

Answer 10

Te doy garcias por tu paciencia. No tan poco funciona. No sé si haya alguna forma de enviarte la base de datos y el formulario para ver si es algo dentro de la base que no lo gro ver.}Gracias

Answer 11

Ok...mi correo es .......... Mándame el código e tu proyecto y tu bbdd y esta noche lo reviso. Saludos

---

Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

Answer 12

Saludos. 

puedes poner en el between la hora de inicio y la hora de salida, luego ordenar por fecha. en el ejemplo que te pongo asumo que la hora de salida es a las 5. 

SELECT     Codigo, Fecha
FROM         Retardos
WHERE     (CONVERT(datetime, CONVERT(varchar, Fecha, 108), 108) BETWEEN CONVERT(datetime, '06:50:01', 108) AND CONVERT(datetime, '16:59:00', 108))
ORDER BY Fecha

y puedes pones en la primera hora tu primer dtpicker1 y en la segunda tu dtpicker2.

No olvides marcar si te sirvió. :D