Visual Basic - Rango de fechas

Life is soft - evento anual de software empresarial
   
Vista:

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:
1
2
3
4
5
6
7
8
9
10
Dim rs As New ADODB.Recordset
 
Dim fechaUno As String, fechaDos As String
fechaUno = 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Juego del tetris
- Contador
- Reloj analógico