Do-Loop sencillo pero que no sale

[ciberpata]

Saludos:
Intento hacer lo siguiente:

Recibir un valor por url en la variable usuarioaborrar y compararlo con rs("empresaoferta").

Si la comparación es ok (si son iguales): entonces que me borre todos los registros que cumplen esa condición
y si no que salga del do-loop

El caso es que siempre encuentra los registros en los que la comparación no es ok (son distintos).
Lo que hago es lo siguiente:

Código:

usuarioaborrar=ucase(request.form("usuarioaborrar"))

set Conn= Server.CreateObject("ADODB.Connection")
 Conn.ConnectionString = "DSN=clubviajesoferta.com.turofertas"
 Conn.open
 Set RS=Server.CreateObject("ADODB.Recordset")
 rs.activeconnection=Conn 
 rs.source="ofertasmayoristas"
 rs.Locktype = adLockOptimistic
 rs.CursorType = adOpenDinamic
 rs.open
 
 rs.movefirst
 do while rs("empresaoferta") = usuarioaborrar
  rs.delete
  rs.movenext
 loop

Por favor pueden explicarme donde está el error, porque o estoy obcecado o no lo veo.
Gracias

[Myakire]

Bueno, yo no uso los métodos del recordset append , update o delete, pero por lógica puedo comentarte lo siguiente:

do while rs("empresaoferta") = usuarioaborrar
rs.delete
rs.movenext
loop

1) Si borras un registro, automáticamente te pasas al siguiente registro ¿o no?, si entonces haces un move next, te estas saltando la mitad de los registros.
2) No preguntas por el EOF
3) Puedes comparar evitando los espacios: Trim(rs("empresaoferta")) = Trim(usuarioaborrar)
4) ¿Por que no haces un simple "Delete from tabla where empresaoferta <> 'ok'"?

Saludos

[ciberpata]

La tabla está en Access y he comprobado que hay que hacer el rs.movenext porque sino no avanza al siguiente registro.
He probado ha hacer lo siguiente como tu me indicas y si no he entendido mal he hecho esto.

Código:

  
 if rs.bof and rs.eof then
  rs.movefirst
  do while Trim(rs("empresaoferta")) = Trim(usuarioaborrar)
   rs.delete
   rs.movenext
  loop
 end if

Entiendo que le estoy diciendo que:
mientras rs("empresaoferta") y usuarioborrar sean iguales borre el registro.
Lo que pasa es que o yo estoy muy obcecado o el alzheimer llama a mi puerta.
Gracias

[Myakire]

¿Por que no haces un simple "Delete from tabla where empresaoferta <> 'ok'"? y te olvidas de problemas.

No es que por medio de un ciclo no se pueda, pero ¿si lo puedes hacer en una linea (y que lo haga el motor de BS's), por qué no hacerlo?

[kova]

Ciberpata, hola, si aún quieres mantener tu código, te hago algunas recomendaciones.
Me parece que el código correcto para que elimine a las filas que cumplan con la condición de que el campo "empresaoferta" del recordset sea igual a la variable usuarioborrar, sería el siguiente:

rs.movefirst
do while not rs.eof
if trim(rs("empresaoferta")) = trim(usuarioborrar) then
rs.delete
end if
rs.movenext
loop

Eso debería andar.

Otro consejo, cuando el rs está vacío suele tirar un error si intentas hacer
rs.movefirst
directamente, por eso te recomiendo que coloques todo el bloque en un if que pregunte, ni bien lo abre, si no esta en el fondo (osea que no esta vacío), quedaría algo así:

if not rs.eof then
rs.movefirst
do while not rs.eof
if trim(rs("empresaoferta")) = trim(usuarioborrar) then
rs.delete
end if
rs.movenext
loop
end if

Mucha Suerte!!!

[ciberpata]

Lo probare Kova. Vaya creo que el Alzheimer llama a mi puerta. De todas maneras el recordset en este caso, nunca estará vacio.

Muchiiiiiiisimas gracias por todo.

Un saludo

[trasgukabi]

A ver, aveeerrrr

ÉSTO:

Código PHP:

  usuarioaborrar=ucase(request.form("usuarioaborrar"))
 
set Conn= Server.CreateObject("ADODB.Connection")
 Conn.ConnectionString = "DSN=clubviajesoferta.com.turofertas"
 Conn.open
 Set RS=Server.CreateObject("ADODB.Recordset")
 rs.activeconnection=Conn 
 rs.source="ofertasmayoristas"
 rs.Locktype = adLockOptimistic
 rs.CursorType = adOpenDinamic
 rs.open
 
 rs.movefirst
 do while rs("empresaoferta") = usuarioaborrar
  rs.delete
  rs.movenext
 loop 
   

COMPARADO CON ESTO:

Código PHP:

  usuarioaborrar=ucase(request.form("usuarioaborrar"))
 
set Conn= Server.CreateObject("ADODB.Connection")
 Conn.ConnectionString = "DSN=clubviajesoferta.com.turofertas"
 Conn.execute("delete from ofertasmayoristas where empresaoferta='"&usuarioaborrar&"'")
Conn.close 
   

como decía Myakire. No hay color, compadre. Optimización, esa es la clave.