Insert de datos faltantes con sql

[StartKill]

Hola,

Trabajo con delphi 7.0, componentes IBX, Interbase 7.0,

Tengo dos tablas de la siguiente forma:

tabla01
y mi clave primaria es CODIGO-01
CODIGO-01     DETALLE-01
--------------------------
001           AAAAAAA
002           BBBBBBBB
003           CCCCCCC
004           DDDDDDD
005           FFFFFFFF
006           EEEEEEEE

tabla02
y mi clave primaria es CODIGO-01, CODIGO-02
CODIGO-01     DETALLE-01     CODIGO-02
----------------------------------------
001           AAAAAAA           XXX1
002           BBBBBBBB           XXX1
003           CCCCCCC           XXX1
004           DDDDDDD           XXX1
005           FFFFFFFF           XXX1
006           EEEEEEEE           XXX1
001           AAAAAAA           AAA3
003           CCCCCCC           AAA3
004           DDDDDDD           AAA3
006           FFFFFFFF           AAA3

y una relacion foranea desde la tabla-02 a la tabla-01
por medio del campo CODIGO-01

Si se observa la tabla-02 hay un conjunto de seis (6) registros para codigo-02 (XX1) que estan en la tabla-01

Como haria para llenar los registros faltantes de la tabla-01 en la tabla-02 para el codigo AAA3??, para que quede de la siguiente forma

tabla02
CODIGO-01     DETALLE-01     CODIGO-02
----------------------------------------
001           AAAAAAA           XXX1
002           BBBBBBBB           XXX1
003           CCCCCCC           XXX1
004           DDDDDDD           XXX1
005           FFFFFFFF           XXX1
006           EEEEEEEE           XXX1
001           AAAAAAA           AAA3
002           BBBBBBBB           AAA3
003           CCCCCCC           AAA3
004           DDDDDDD           AAA3
005           FFFFFFFF           AAA3
006           EEEEEEEE           AAA3

Lo he hecho con codigo en Delphi, pero me gustaria hacerlo con una sentencia SQL o Procedure.

A la espera de sus respuestas, regalos y otros.

Your friend,

StartKill
Lima-Perú

[athlontado]

Puedes hacerlo con esta sentencia directamente ó bien, meter la sentencia dentro de un procedimiento, al que le pases el CODIGO-02 como parámetro para la citada sentencia.

INSERT INTO TABLA01 (CODIGO-01, DETALLE-01)
SELECT T2.CODIGO-01, T2.DETALLE-01 FROM TABLA02 T2
WHERE T2.CODIGO-02 = 'AAA3';

A ver si te funciona.
Un saludo

[StartKill]

Holas, athlontado.

No deseo insertar en la tabla-01 , la necesito insertar en la tabla-02, mira el ejemplo por favor.

Saludos

Your f riend,

StartKill
Lima-Perú

[gendelphi]

Hola, una forma sería asi:

Código SQL [-]
CREATE PROCEDURE datos_faltantes (cod2 VARCHAR(20))
AS
BEGIN
  INSERT INTO tabla-02
    SELECT codigo-01, detalle-01, :cod2 
    FROM tabla-01 WHERE  codigo-01 NOT IN 
      (SELECT codigo-01 FROM tabla-02 WHERE codigo-02 = :cod2)
END!!

Quisas tenga algun error de sintaxis, ya que no tengo a la mano Interbase para probarlo, pero en teoria debe funcionar.

[StartKill]

Holas, gendelphi/athlontado.

Perfecto, lo ajusté a mi necesidad y funciono, hay veces que uno necesita la ayuda de compañeros. (no se me ocurrio ... el "NOT IN")

Muchas gracias

Yuor friend,

StartKill
Lima-Perú