MySQL Forums
Forum List  »  Newbie

Problem whe updating
Posted by: Tahel Romero
Date: May 11, 2005 11:29AM

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"))
%>

Options: ReplyQuote


Subject
Written By
Posted
Problem whe updating
May 11, 2005 11:29AM


Sorry, you can't reply to this topic. It has been closed.

Content reproduced on this site is the property of the respective copyright holders. It is not reviewed in advance by Oracle and does not necessarily represent the opinion of Oracle or any other party.