Visual Basic.NET - FILTROOOOOO!

 
Vista:
sin imagen de perfil
Val: 70
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

FILTROOOOOO!

Publicado por Juan Antonio (36 intervenciones) el 27/01/2021 08:08:15
Tengo la siguiente base de datos en Microsoft Access...

1

Con los atributos:
id campo autonumerico
fecha tipo date-time, format short date e input mask 99/99/0000;0;_
hora campo number, format fixed y decimal place 2

Tengo estos datos dados de alta en la base de datos!!!!
1
2
3
4
5
6
ID	fecha	hora
1	1/1/2021	11.00
2	1/2/2021	11.20
3	1/3/2021	11.30
4	1/4/2021	11.40
5	1/5/2021	11.00

NOTA: LA HORA ES FORMATO DE FECHA, 24 HORAS SIN MOSTRAR SI ES PM O AM

Estoy manejando este formulario en VB.NET

2

Lo que quiero hacer es lo siguiente, un filtro donde me cargue cierta fecha de inicio, cierta fecha final, cierta hora de inicio y cierta hora final que cargue por medio de un boton todos los registros plasmados entre esos criterios dentro del datagridview al momento de dar clic en el boton....

EJEMPLO:
Los registros que esten entre 01-01-2021 al 01-05-2021 que esten con hora de inicio 11.00 y hora final 11:20....

VISTA QUE DEBE MOSTRAR LA BUSQUEDA DEL EJEMPLO

1
2
3
4
ID	fecha	hora
1	1/1/2021	11.00
2	1/2/2021	11.20
5	1/5/2021	11.00

Les agradeceria mucho que alguien me ayude, adjunto mi proyecto por si alguien puede ayudarme...
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
sin imagen de perfil
Val: 17
Ha disminuido su posición en 19 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

FILTROOOOOO!

Publicado por apacheco (16 intervenciones) el 27/01/2021 14:27:51
Prueba esto

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
filtro =""
 
If txtHoraInicio.text = "" Then
    txtHoraInicio.text ="00:00"
End If
 
If txtHoraFinal.text = "" Then
    txtHoraFinal.text = "24:59"
End If
 
If IsDate(mtbFechaInicio.Text) Then
    filtro = filtro & "(fecha >= CDate('" & cmbfechaIncio.text & "') AND " & _
                       "hora >= '" & txtHoraInicio.text & "' AND "
End If
 
If IsDate(mtbFechaFinal.Text) Then
    filtro = filtro & "(fecha <= CDate('" & cmbfechaFinal.text & "') AND " & _
                       "hora <= '" & txtHoraFinal.text & "') "
End If
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
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

FILTROOOOOO!

Publicado por Phil Rob (1555 intervenciones) el 30/01/2021 07:55:44
Hola,

No había visto el archivo adjuntado.

Aqui la consulta corregida en Form1 :
1
2
3
4
5
6
7
8
9
Private Sub BtnBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscar.Click
 
        Dim Sql As String = "Select * From tbdpms Where " &
                            "(Format(fecha, 'dd/MM/yyyy') BETWEEN '" & dtpFECHA1.Text & "' AND  '” & dtpFECHA2.Text & "') " &
                            "AND " &
                            "(hora BETWEEN " & TextBox1.Text & " AND  " & TextBox2.Text & ")"
 
        Filtro_Access(Sql, dgv1)
    End Sub



JuanAntonio1
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