Comprobar que cada registro de una tabla existe en otra tabla para buscar duplicados

ciberpata · #1 (**permalink**) 25/11/2009, 19:12

Hola:
Estoy intentando hacer que cada registro de una tabla exista en otra, para eliminar los que sean iguales en las dos tablas.
O sea quiero que busque cada registro de RsCorreosaBorrar en RsBoletindiario2 para que luego si coinciden borrarlos en RsBoletindiario2, pero me recorre un recordset y cuando llega al final no me avanza en la otra tabla. ¿Pueden decirme por qué?
Mi codigo es:

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%response.Expires=0
Response.AddHeader "PRAGMA", "NO-CACHE"
%> 

<body>
<!--Incluimos el fichero de constantes-->
<!--#include file="../adovbs.asp" -->
<%
    'Para conexión a dsn arsys con ACCESS
Set Conn= Server.CreateObject("ADODB.Connection")
Set Command= Server.CreateObject("ADODB.Command")
Conn.open "DSN=emailrevisar"
Command.ActiveConnection=Conn 
Command.CommandType=adCmdText

'Listamos los registros de Boletindiario2
    Command.CommandText="select * FROM boletindiario2"
    Set RsBoletindiario2=Command.Execute ()
     
'Listamos todos los registros en la tabla correosaborrar
    Command.CommandText="select * FROM correosaborrar"
    Set RsCorreosABorrar=Command.Execute ()


    
    RsCorreosABorrar.movefirst
    do while not RsCorreosABorrar.eof
        Response.write "<font color=""green"" size=""5"">"  & RsCorreosABorrar("id") & ".- " & RsCorreosABorrar("email") & " de la Tabla CorreosABorrar comparado con </font>"
        Do while not RsCorreosABorrar("email") = RsBoletindiario2("email")

            Response.write "<br>" & RsBoletindiario2("id") & " " & RsBoletindiario2("email") & " <br><font color=""red"">emails son distintos</font><br>"
             
            RsBoletindiario2.movenext
        Loop
    
        RsCorreosABorrar.movenext
    Loop
%>
</body>

Muchas gracias de antemano a todos

Adler · #2 (**permalink**) 26/11/2009, 06:07

Hola

Podrías sacar los registro en con getRows() después con dos ciclos ir comparandolos

Código asp:

Ver originalfor i = 0 to ubound(registros1,2)
for j = 0 to ubound(registros2,2)
if registos2(mail,j) = registros1(mail,i) then
...
else
.....
end if

Habría otra manera pero es más complicada, de todas formas esto creo que funcionará

Suerte

ciberpata · #3 (**permalink**) 26/11/2009, 06:39

No me entero de mucho con las matrices. Supongo que registros1 y registros2 son los dos recordset qeu utilizo, pero para que es el parametro ",2"
Asi que lo he dejado asi:

for i = 0 to ubound(RsCorreosABorrar,2)
for j = 0 to ubound(RsBoletindiario2,2)
if RsCorreosABorrar("email",j) = RsBoletindiario2("email",i) then
response.write "el registro es igual"
else
response.write "el registro es diferente"
end if
Next
Next
Pero me devuelve el error: No coinciden los tipos en la linea que va en rojo

Gracias

Myakire · #4 (**permalink**) 26/11/2009, 07:49

Cita:

Estoy intentando hacer que cada registro de una tabla exista en otra, para eliminar los que sean iguales en las dos tablas.

en otras palabras, quieres duplicar ambas tablas para luego borrarlas ...

Cita:

O sea quiero que busque cada registro de RsCorreosaBorrar en RsBoletindiario2 para que luego si coinciden borrarlos en RsBoletindiario2

aaaahhhh

Para que te complicas?

delete from boletindiario2 where email in (select email from correosaborrar)

y listo!

Eso borra aquellos registros de la primer tabla cuya llave (el campo email) este en ambas tablas

ciberpata · #5 (**permalink**) 26/11/2009, 08:29

Caramba no sabia que se podia hacer eso.
Gracias Myakire. Funcionó perfectamente.

Myakire · #6 (**permalink**) 26/11/2009, 08:45

Hace poco leí un post de alguien que estaba batallando con un script para presentar un query de forma transpuesta, y estaba batallando precisamente por no hacerlo desde el SQL.

Antes de batallar con la capa correspondiente al ASP en este caso, siempre hay que ver si se puede resolver directamente en la de Datos

Que bueno que te sirvió

Saludos