Pasar una tabla o base de dato a otra

[maxzama]

-Hola, necesito pasar unos datos de una tabla a otra tabla, que octiene los mismo campos.

-Me pueden decir, que me hace falta o que ecolocado demas...


Error que muestra el sistema:

Código Delphi [-]
access violation at address 006D3BE5 in module Asistencia.exe write of address 0000000.

utilizo:

Delphi xe2, IBDataset. Firebird...

-IBDataset: ASISTENCIA_MADRE1.

El Codigo que se esta utilizando:

Código Delphi [-]
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
    if application.MessageBox('DESEA GUARDAR?','guardar un Registro',
     MB_ICONQUESTION OR MB_YESNO) = ID_YES then
       begin
           Dmodulo.ASISTENCIA_MADRE1.Close;
           Dmodulo.ASISTENCIA_MADRE1.SelectSQL.Text:=Dmodulo.ASISTENCIA_MADRE1.InsertSQL.Text;
           DMODULO.ASISTENCIA_MADRE1.Open;
           Dmodulo.ASISTENCIA_MADRE1.First;
           while not Dmodulo.ASISTENCIA_MADRE1.Eof do
           begin
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('TIPO_DOCUMENTO').Value:=Dmodulo.Asistencia.FieldByName('TIPO_  DOCUMENTO').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('CEDULA').Value:=Dmodulo.Asistencia.FieldByName('CEDULA').Valu  e;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('NOMBRE').Value:=Dmodulo.Asistencia.FieldByName('NOMBRE').Valu  e;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('APELLIDO').Value:=Dmodulo.Asistencia.FieldByName('APELLIDO').  Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('CODIGO_COLEGUIO').Value:=Dmodulo.Asistencia.FieldByName('CODI  GO_COLEGUIO').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('COLEGUIO').Value:=Dmodulo.Asistencia.FieldByName('COLEGUIO').  Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('DIAS_TRABAJADO').Value:=Dmodulo.Asistencia.FieldByName('DIAS_  TRABAJADO').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('TLF_FIJO').Value:=Dmodulo.Asistencia.FieldByName('TLF_FIJO').  Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('TLF_CELULAR').Value:=Dmodulo.Asistencia.FieldByName('TLF_CELU  LAR').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('CORREO').Value:=Dmodulo.Asistencia.FieldByName('CORREO').Valu  e;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('MUNICIPIO').Value:=Dmodulo.Asistencia.FieldByName('MUNICIPIO'  ).Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('PARROQUIA').Value:=Dmodulo.Asistencia.FieldByName('PARROQUIA'  ).Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('DIAS_TRABAJADO1').Value:=Dmodulo.Asistencia.FieldByName('DIAS  _TRABAJADO1').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('DIAS_TRABAJADO2').Value:=Dmodulo.Asistencia.FieldByName('DIAS  _TRABAJADO2').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('DIAS_TRABAJADO3').Value:=Dmodulo.Asistencia.FieldByName('DIAS  _TRABAJADO3').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('DIAS_TRABAJADO4').Value:=Dmodulo.Asistencia.FieldByName('DIAS  _TRABAJADO4').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('DIAS_TRABAJADO5').Value:=Dmodulo.Asistencia.FieldByName('DIAS  _TRABAJADO5').Value;
               Dmodulo.ASISTENCIA_MADRE1.ParamByName('Monto').Value:=Dmodulo.Asistencia.FieldByName('Monto').Value;

               Dmodulo.ASISTENCIA_MADRE1.Next;

               Dmodulo.ASISTENCIA_MADRE1.ExecSQL;
               Dmodulo.ibt.Commit;  // ibt ibtrasaction
               Dmodulo.ASISTENCIA_MADRE1.selectSQL.Clear ;
               Dmodulo.ASISTENCIA_MADRE1.selectSQL.Add('select * from ASISTENCIA_MADRE ');
               Dmodulo.ASISTENCIA_MADRE1.Open;

           SHOWMESSAGE('El Monto a sido Insertado');
       END;
     end;
end;

Espero sus respuesta, Por favor y gracias...

[Casimiro Noteví]

Como ya supongo que lo sabes, pero aquí lo vuelvo a poner:

Código SQL [-]
insert into tabladestino select * from tablaorigen

Pregunta si tienes alguna duda

[maxzama]

tambien ise esta modificación, en el codigo que tengo en el IBDataset.(y hago llamado en el codigo) Y me da el siguiente error.

