pasar de una tabla1 a una tabla2 la misma info

[el_barto]

Buenas tardes:

Tengo una tabla1 que tiene campos campo1, campo2
Tengo otra tabla que tienen campos campo1, campo2, campo3

donde para la tabla1 y la tabla2 los campos campo1 y campo2 son exactamente iguales. lo unico que cambia es que la tabla2 tiene un campo que se llama campo3.

como se hace para pasar toda la informacion de la tabla 1 a la tabla2

[ContraVeneno]

Código SQL [-]
insert into tabla2(campo1, campo2)
select campo1, campo2 from tabla1

[el_barto]

esto lo coloco en mi dataset1.insertsql??

Código Delphi [-]
 
insert into tabla2(campo1, campo2)
select campo1, campo2from tabla1

y mi pregunta es donde queda mi campo3 de la tabla2

[ContraVeneno]

mmmmm, si los quieres pasar todos de una vez desde delphi

Código Delphi [-]
with TuDataset do begin
SQL.Clear;
SQL.Add('insert into tabla2(campo1, campo2)');
SQL.Add('select campo1, campo2 from tabla1');
ExecSQL;
end; //Fin with

en este caso Campo3 quedaría vacio....

si lo que queires es ir pasando campo1 y campo2 y tambien asignar un valor a campo3, lo que tendrías que hacer es un ciclo que recorra todo tu dataset y luego asignar T1.campo1=T2.campo1 y asignarle el valor a campo3.... de uno por uno... a menos que campo 3 se pueda calcular con campo1 y campo 2.....

[el_barto]

Pues en realidad campo3 es un trigger en interbase creado como before insert, entonces el campo no quedara vacio

[dmagui]

Hola estoy intentando hacer la instruccion propuesta por Contraveneno, pero tengo un inconveniente:

Código Delphi [-]
 
procedure TForm1.Button3Click(Sender: TObject);
 begin
   with ibdataset1 do begin
     Close;
     selectsql.Clear;
     selectsql.Add('insert into cotizacion(codigo_comp, item_subcomp)');
     selectsql.Add('select codigo_comp, item_subcomp from prod_comp where codigo_prod ='
       + Quotedstr(DBlookupcombobox4.Field.Value)+'and item_subprod ='
       + Quotedstr(Dblookupcombobox5.field.Value));
     execsql;
     open;
   end;
 end;

y no me esta guardando nada en la base de datos, debo agregarle algo mas??, gracias por la ayuda

[ContraVeneno]

Hay una ligera diferencia entre tu ejemplo y el mio.

Código Delphi [-]
selectsql.Add('insert ...
//Notas la diferencia?
SQL.Add('insert .....

Además de eso, la instrucción Open no debería estar despues de un ExecSQL, de hecho, Open se utiliza solo cuando son consultas (select) y ExecSQL se utiliza cuando se van a realizar cambios (Update, insert, delete, etc) Pero no debes usar las dos juntas. Y creo que falta un espacio antes del and

[el_barto]

Código Delphi [-]
 

procedure TForm1.Button1Click(Sender: TObject);
begin
with ibdataset1 do begin
  open;
    while not EOF do begin
      IBdataset2.Append;
      Dbedit1.Text:=ibdataset1.fieldbyname('campo1').asstring;
      DBEdit2.Text:=ibdataset1.fieldbyname('campo2').asstring;
      DbEdit3.Text:=Ibdataset1.fieldbyname('campo3').asstring;
      next;
    end;
end;
ibdataset2.ApplyUpdates;
ibtransaction1.Commit;
end;

Asi tambien se puede hacer, pero es mas funcional como dice contraveneno