Copiar solo un registro de una tabla a otra

[NISOTO]

Hola a todos,
Tengo 2 tablas en Firebird 2.5 y Delphi 2007.

1. Alumnos
COD_ALUMNO*
SALON
NOMBRES
APELLIDOS

2. Matricula
AULA*
ESTUDIANTE*
NOMBRES
APELLIDOS

Necesito copiar el registro que yo seleccione de la tabla “Alumnos” a la tabla “Matriculas”, el inconveniente es que el código que tengo por el momento me copia todos los registros.

Código Delphi [-]
procedure TFormmatriculas.btnMatricularClick(Sender: TObject);
  begin
     DMMatriculas.ibqry_Calificacion.Close;
     DMMatriculas.ibqry_Calificacion.Sql.Clear;
     DMMatriculas.ibqry_Calificacion.Sql.Add('INSERT INTO Matricula (ESTUDIANTE, AULA, NOMBRES, APELLIDOS)');
     DMMatriculas.ibqry_Calificacion.Sql.Add('SELECT ID_ALUMNO, SALON, NOMBRES, APELLIDOS SALON FROM alumnos');
     DMMatriculas.ibqry_Calificacion.Open;
  end;

Si alguien me puede ayudar se lo agradecería.

[TiammatMX]

Empezado por NISOTO

...
Si alguien me puede ayudar se lo agradecería...

Solamente en tu SELECT para inserción deberás "centrar" el registro que deseas se inserte en la otra tabla, es decir, ponerle una instrucción WHERE con las condiciones necesarias para que te devuelva un registro único. Servido.

[NISOTO]

Gracias,
Lo que sucede es que la tabla matricula no tiene ningun registro.

[ecfisa]

Empezado por NISOTO

Gracias,
Lo que sucede es que la tabla matricula no tiene ningun registro.

Hola NISOTO.

tiammat se refiere a que impongas la condición sobre la tabla "ALUMNOS", algo parecido a:

Código SQL [-]
INSERT INTO MATRICULA(ESTUDIANTE, AULA, NOMBRES, APELLIDOS)
SELECT A.ID_ALUMNO, A.SALON, A.NOMBRES, A.APELLIDOS FROM ALUMNOS A
WHERE A.ID_ALUMNO = :CURRENT_ID

Saludos

[TiammatMX]

Empezado por ecfisa

Hola NISOTO.

tiammat se refiere a que impongas la condición sobre la tabla "ALUMNOS", algo parecido a:

Código SQL [-]
INSERT INTO MATRICULA(ESTUDIANTE, AULA, NOMBRES, APELLIDOS)
SELECT A.ID_ALUMNO, A.SALON, A.NOMBRES, A.APELLIDOS FROM ALUMNOS A
WHERE A.ID_ALUMNO = :CURRENT_ID

Saludos

Mejor explicado, ni Zarko Gajic...

[NISOTO]

Ok, funciona de maravilla.

Muchas gracias a clubdelphi...

[ecfisa]

Empezado por tiammat

Mejor explicado, ni Zarko Gajic...

¡ Vaya exageración !

Saludos