Error en codigo

micheliyo · #1 (**permalink**) 27/05/2005, 12:31

Por favor, soy un poco novato en ASP y me da este error:
ADODB.Field error '80020009' Either BOF or EOF, or the current record has been deleted, Requested operation requires a current record.
micheliyo/carrito.asp, line 0
podria ayudarme alguien a terminarlo, es el tipico carro de la compra, pero no encuentro donde puede estar el error, gracias de antemano.
Un saludo!

<html>
<head><title>Carrito de la compra</title>
<script language="JavaScript">
function modificar(sel,codigo){
open("mod_carrito.asp?codigo=" + codigo + "&unidades=" + sel.value,"_parent")
}
function borrar(codigo){
open("borrar_carro.asp?codigo="+codigo,"_parent")
}
</script>
</head>
<body>
<%

vector1=session("carro").keys
vector2=session("carro").items

set conexion = Server.Createobject("adodb.connection")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("datos/recambios.mdb")
conexion.open strconn

response.write("<table width=100% border=0>")
for i=0 to session("carro").count-1
sql="select * from Productos where Referencia='" & vector1(i) & "'"
set rs=conexion.execute(sql)
%>
<tr><td rowspan=2><a href=producto.asp?codigo=<%=rs("Referencia")%>><im g src=fotos/<%= rs("Foto")%> height=70 border=0></a></td><td colspan=3><%=rs("Nombre")%></td></tr>
<tr><td>Precio : <%=formatnumber(rs("Precio"),2,-1,0,-1)%> € </td><td><%=rs("Plazo_entrega")%> días</td>
<td><select onchange=modificar(this,"<%=rs("Referencia")%>")>
<%
for x=1 to 30
if x=vector2(i) then
response.write("<option value=" & x & " selected>" & x)
else
response.write("<option value=" & x & ">" & x)
end if
next
%>
</select>     <a href="" onclick="borrar('<%=rs("Referencia")%>');return false"><img src=fotos/borrar.gif border=0></a></td></tr>
<tr><td colspan=4 background=fotos/barra.gif height=10></td></tr>
<%
next
%>
</table>
</body>
</html>

Myakire · #2 (**permalink**) 27/05/2005, 12:48

A golpe de vista.
Lo más seguro es que el resultado de tu consulta ( sql="select * from Productos where Referencia='" & vector1(i) & "'") no te regrese registros y como no haces ningún tipo de validación, igual trabajas con los campos pese a que estos no existen. Por eso te marca el error.

u_goldman · #3 (**permalink**) 27/05/2005, 13:17

Despues de esta linea tendrias que agregar la condicion si no es fin de archivo (EOF) propiedad del recordset.

set rs=conexion.execute(sql)

Salu2,

mariano_donati · #4 (**permalink**) 27/05/2005, 13:19

Como funciona tu pagina?, es decir, supongamos que el usuario agrega un producto al carro, ¿lo redirecciona hacia el carro para ver como quedo el carrito y modificar las cantidades o se queda en la pagina en la que compro el producto?. Por que ese error que te da es como dice Myakire, pero si el usuario agrego un producto al carro y te sigue dando ese error, no tendría que ser así, porque ya tienes al menos un registro que mostrar. A mi me daba ese error con el Explorer, por más que el carro tenía 10 productos, por lo tanto había diez registros que mostrar, me seguía dando ese error. Lo pude solucionar dandole el tipo de datos adecuado a cada variable, asi a la hora de comparar en la sentencia SQL, se comparan los mismos tipos de datos.
Osea si "vector(i)" es una cadena, puedes convertirlo a string para que compare con el tipo adecuado de datos. Si no es una cadena, lo primero que debes sacar son las comillas.
Bueno espero que te sirva de algo, yo sufri mucho con eso porque veia que estaba todo bien y no le encontraba el error, asi espero que te sirva de algo.
Saludos!

Neuron_376 · #5 (**permalink**) 27/05/2005, 15:18

Lo que menciona mario_donati tiene mucha razon, siempre que usas una comparacion o simplemente un asignacion a una variable contra el valor de un recordset debes primero convertirlo a un tipo de dato reconocido por ASP, cosas como:

x = rs("valor") 'Puede dar error
if x > rs("valor") 'Puede dar error

Entonces debes siempre convertir a su tipo de dato real como:

x = Cstr(rs("valor")) 'Es una cadena
if x > Cint(rs("valor")) 'Es un entero

Asi sucesivametne, y en cuestion de cadenas si sabes que la base de datos acepta valores NULL entonces debes tener cuidado, porque si haces:

Cstr(rs("valor")) y es un NULL, entonces te traera error, una forma rapida aunque sucia de solucionar eso es algo como: Cstr(rs("valor") & ""), pero no la recomiendo, debes validar como:

if not isNull(rs("valor")) then
x = Cstr(rs("valor"))
end if

Algo asi, es un detalle que muchas veces arroja errores que parecen inexplicables como bien apuntaba mario donati.

Suerte!!

server-68 · #6 (**permalink**) 29/05/2005, 13:18

Claro, me parece que MYAKIRE tiene razon.
Debes verificar que tu consulta arroje records.... pues si no hay... te sale ese error

sql="select * from Productos where Referencia='" & vector1(i) & "'"
set rs=conexion.execute(sql)
' si esta vacìa
if rs.eof then
'aqui lo debe hacer si no hay coincidencias...
response.end
else
' aqui lo que debe hacer si hay records en la consulta
end if