Microsoft OLE DB Provider for OBDC Drivers error '80040e14'

[jetzona]

tengo una pagina web en la que actualizo unos registros a veces funciona y a veces noocuando no funciona me da el siguiente error

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis en la instrucción UPDATE.

/atencionclientes/telmex/guardacarga_back.asp, línea 59
la linea es la de la conexion que es esta:

Dim Bs
Set Bs = Server.CreateObject("ADODB.Connection")
Bs.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

' CREA UNA CADENA PARA actualizar LOS DATOS
sql= "UPDATE Evaluaciones SET Evaluaciones.pfinal = "& pfinal &", Evaluaciones.nfinal = "& nota &", Evaluaciones.nr = "& nr &", Evaluaciones.r1 = '"& r1 &"', Evaluaciones.obs1 = '"& obs1 &"', Evaluaciones.na = "& na &", Evaluaciones.r2 = '"& r2 &"', Evaluaciones.r3 = '"& r3 &"', Evaluaciones.r4 = '"& r4 &"', Evaluaciones.obs2 = '"& obs2 &"', Evaluaciones.ng = "& ng &", Evaluaciones.r5 = '"& r5 &"', Evaluaciones.r6 = '"& r6 &"', Evaluaciones.r7 = '"& r7 &"', Evaluaciones.obs3 = '"& obs3 &"', Evaluaciones.np = "& np &", Evaluaciones.r8 = '"& r8 &"', Evaluaciones.r9 = '"& r9 &"', Evaluaciones.obs4 = '"& obs4 &"', Evaluaciones.nc = "& nc &", Evaluaciones.r10 = '"& r10 &"', Evaluaciones.obs5 = '"& obs5 &"', Evaluaciones.obs_gen = '"& obs6 &"' WHERE (((Evaluaciones.folio)="& Folio &"))"
Bs.execute(SQL)
Bs.close


los que estan asi '"& obs5 &"' son texto
y asi "& na &" son numeros

como les digo aveces funciona y otras veces no ? que puede ser????

[buliwyf]

si te funciona a veces entonces significa que algun valor numerico no esta pasando en ciertos momentos y por eso es que te da error. revisa a ver cual numero no esta pasando como variable al query de update

[a n g e l u s]

hola jetzona,

si ese es todo tu codigo, te aconsejo que validez es simple con un IF antes de guardar los datos asi no te dara sorpresa al momento de guardar. otra cosa mira el codigo


Dim Bs
Set Bs = Server.CreateObject("ADODB.Connection")
Bs.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")

' CREA UNA CADENA PARA actualizar LOS DATOS
sql= "UPDATE Evaluaciones SET pfinal = "& pfinal &", nfinal = "& nota &", nr = "& nr &", r1 = '"& r1 &"', obs1 = '"& obs1 &"', na = "& na &", r2 = '"& r2 &"', r3 = '"& r3 &"', r4 = '"& r4 &"', obs2 = '"& obs2 &"', ng = "& ng &", r5 = '"& r5 &"', r6 = '"& r6 &"', r7 = '"& r7 &"', obs3 = '"& obs3 &"', np = "& np &", r8 = '"& r8 &"', r9 = '"& r9 &"', obs4 = '"& obs4 &"', nc = "& nc &", r10 = '"& r10 &"', obs5 = '"& obs5 &"', obs_gen = '"& obs6 &"' WHERE folio="& Folio

on error resume next
Bs.execute(SQL)
if err <> 0 then
response.write "hay un error: <br>"&err.description
end if

Bs.close

[jandrox]

que pasaa miltonterasssssss