Error al realizar un bucle

[quatrero]

Buenos días, les comento mi problema:

Quiero hacer un sencillo while y me está tirando un error que no se ya que más probar para subsanarlo, primeor el código:

<%
set cn = Server.CreateObject("ADODB.Connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db\db_expedientes.mdb") & ";"
SQLStat = "SELECT * from tbl_unidadesd"

set rs = cn.Execute(SQLStat)

%>

<%

do while not rs.EOF%>
<option><%=rs("uid")%>&nbsp;<%=rs("unidad")%></option>
<%rs.MoveNext
loop
%>

Como verán quiero llenar un <select> simplemente, y me da 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.

Y ya probé de todo y logro hacer andar esto.
Por supuesto, que la consulta trae datos, ese no es el problema, traté de antes de hacer el while posicionarme en el primer regitro, pero no pasa nada, cambié la forma de abrir la cadena de conexión y el recordset y tampoco, ya no se que más hacer.

Si alguien puede ayudar se lo agradeceré.

Saludos.

[Muzztein]

es probable que uid venga vacia o "unidad" venga vacia

[quatrero]

No, no, ambos tiene datos.

De hecho haciendo un respose.write(rs("uid")) y respose.write(rs("uid")), me trae los datos del primer registro como corresponde.

[Muzztein]

aja, pero del primero.
quizas el segundo o del tercero o alguno de toda la lista viene vacio, y es por eso que se cae.

checa los datos en la bd y ve que toooooodos vengan con datos.
si solo uno no viene con datos, entonces se caera toda la aplicacion.


es un error bastante normal, lo que deberias hacer es verificar que el dato existe antes de imprimirlo en la pantalla.

[quatrero]

96 registros y todos con datos, el problema no está en lo que trae la consulta.

[Muzztein]

aja... bueno entonces es por que cuando llegas al final de la lista, osea EOF se cumple.
lo obligas a dar un paso mas con el movenext y por eso se cae.

quizas deberias usar un if antes de obligarlo a hacer el movenext

[quatrero]

Eh?? ¿Y eso desde cuando es?
Hagamos la prueba de escritorio:

La condición es que no sea fin de archivo, ahi imprimir los datos y moverse al siguiente, asi hasta que justamente SEA eof lo que provoca el fin del bucle ¿para que necesito hacer un if allí si ya está evaluando si es o no eof?
De todos modos, con el if tampoco funciona, tira el error al entrar en el bucle.

[Muzztein]

ponle un error resume next y ve hasta donde te imprime

[quatrero]

Poniendo el resume (¿Como cuernos no se me ocurrió?), me muestra que imprime todos los registros, es decir el error, se da luego.
Lo que no logro entender, es, si llegó a EOF, por qué sigue en el loop e intenta, mover el cursor nuevamente (si esto es lo que provoca el error)
Y por otro lado, poniendo un if para verificar que no sea eof antes de hacer el movenext, sigue dando el mismo error.

[Muzztein]

pues coloca el IF antes de imprimir

[quatrero]

Lo ponga, antes de imprimir o antes del movenext sigue dando ese error.
¿Alguna idea? Porque ya la opción d que fuera porque alcanzó el fin de archivo no me suena, si asi fuera, primero tendría que haber salido del bucle, y aún si esto no sucediera, tendría que parar la ejecución en el if.

[Muzztein]

checa como hacen el bucle aqui en un ejemplo que encontre...
se ve aprueba de balas

Código asp:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open MM_connDUpoll_STRING
Query = "Select * from tbl_check WHERE IPCHECK='"&Request("IPCHECK")&"'"
Set rs=Connect.Execute(Query)
 
If rs.EOF then
Response.Redirect("YOU CAN VOTE PAGE")
 
Else
 
Do While Not rs.EOF
 
If FormatDateTime(Request("IPDATE"))=FormatDateTime(rs("IPDATE")) then
 
Response.Redirect("SORRY YOU CANT VOTE PAGE")
Else
Response.Redirect("YOU CAN VOTE PAGE")
End If
 
rs.MoveNext
Loop
End If
 
rs.Close
Connect.Close
 

[quatrero]

Pués la verdad no le veo diferencia, salvo que hacen un if para en caso de que la consulta no traiga datos (if rs.eof then xxxx), pero este no es el caso.

Fijate, otro código, en la misma aplicación que hace lo mismo y funciona perfectamente:

Código c&#243:

set cn = Server.CreateObject("ADODB.Connection")
 
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db\db_expedientes.mdb") & ";"
 
SQLStat = "SELECT * from tbl_tipos"
 
set rs = cn.Execute(SQLStat)%>
 
<select name="tipos">
<%
Do while not rs.eof 
%><option><%=rs("tid")%>&nbsp;<%=rs("tipo")%></option><%
rs.movenext
loop
%>
</select>
 

[Muzztein]

por que tiene datos.... en fin.
sino quieres probar ya es cosa tuya.

[quatrero]

No es que no quiero probar, ya probé y es lo mismo, me sigue dando el mismo error.
Y no entiendo por qué

En el ejemplo que vos me pasaste la única diferencia era el if, lo agregué y sigue = (cosa lógica, ya que ese if solo comprueba que haya datos en la consulta Y LOS HAY)

El último código que te pase, es exactamente igual al primero, es parte de la misma aplicación y usa la misma db

¿Diferencias? No las se, en un caso funciona y en el otro no y es lo que me está complicando la vida. En ambos la consulta trae datos.

[Myakire]

¿Cómo esta el código en cuestión en la actualidad?

Por lo que he leído, supongo que como esto:

Código asp:

while not rs.EOF
   if not rs.EOF then%>
<option><%=rs("uid")%>&nbsp;<%=rs("unidad")%></option>
<%
  end if
rs.MoveNext
wend
%>
 

Y si, aparentemente ese IF esta redundando una condición que supuestamente debiera controlar el WHILE. Me ha tocado (hace años no manejo Access, pero recuerdo) que cuando trabajaba con tablas resultado de importar algún Excel "se comportaba extraño", por lo que aparte de verificar el EOF verificaba que el campo en cuestión tuviera contenido, ese IF modifícalo para que valide el que el LEN(TRIM(campo)) sea mayor a cero.

Ya nos contaras.

Saludos