Rango de fechas
Publicado por eugenia (11 intervenciones) el 17/01/2014 16:12:23
Hola, quiero saber cual es el erro en mi codigo, ya que he probado de varias maneras y siempre me salta error.
ante dos inputbox se ingresan las fechas y tiene que salir un listado en un datagrid, pero me dice que la sentencia no es valida.
codigo:
tambien probe declarando el formado yyyymmdd:
pero no funciono, cual es el error?
ante dos inputbox se ingresan las fechas y tiene que salir un listado en un datagrid, pero me dice que la sentencia no es valida.
codigo:
1
2
3
4
5
6
7
8
9
10
11
Dim rs As New ADODB.RecordsetDim fechaUno As String, fechaDos As StringfechaUno = InputBox("ingrese primera fecha")
fechaDos = InputBox("ingrese segunda fecha")
rs.Open "SELECT *FROM DiagnosticoBasicp WHERE [fecha]=#" & fechaUno & "# and #" & fechaUno & "# and #" & fechaDos & "#"
'use este codigo ya que al buscar 1 fecha me funciono (rs.Open "SELECT *FROM DiagnosticoBasicp WHERE [fecha]=#" & fecha& "# )
tambien probe declarando el formado yyyymmdd:
1
rs.Open "SELECT * FROM DiagnosticoBasicp WHERE fecha BETWEEN " & Format(fechaUno, "yyyymmdd") & "' AND '" & Format(fechaDos, "yyyymmdd") & "'"
pero no funciono, cual es el error?
Valora esta pregunta
0