Consulta desde ASP

[YumCimil]

Buenos días foro, solicito de su apoyo con el error...

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

Este aparece cuando doy click para hacer una búsqueda, no le doy a la solución les pongo mi código para que le echen un ojo... Todas sus sugerencias son muy bien recibidas, de ante mano muchas gracias!

<form method="post" action="buserie.asp">
<table width="1219" border="0">
<tr>
<td width="166" class="style6"> <div align="left" class="style8">Ingresa número de serie: </div></td>
<td width="185"><Input type="text" name="serie" size="30"></td>
<td width="854"><Input type="submit" value="Buscar"></td>
</tr>
</table>
</form>

<%
'Inicia consulta a la base de datos
Dim bd,rsdb

serie=Request.Form("serie")
Set bd=Server.CreateObject("ADODB.Connection")
Set rsdb=Server.CreateObject("ADODB.RecordSet")

bd.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("DeviceName.mdb"))
consulta="SELECT * FROM nombres_equipos where (serie_equipo) like '%" & (Request.Form("serie")) & "%'"
rsdb.Open consulta, bd
%>

<table width="275" border="0">
<tr>
<td width="133">Nombre de equipo:</td>
<td width="126"><%=rsdb.Fields("nombre_equipo")%></td>
</tr>
<tr>
<td>Ciudad:</td>
<td><%=rsdb.Fields("ciudad_equipo")%></td>
</tr>
<tr>
<td>Localidad</td>
<td><%=rsdb.Fields("localidad_equipo")%></td>
</tr>
<tr>
<td>Oficina</td>
<td><%=rsdb.Fields("oficina_equipo")%></td>
</tr>
<tr>
<td>Tipo de equipo:</td>
<td><%=rsdb.Fields("tipo_equipo")%></td>
</tr>
<tr>
<td>Propietario:</td>
<td><%=rsdb.Fields("propietario")%></td>
</tr>
<tr>
<td>Piso / Edificio:</td>
<td><%=rsdb.Fields("piso_equipo")%></td>
</tr>
<tr>
<td>Usuario:</td>
<td><%=rsdb.Fields("usuario_equipo")%></td>
</tr>
</table>

<%
bd.Close
Set bd= Nothing
%>

[Adler]

Hola

Prueba añadiendo

Código asp:

rsdb.Open consulta, bd
if rsdb.eof = True Then
%>
tabla
<%
else
'otra cosa
end if 
%>
 

Suerte

[Shiryu_Libra]

como te ha dicho Adler (), lo que pasa es que no controlas los errores involuntarios que puede traerte la consulta.....

por ejemplo....

- que la consulta no traiga ningun registro
- que la consulta no coincida con nada en la tabla

lo que debes hacer es una estructura de correccion, por lo regular todo programa debe manejar bien los errores, ese es nuestro objetivo primordial

ejemplo:

Código ASP:

'Variables
criterio = request.form("criterio") <--- campo del formulario
campos = "campo1"
tabla="tabla1"
SQL="SELECT "& campos &" FROM "& tabla &" WHERE campo1 like [B][COLOR=Red]'%[/COLOR][/B]"& criterio &"[B][COLOR=Red]%'[/COLOR][/B]"
stringcxn= [FONT=Tahoma]"PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("DeviceName.mdb")[/FONT]
[FONT=Tahoma]
'definimos variables del servidor para consulta
Set bd=Server.CreateObject("ADODB.Connection")
    
    bd.Open stringcxn
bd.execute SQL
 
'definimos el comportamiento de la consulta
if Err=0 then 'No existio error
if bd.eof=false 'no es el final de la consulta
while db.eof=false 'mientras haya registros a mostrarlos
response.write db.fields.item("campo1").value & "<br>"
wend
else
response.write "no se encontro ninguna coincidencia"
end if
else
response.write "Error "& Err
end if[/FONT]
 

eso seria una estructura basica, de ahi, las modificaciones necesarias para el control de todo los errores

[YumCimil]

Buenas tardes Shiryu_Libra / Adler, perfecto muchas gracias por su colaboración... Como bien comentan, no estaba considerando esos escenarios. Voy a realizar los cambios que me comentan y les aviso.

[Myakire]

Solo te recomiendo que antes de copiar y pegar códigos que usuarios te colaboren por Internet, revísalos y analízalos, ya que a uno a veces se le barren detallitos, como al buen Shiryu_Libra

while db.eof=false 'mientras haya registros a mostrarlos
response.write db.fields.item("campo1").value & "<br>"
db.MoveNext
wend

Saludos!

[Shiryu_Libra]

Iniciado por Myakire

Solo te recomiendo que antes de copiar y pegar códigos que usuarios te colaboren por Internet, revísalos y analízalos, ya que a uno a veces se le barren detallitos, como al buen Shiryu_Libra

Saludos!

y comprobaria????

sensei

[YumCimil]

Buenos días, ya logre hacer la consulta de esta manera...

<%
dim conexion,registros,serie,consulta

serie=Request.Form("serie")
set conexion=Server.CreateObject("ADODB.Connection")
set registros=Server.CreateObject("ADODB.RecordSet")

conexion.open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("DeviceName.mdb"))
consulta="SELECT * FROM nombres_equipos WHERE Ucase(serie_equipo) LIKE '%" & UCase(request.form("serie")) & "%'"
registros.open consulta,conexion

if not registros.EOF then

%>

<table width="275" border="0">
<tr>
<td width="133">Nombre de equipo:</td>
<td width="126"><%=registros.Fields("nombre_equipo")%> </td>
</tr>
<tr>
<td>Ciudad:</td>
<td><%=registros.Fields("ciudad_equipo")%></td>
</tr>
<tr>
<td>Localidad</td>
<td><%=registros.Fields("localidad_equipo")%></td>
</tr>
<tr>
<td>Oficina</td>
<td><%=registros.Fields("oficina_equipo")%></td>
</tr>
<tr>
<td>Tipo de equipo:</td>
<td><%=registros.Fields("tipo_equipo")%></td>
</tr>
<tr>
<td>Propietario:</td>
<td><%=registros.Fields("propietario")%></td>
</tr>
<tr>
<td>Piso / Edificio:</td>
<td><%=registros.Fields("piso_equipo")%></td>
</tr>
<tr>
<td>Usuario:</td>
<td><%=registros.Fields("usuario_equipo")%></td>
</tr>
</table>

<%
else
response.write("No existe ningún dato")
end if
conexion.close
Set registros= Nothing
%>

Ahora solo una pregunta que quizá suene muy básica... como hago para que de inicio los campos esten vacios, hasta que se haga una búsqueda...

Muchas gracias, sus consejos han sido muy útiles!

Saludos!

[Adler]

Hola

Iniciado por YumCimil

Ahora solo una pregunta que quizá suene muy básica... como hago para que de inicio los campos esten vacios, hasta que se haga una búsqueda...

¿A qué te refieres?

[YumCimil]

Que tal Adler buenas tardes...

Lo que sucede es que cuando voy a esa página por default carga los datos de mi primer registro en la base, sin necesidad de realizar la consulta, ¿me explico?

Muchas gracias!

[JuanRAPerez]

Iniciado por YumCimil

Que tal Adler buenas tardes...

Lo que sucede es que cuando voy a esa página por default carga los datos de mi primer registro en la base, sin necesidad de realizar la consulta, ¿me explico?

Muchas gracias!

tovck tock

ummm
serie=Request.Form("serie")

si serie esta vacio que no ejecute el código

asi no te tendria que mostrara nada al cargar la web

suerte

[YumCimil]

Buenas tardes!

Muchas gracias a todos por su apoyo, tema resuelto!