error en asp problema con algo de BOF o EOF

mc_quake · #1 (**permalink**) 01/02/2006, 12:42

Tipo de error:
ADODB.Field (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

error en linea 14

Cita:

<%
Dim conexion, registros, sql

ejecutiva = request.Form("eje")

Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeBO"

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforBO WHERE Ejecutivo like '"&ejecutiva&"'"
registros.Open sql, conexion

nombre = registros.fields("Ejecutivo").value
response.write nombre&"nombre"

cont=0
Do while Not registros.EOF
cont = cont + 1
registros.movenext
Loop
registros.Close
Set registros = Nothing

response.write "<link href=""../../Stylos/ProyectoII.css"" rel=""stylesheet"" type=""text/css"">"
response.write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
response.write "<table width=""0"" height=""0"" border=""0"" class=""tbl_marco1"">"
response.write " <tr>"
response.write " <td width=""212"" height=""43"" valign=""top""> "
response.write " <table width=""215"" border=""0"">"
response.write " <tr> "
response.write " <td width=""76"" class=""tdti"">Ejecutiva</td>"
response.write " <td width=""56"" class=""tdti"">Reclamos</td>"
response.write " <td width=""64"" class=""tdti"">% Reclamos</td>"
response.write " </tr>"
response.write " <tr>"
response.write " <td class=""tdcon"">"&nombre&"</td>"
response.write " <td class=""tdcon"">"&cont&"</td>"
response.write " <td class=""tdcon""> </td>"
response.write " </tr>"
response.write " </table>"
response.write " </td>"
response.write " <td width=""106""> </td>"
response.write " </tr>"
response.write "</table>"

conexion.Close
Set conexion = Nothing
%>

u_goldman · #2 (**permalink**) 01/02/2006, 12:55

Código:

 Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM InforBO WHERE Ejecutivo like '"&ejecutiva&"'"
registros.Open sql, conexion

nombre = registros.fields("Ejecutivo").value
response.write nombre&"nombre"

Si el rs esta vacio, esa linea arrojara el error, necesitarias meter todo este proceso dentro de un if

if not rs.eof then
'acciones
else
'rs vacio
end if

Salu2,

tammander · #3 (**permalink**) 01/02/2006, 12:58

Comprueba si el valor de "eje" no venga vacio antes de construir la sentencia sql. Luego la linkaría asi:

set registros = conexion.execute(sql)

Aunque eso depende de gustos, bases de datos y otras cosas (no se si a traves de DSN se puede utilizar esta forma, otros que sepan más de ello podrán responderte).

Un saludo

mc_quake · #4 (**permalink**) 01/02/2006, 13:15

ok amigos intentare las dos opciones

mc_quake · #5 (**permalink**) 01/02/2006, 13:18

tenias razon el valor de eje viene vacio

pero no se por que mira tengo esto asi :

Cita:

<%
Dim conexion, registros, sql
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeBO"

Set registros = Server.CreateObject ("ADODB.RecordSet")
sql = "SELECT * FROM Ejecutivas "
registros.Open sql, conexion

response.write "<html>"
response.write "<head>"
response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1252"">"
response.write "<title>Año</title>"
response.write "<link href=""Stylos/ProyectoII.css"" rel=""stylesheet"" type=""text/css"">"
response.write "</head>"
response.write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
response.write "<p> "
response.write " "
response.write "</p>"
response.write "<table width=""89%"" height=""34"" border=""0"" bgcolor=""999999"">"
response.write " <tr align=""center"" valign=""middle""> "
response.write " <td width=68% height=28 align=center>"
%>
<link href="../Stylos/ProyectoII.css" rel="stylesheet" type="text/css">

<form name="form2" method="POST" action="ejecutivas/individual.asp">
<strong><font color="#FFFFFF" size="2" face="Verdana">Selecione un Ejecutivo</font></strong>
<Select Name="eje">
<%
While Not registros.EOF
%>
<option value="<%=registros("IDEjecutiva")%>"><%=registros ("Ejecutiva")%></option>
<%
registros.MoveNext
Wend
%>
</Select>

<input type="submit" name="Submit" value="VER">
</form>
<%

registros.Close
Set registros = nothing
conexion.Close
Set conexion = nothing
response.write " </td> </tr>"
response.write "</table>"
response.write "</body>"
response.write "</html>"

tammander · #6 (**permalink**) 02/02/2006, 03:30

Aparentemente se ve bien. Es posible que el select no seleccione ninguna opción. Prueba seleccionando una opcion diferente y comprueba que valor llega.

Un saludo

Myakire · #7 (**permalink**) 02/02/2006, 08:32

Yo no creo que venga vacio el Request("eje"), el problema creo yo es el el campo registros("Ejecutivo").

Mejor verifica tu Query:

sql = "SELECT * FROM InforBO WHERE Ejecutivo like '"&ejecutiva&"'"

verifica que ese valor efectivamente exista en la tabla.
Otra cosa, usas LIKE pero no usas comodines, por lo que funciona como un "=", quizá es un error de conceptos y en realidad deseas hacer un "like '%"&ejecutiva&"%'".

Lo cierto es que todos estamos adivinando, solo tu puedes hacer las pruebas.

Saludos

mc_quake · #8 (**permalink**) 02/02/2006, 08:40

ok muchas gracias a todos ya lo solucione

tomchat · #9 (**permalink**) 02/02/2006, 11:04

Simplemente debes indicarle antes de recorer el do while y se encuentra en el primero o en el ultmio registro. Algo asi:

If Not RS.Eof Then
COlocar aqui el do while
End If

gabo543 · #10 (**permalink**) 30/10/2007, 08:35

hola a todos yo tengo el mismo problema alguien sabes como solucionarlo..

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim user,pass

user = LCASE(Request.Form("username"))
pass = Request.Form("password")
%>

<%
IF user = "" Then
error("emptyuname")
ELSEIF pass = "" Then
error("emptypass")
ELSE
IF user = "admin" Then
Dim sql,rsUser,lpass
sql = "SELECT pass FROM Users WHERE username = 'admin'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
lpass = rsUser("pass")
rsUser.close
set rsUser = nothing
IF pass = lpass Then
Session("username") = "admin"
Response.Redirect("index.asp")
ELSE
error("wrongp")
END IF
ELSE
error("wrongu")
END IF

END IF
%>

<%FUNCTION error(calltype)%>

<br><br><br>
<table Align="center" vAlign="center" width="500">
<tr>
<td Align="center">
<h3>LOGIN ERROR</h3>
</td>
</tr>
<tr>
<td Align="center">
<%IF calltype = "emptyuname" Then%>
<font size="2">You can`t enter any username in username field.</font>
<%ELSEIF calltype = "emptypass" Then%>
<font size="2">You can`t enter any password in password field.</font>
<%ELSEIF calltype = "wrongp" Then%>
<font size="2">Your password is wrong.</font>
<%ELSEIF calltype = "wrongu" Then%>
<font size="2">This section is only for Admin.</font>
<%END IF%>
</td>
</tr>
</table>

<br><center><a href="javascript:history.back()"> Please click here to go back and make changes</a> </center>


<%END FUNCTION%>

este es el error que me da ADODB.Field (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/usermanager/admin/loginprocess.asp, línea 21

Myakire · #11 (**permalink**) 30/10/2007, 08:41

sql = "SELECT pass FROM Users WHERE username = 'admin'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
lpass = rsUser("pass")

Tu query no te regresa nada y quieres acceder a un campo, por eso es el error.

gabo543 · #12 (**permalink**) 30/10/2007, 09:02

y como puedo arreglar ese error me puedes ayudar .....por favor...
que tengo que agregar mas.... me puedes decir..

gabo543 · #13 (**permalink**) 30/10/2007, 10:18

yo trate de hacer algo pero me sale el mismo error asi que espero que alguien de uds que tenga buena voluntad me diga como arreglar esto lo necesito....

Myakire · #14 (**permalink**) 30/10/2007, 11:04

bueno, arreglarlo como quien dice arreglarlo, pues solo tu puedes, ya que si esa consulta te sale vacía es por que en la tabla Users no hay un registro que en el campo username sea igual a admin

Si quieres que no te truene (aunque el programa no funcionará como esta diseñado) solo agrega un IF:

Código:

sql = "SELECT pass FROM Users WHERE username = 'admin'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
if not rsuser.EOF Then 
   lpass = rsUser("pass")
End If
rsUser.close