Problem whe updating
I have a problem when i update the database it´s show me an error page that says:
Microsoft Cursor Engine (0x80040E38)
Row cannot be located for updating. Some values may have been changed since it was last read.
I all ready try the option=2 and nothing happen, the code was developed in asp, i will send you the conection code so please help me!!!
Also i see that this happen only when i update an row type like time datetime and timestamp.
what´s it´s wrong
<%Set conex = Server.CreateObject("ADODB.Connection")
conex.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=clef_gov_ve;USER=admin19;PASSWORD=gdqmq2d2;OPTION=3;"
function validar(esto)
if esto <> "" then
validar = esto
else
validar="0"
end if
end function
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set Upload = Server.CreateObject("Persits.Upload")
Upload.ProgressID = Request.QueryString("PID")
Upload.OverwriteFiles = False
Set File = Upload.Files
Upload.Save
set tabla51 = Server.CreateObject("ADODB.RecordSet")
tabla51.CursorLocation = 3
tablas = "select * from tabla51 where id="&request.querystring ("Id")
tabla51.open tablas, conex, 3, 3
For Each File in Upload.Files
if File.Name = "campo10" Then
if fs.FolderExists("d:\comunicacion3digital.net\www\sites\clef_gov_ve\contenido\fotos") = false then
fs.CreateFolder("d:\comunicacion3digital.net\www\sites\clef_gov_ve\contenido\fotos")
end if
if upload.fileexists ("d:\comunicacion3digital.net\www\sites\clef_gov_ve\contenido\fotos\"&tabla51("campo10")) = true then
upload.deletefile "d:\comunicacion3digital.net\www\sites\clef_gov_ve\contenido\fotos\"&tabla51("campo10")
end if
File.saveas "d:\comunicacion3digital.net\www\sites\clef_gov_ve\contenido\fotos" & lcase("\archivo"& file.ext)
tabla51 ("campo10") = File.filename
tabla51.update
end if
next
set fs=Nothing
if upload.fileexists ("d:\comunicacion3digital.net\www\sites\clef_gov_ve\contenido\fotos\"&tabla51("campo10")) then
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open("d:\comunicacion3digital.net\www\sites\clef_gov_ve\contenido\fotos\"&tabla51("campo10"))
if upload.form("rotar10") <> "" then
select case upload.form("rotar10")
case "1"
jpeg.RotateL
case "2"
jpeg.RotateR
case "3"
jpeg.FlipH
case "4"
jpeg.FlipV
end select
end if
if upload.form("gris10") <> "" then
select case upload.form("gris10")
case "1"
jpeg.Grayscale 2
end select
end if
if upload.form("aclarar10") <> "" then
select case upload.form("aclarar10")
case 10
jpeg.Sharpen 1,130
case 20
jpeg.Sharpen 2,130
case 30
jpeg.Sharpen 3,130
case 40
jpeg.Sharpen 4,130
end select
end if
jpeg.Save "d:\comunicacion3digital.net\www\sites\clef_gov_ve\contenido\fotos\"&tabla51("campo10")
end if
tabla51 ("campo1") = datepart("yyyy",upload.form("campo1"))&"-"&datepart("m",upload.form("campo1"))&"-"&datepart("d",upload.form("campo1"))
tabla51 ("campo2") = datepart("yyyy",date())&"-"&datepart("m",date())&"-"&datepart("d",date()) & " " & datepart("h",time())&":"&datepart("n",time())&":00"
tabla51 ("campo3") = upload.form("campo3")
tabla51 ("campo4") = upload.form("campo4")
tabla51 ("campo5") = datepart("yyyy",upload.form("campo5"))&"-"&datepart("m",upload.form("campo5"))&"-"&datepart("d",upload.form("campo5"))
tabla51 ("campo6") = upload.form("campo6")
tabla51 ("campo7") = upload.form("campo7")
tabla51 ("campo8") = upload.form("campo8")
tabla51 ("campo9") = upload.form("campo9")
tabla51.update
tabla51.close
response.redirect("lista_edicion.asp?seccion="&request.QueryString("seccion")&"&subseccion="&request.QueryString("subseccion"))
%>