Ayuda update error
Publicado por Ale (11 intervenciones) el 20/10/2006 18:26:54
Hola alguien podria echarle un hojo a este codigo.Ya que me da error al tratar de hacer update a un registro
<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" %>
<html>
<head>
<title>Modificacion de Datos</title>
</head>
<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From tabla1 Where UCase(IdDoc)='" & UCase(Request("Dato1")) & "' And UCase(Revision)='" & UCase(Request("Dato2")) & "' And UCase(Titulo)='" & UCase(Request("Dato3")) & "' And UCase(Fecha)='" & UCase(Request("Dato4")) & "' And UCase(Vigente)='" & UCase(Request("Dato5")) & "' And UCase(Documento)='" & UCase(Request("Dato6")) & "'"
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla("IdDoc") = Request("Dato1")
Tabla("Revision") = Request("Dato2")
Tabla("Titulo") = Request("Dato3")
Tabla("Fecha") = Request("Dato4")
Tabla("Vigente") = Request("Dato5")
Tabla("Documento") = Request("Dato6")
Tabla.Update
Tabla.Close
Set Tabla = Nothing
'fin del Script
End If
%>
<font face="Tahoma" size="2"><b><i>Modificacion de datos completado</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i>Sadepan Web 2006</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="modificacion_documentos.html" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
El error que em da es el sgte : Tipo de error:
ADODB.Recordset (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/Modificar.asp, línea 21
Ya lo modifique mil veces y sigo con error pls ayudaaaaaaa
<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" %>
<html>
<head>
<title>Modificacion de Datos</title>
</head>
<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From tabla1 Where UCase(IdDoc)='" & UCase(Request("Dato1")) & "' And UCase(Revision)='" & UCase(Request("Dato2")) & "' And UCase(Titulo)='" & UCase(Request("Dato3")) & "' And UCase(Fecha)='" & UCase(Request("Dato4")) & "' And UCase(Vigente)='" & UCase(Request("Dato5")) & "' And UCase(Documento)='" & UCase(Request("Dato6")) & "'"
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla("IdDoc") = Request("Dato1")
Tabla("Revision") = Request("Dato2")
Tabla("Titulo") = Request("Dato3")
Tabla("Fecha") = Request("Dato4")
Tabla("Vigente") = Request("Dato5")
Tabla("Documento") = Request("Dato6")
Tabla.Update
Tabla.Close
Set Tabla = Nothing
'fin del Script
End If
%>
<font face="Tahoma" size="2"><b><i>Modificacion de datos completado</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i>Sadepan Web 2006</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="modificacion_documentos.html" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
El error que em da es el sgte : Tipo de error:
ADODB.Recordset (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/Modificar.asp, línea 21
Ya lo modifique mil veces y sigo con error pls ayudaaaaaaa
Valora esta pregunta
0