Error que muestra el sistema:

Código Delphi [-]
Dynamic SQL error
SQL error code=-104
Token unknown - line 5, column 1
values.

Codigo en el IBDataset:

Código Delphi [-]
insert into ASISTENCIA_MADRE select * from DIASMADRE
  (CEDULA,APELLIDO, CODIGO_COLEGUIO, COLEGUIO, CORREO, DIAS_TRABAJADO, DIAS_TRABAJADO1, 
   DIAS_TRABAJADO2, DIAS_TRABAJADO3, DIAS_TRABAJADO4, DIAS_TRABAJADO5, 
   MONTO, MUNICIPIO, NOMBRE, PARROQUIA, TIPO_DOCUMENTO, TLF_CELULAR, TLF_FIJO)
values
  (:CEDULA,:APELLIDO, :CODIGO_COLEGUIO, :COLEGUIO, :CORREO, IAS_TRABAJADO, IAS_TRABAJADO1, 
   IAS_TRABAJADO2, IAS_TRABAJADO3, IAS_TRABAJADO4, IAS_TRABAJADO5, 
   :MONTO, :MUNICIPIO, :NOMBRE, :PARROQUIA, :TIPO_DOCUMENTO, :TLF_CELULAR, 
   :TLF_FIJO)

[Casimiro Noteví]

Claro, es una sentencia sql no válida.
Pero ¿eso tiene algo que ver con lo anterior?

[maxzama]

Si tiene que ver. estoy asiendo el llamado aqui:

IBdataset:ASISTENCIA_MADRE1.

Código Delphi [-]
// Dmodulo.ASISTENCIA_MADRE1.InsertSQL.Text;

Código Delphi [-]
Dmodulo.ASISTENCIA_MADRE1.Close;
Dmodulo.ASISTENCIA_MADRE1.SelectSQL.Text:=Dmodulo.ASISTENCIA_MADRE1.InsertSQL.Text;
DMODULO.ASISTENCIA_MADRE1.Open;

___________________________________________________

este es mi nuevo codigo, y tambien me da error:

Código Delphi [-]
insert into ASISTENCIA_MADRE  
  (CEDULA,APELLIDO, APELLIDO, CODIGO_COLEGUIO, CODIGO_COLEGUIO, COLEGUIO, COLEGUIO, 
   CORREO, CORREO, DIAS_TRABAJADO, DIAS_TRABAJADO1, DIAS_TRABAJADO1, 
   DIAS_TRABAJADO2, DIAS_TRABAJADO2, DIAS_TRABAJADO3, DIAS_TRABAJADO3, 
   DIAS_TRABAJADO4, DIAS_TRABAJADO4, DIAS_TRABAJADO5, DIAS_TRABAJADO5, 
   DIAS_TRABAJADO, MONTO, MONTO, MUNICIPIO, MUNICIPIO, NOMBRE, NOMBRE, 
   PARROQUIA, PARROQUIA, TIPO_DOCUMENTO, TIPO_DOCUMENTO, TLF_CELULAR, 
   TLF_CELULAR, TLF_FIJO, TLF_FIJO)
values
  (:CEDULA,:APELLIDO, :APELLIDO, :CODIGO_COLEGUIO, :CODIGO_COLEGUIO, :COLEGUIO, 
   :COLEGUIO, :CORREO, :CORREO, : DIAS_TRABAJADO, : DIAS_TRABAJADO1, : DIAS_TRABAJADO1, 
   : DIAS_TRABAJADO2, : DIAS_TRABAJADO2, : DIAS_TRABAJADO3, : DIAS_TRABAJADO3, 
   : DIAS_TRABAJADO4, : DIAS_TRABAJADO4, : DIAS_TRABAJADO5, : DIAS_TRABAJADO5, 
   : DIAS_TRABAJADO, :MONTO, :MONTO1, :MUNICIPIO, :MUNICIPIO1, :NOMBRE, 
   :NOMBRE, :PARROQUIA, :PARROQUIA, :TIPO_DOCUMENTO, :TIPO_DOCUMENTO, 
   :TLF_CELULAR, :TLF_CELULAR, :TLF_FIJO, :TLF_FIJO)

[Casimiro Noteví]

Creo que no nos estamos entendiendo

Tú quieres pasar todos los registros de una tabla a otra tabla que tiene los mismo campos, ¿es eso?

[maxzama]

Si, quiero pasar una tabla a otra, con los mismo campos...