Editar campo tipo "Fecha" en BD Accses - ASP

[Edyvargas]

Hola, tengo una duda sobre como editar datos tipo "fecha"
en un base de datos Accses, mi página ASP contiene un formulario para editar registros en la base de datos, y la base de datos tiene 3 campos tipo "texto" y 1 campo tipo "fecha", el problema ocurre cuando en el formulario de editar el campo fecha coloco por ej. : 20/09/2008, al dar el boton de submit, me muestra el siguiente error:

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.
/ddpharma/prueba2.asp, línea 87

cómo se debe colocar un campo tipo fecha para que lo acepte la Base de Datos?

Gracias mil a todos, el foro esta muy bueno y útil.

[GABRIL]

si pudieras poner el codigo, para dar una chekeada, asegurate de que el campo en access, realmente sea tipo fecha, en formato dd/mm/aaaa.

[Shiryu_Libra]

primero... debes chekar si esta correcto el formato de tu base de datos (DD/MM/AAAA), ciertos casos es (AAAA/MM/DD)

tambien puedes usar algunas funciones como esta para manipular bien la fomar de tu fecha

Código ASP:

<&#37;
Function FechaGenerica(fecha)
    If IsDate(fecha) = True Then
            DIM dteDay, dteMonth, dteYear
            dia = Day(fecha)
            mes = Month(fecha)
            ano   = Year(fecha)
            FechaGenerica = ano & "/" & Right(Cstr(mes + 100),2) & "/" & Right(Cstr(dia + 100),2)
      Else
            FechaGenerica = Null
      End If
End Function
%>
 

Una última cosa. En sentencias SQL que actualizan bases Access, las fechas se pasan entre # #.
Por ejemplo: INSERT INTO tabla(fecha) VALUE(#"& var_fecha &"#)

fuente de codigo

[Adler]

Hola

Yo el campo que contendría la fecha, lo pondría tipo texto.
El problema está en cuando quieres comparar dos fechas, pero solo has de hacer

[highlight="asp"]Dte = rs.Fields("FechaResp")
fbd =day(Dte)&"/"&month(Dte)&"/"&year(Dte)

IF una fecha = CDate(fbd) then[/highlight]

Suerte

[Edyvargas]

no funcionó poner # en la secuencia SQL:

"INSERT INTO tabla(fecha) VALUE(#"& var_fecha &"#)", sigue dando el mismo error,

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.

voy a probar lo otro y les aviso,...Gracias

[Edyvargas]

Este es el código:

<form method="post" action="prueba2.asp">
Actual: <%if fecha2="" then
response.write(fecha)
else
response.write(fecha2)
end if
%>
<br>
Nueva Fecha: <input type="text" name="fecha2">
<input type="hidden" name="fecha" value="<%=fecha%>">
<input type="hidden" name="resultado" value="editado">
<input type="submit" value="Guardar"><br><br>
</form>


<%if fecha2="" then
else

strSQL = "UPDATE NOTICIAS1 set FECHA='"& fecha2 &"' where FECHA= '" & fecha & "';"
objrs.Open strSQL, oConn

response.write("se editó con éxito")

end if%>

[Shiryu_Libra]

Código ASP:

strSQL = "UPDATE NOTICIAS1 set FECHA='#"& fecha2 &"#' where FECHA= '#" & fecha & "#';"
 

[Edyvargas]

Hola de nuevo, no funcionó la secuencia SQL:

strSQL = "UPDATE NOTICIAS1 set FECHA='#"& fecha2 &"#' where FECHA= '#" & fecha & "#';"

sigue dando el mismo error....seguiré investigando, Gracias

[Julcar]

Revisa el formato de fecha, deberia ser fecha corta, eso se lo revisa en la vista diseño.

[Edyvargas]

ya lo hice, esta en formato fecha corta, pero nada todavia...

[Edyvargas]

Si se pudo!.

[Edyvargas]

Lo logré!!!, el problema era en la parte "where" de la secuencia SQL, antes yo colocaba

where FECHA='" & fecha & "';"

trayendo la variable "fecha" con un request.form("fecha") desde otra página,
al parecer al hacer esto se perdía cierto tipo de coincidencia con el campo fecha de la base de datos el cual yo quería editar, entonces en vez de comparar el registro a editar con el campo "fecha", lo comparé con los campos "titular" y "noticia" del mismo registro, y si funcionó!
realizó el update con la nueva fecha sin problemas, ej.:

strSQL = "UPDATE NOTICIAS1 set FECHA='"& fecha2 &"' where TITULAR= '" & titular & "' and NOTICIA= '" & noticia & "';"
objrs.Open strSQL, oConn

GRACIAS a todos por su tiempo y ayuda.