problemas en busqueda access y vb.net
Publicado por Gabriel (10 intervenciones) el 20/12/2016 00:36:06
Hola... he vuelto con este pequeño problemita... gracias a los aportes eh podido realizar las busquedas por fechas y por horas.... pero me surgio un problema al realizar la busqueda por fecha u hora, luego no puedo realizar las busquedas hechas con el asistente.. les dejo mi codigo de las fechas y horas y las creadas con el asistente. desde ya gracias por sus aportes
busqueda por fecha y hora
busqueda realizada con el asistente
busqueda por fecha y hora
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub btnbuscarfyh_Click(sender As Object, e As EventArgs) Handles btnbuscarfyh.Click
If radfe.Checked = True Then
':::Damos el formato requerido por la base de datos a cada
':::Control DateTimePicker
Dim FechaInicio As String = dtpfechaini.Value.ToString("MM/dd/yyyy")
Dim FechaFinal As String = dtpfechafin.Value.ToString("MM/dd/yyyy")
':::Mediante la funcion Between de SQL obtenemos los valores
':::Que esten entre el rango de las fechas de inicio y fin
Dim Sql As String = "Select * from Busqueda where Fecha between #" & FechaInicio & "# and #" & FechaFinal & "#"
':::Llamamos el procedimiento que creamos en nuestro modulo para la base de datos Access
':::Y le pasamos los dos valores que requiere, la consulta SQL y el nombre del DataGridView
Filtro_Access(Sql, tblbusqueda)
ElseIf radho.Checked = True Then
':::Damos el formato requerido por la base de datos a cada
':::Control DateTimePicker
Dim HoraInicio As String = dtphoraini.Value.ToString("hh:mm:ss")
Dim HoraFinal As String = dtphorafin.Value.ToString("hh:mm:ss")
':::Mediante la funcion Between de SQL obtenemos los valores
':::Que esten entre el rango de las fechas de inicio y fin
Dim Sql As String = "Select * from Busqueda where Hora between #" & HoraInicio & "# and #" & HoraFinal & "#"
':::Llamamos el procedimiento que creamos en nuestro modulo para la base de datos Access
':::Y le pasamos los dos valores que requiere, la consulta SQL y el nombre del DataGridView
Filtro_Access(Sql, tblbusqueda)
ElseIf radfeyho.Checked = True Then
':::Damos el formato requerido por la base de datos a cada
':::Control DateTimePicker
Dim FechaInicio As String = dtpfechaini.Value.ToString("MM/dd/yyyy")
Dim FechaFinal As String = dtpfechafin.Value.ToString("MM/dd/yyyy")
Dim HoraInicio As String = dtphoraini.Value.ToString("hh:mm:ss")
Dim HoraFinal As String = dtphorafin.Value.ToString("hh:mm:ss")
':::Mediante la funcion Between de SQL obtenemos los valores
':::Que esten entre el rango de las fechas de inicio y fin
Dim Sql As String = "Select * from Busqueda where Fecha between #" & FechaInicio & "# and #" & FechaFinal & "# and Hora between #" & HoraInicio & "# and #" & HoraFinal & "#"
':::Llamamos el procedimiento que creamos en nuestro modulo para la base de datos Access
':::Y le pasamos los dos valores que requiere, la consulta SQL y el nombre del DataGridView
Filtro_Access(Sql, tblbusqueda)
CerrarConexion()
End If
End Sub
busqueda realizada con el asistente
1
2
3
4
Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
Me.BusquedaTableAdapter.BUSCAR(LeppacDataSet.Busqueda, txtTelefonoS.Text, txtTelefonoE.Text, txtAntena.Text, txtDomicilio.Text, txtLocalidad.Text, txtProvincia.Text, txtcausa.Text, txtarchivo.Text)
End Sub
Valora esta pregunta
0
