Problema al grabar con UNION 2 TABLAS

[ecfisa]

Hola pmtzg.

segun yo es por que estoy tratando de insertar una dato o un campo que ya existe en mi tabla

Estas bién orientado: Attempt to store duplicate value (visible to active transactions) in unique index.

pero probe pero no es por ahi

Sin embargo, al igual que newtron, estoy totalmente convencido de que sí es por ahí...



Hace una semana te sugerí lo mismo con tablas Paradox: mensaje #2, en la línea:

For i := 1 to ViejaTablaParadox.Fields.Count -1 do // i=1 para respetar el campo_ID

Y en otro hilo posterior lo mismo hace oscarac: mensaje #2, en la línea:

for I := 1 to query2.fields.Count - 1 do

No es muy eficiente por que realiza una asignación innecesaria, pero como sospecho que la ubicación de 'NUM_REG' puede no ser la primera...

Código Delphi [-]
var
  i: Integer;
  NumReg: Integer;
begin
  Query1.Open;
  IBTable1.Open;
  NumReg:= 1;
  while not Query1.Eof do
  begin
    IBTable1.Append;
    for i:= 0 to Query1.FieldCount -1 do
      IBTable1.Fields[i].Value:= Query1.Fields[i].Value;
    IBTable1.FieldByName('NUM_REG').AsInteger:= NumReg;
    IBTable1.Post;
    Query1.Next;
    Inc(NumReg);
  end;
  IBTable1.Close;
  Query1.Close;
end;

El código funciona. (probado)

solo quisiera saber si ya le meti un tye except, que puedo hacer para que no se pare mi proceso salte este registro o error y siga insertando mas registros

Un consejo: No utilices try/except para enmascarar excepciones, es muy mala práctica.

Saludos.