Filtrar 2 tablas entre si

[ecfisa]

Hola Lenny.

Para brindarte una ayuda más concreta, sería bueno si nos pones los campos de las dos tablas (solo los relevantes no es necesario que los incluyas a todos). También es importante conocer mediante cuál campo se relacionan ambas tablas.

Saludos.

[Lenny]

Dale, mira, te explico en detalle y lo mas resumido posible:

Tengo Delphi 2010, MySQL, Zeos 7.0.0.
Tengo 8 componentes, 2 DBGrid, 2 DataSource, 2 ZConnection, 2 ZTable...
Los cuales se llaman:
DBGrid1, DataSource1 = Correos, ZConnection1 = Correos_C, ZTable1 = Correos_T
DBGrid2, DataSource2 = CorreosNC, ZConnection2 = CorreosNC_C, ZTable2 = CorreosNC_T

La idea como les comentaba, es poder a travez de un boton o doble clic pasar los datos (en este caso correos y usuarios) a la otra tabla, lo hago de esta manera:

Código Delphi [-]
CorreosNC_T.Insert;
CorreosNC_T.FieldbyName('AREA').AsString := Correos_T.FieldbyName('AREA').AsString;
CorreosNC_T.FieldbyName('NOMBRE').AsString := Correos_T.FieldbyName('NOMBRE').AsString;
CorreosNC_T.FieldbyName('CORREO').AsString := Correos_T.FieldbyName('CORREO').AsString;
CorreosNC_T.Post;

Tonces, lo que necesito es que la Tabla1 salgan los correos que no estan en la Tabla2, ya que la Tabla1 es comunitaria. Se entiende???.

De antemano muchisimas gracias, por ak estare pendiente...

[ecfisa]

Hola Lenny.

En realidad me refería a la estructura de las tablas, pero vamos a suponer que:

TABLA1

ID (identificador)
CP1
CP2

TABLA2

ID (identificador)
CP1
CP2
CP3
TABLA1_ID ( campo referencia a TABLA1 (en común) )

Algún campo en comun tendrán que tener por que si no sería imposible saber cuáles registros de la TABLA1 no están en la TABLA2. En este caso es: TABLA2.TABLA1_ID = TABLA1.ID.

Entonces para la TABLA1 y desde Delphi sería algo así:

Código Delphi [-]
...
  with TuQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TABLA1 T1 ');
    SQL.Add('WHERE NOT EXISTS ');
    SQL.Add('(SELECT T2.ID FROM TABLA2 WHERE T2.TABLA1_ID = T1.ID)');
    Open;
  end;
...

Es por eso que te pedía los nombres reales de campos y tablas; para evitarte las traducciones...

Saludos.

[Lenny]

aps... sorry!!!
Seria asi:

Correos_T (ZTable1)
Usuario (identificador)
Area
Correo

CorreosNC_T (ZTable2)
Usuario (identificador)
Area
Correo

Esa seria la estructura de la tabla, gracias nuevamente!!!

[ecfisa]

Hola Lenny.

Suponiendo que Correo es el campo en común (el que servirá para saber si está ingresado o no) creo que sería:

Código Delphi [-]
...
  with TuQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Correos_T T1 ');
    SQL.Add('WHERE NOT EXISTS ');
    SQL.Add('(SELECT T2.Usuario FROM CorreosNC_T WHERE T2.Correo = T1.Correo)');
    Open;
  end;
...

Saludos.

[Lenny]

Estimado, gracias por la paciencia y ayuda...
Sorry, pero aun no me funciona, preciono el Button y no hace nada... te dejo como lo tengo:

Código Delphi [-]
 
begin
  with ZQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Correos ');
    SQL.Add('WHERE NOT EXISTS ');
    SQL.Add('(SELECT CorreosNC.Correo FROM CorreosNC WHERE CorreosNC.Correo = Correos.Correo)');
    Open;
  end;
end;

Y este es el orden que tengo:

Correos_T (ZTable1), Nombre Tabla: Correos
Usuario
Area
Correo

CorreosNC_T (ZTable2), Nombre Tabla: CorreosNC
Usuario
Area
Correo

Y efectivamente el campo Correo es el comun en ambos, de antemano muchas gracias ante cualquier ayuda...

[ecfisa]

Hola Lenny.

Entonces seguramente sea el campo Usuario el que identifica y por tanto sea común a ambas tablas, sobre el que debería realizarse la comparación.

Código SQL [-]
SELECT * FROM CORREOS_T T1
WHERE NOT EXISTS (SELECT T2.USUARIO FROM CORREOSNC_T T2 WHERE T2.USUARIO = T1.USUARIO)

Saludos.