hola amigos
deseo consultar con ustedes el siguiente problema que tengo
estoy uniendo 2 bases de datos por medio de un query y union
creo mis tablas y creo los index y clave primaria
para pasarlo a una tabla de Firebird 2.1
si lo hago asi como les cuento en la parte del IBtable1.post
me marca un error por que se llegan a duplicar el registro
pero le meti 2 TRY este es el codigo:
Código Delphi
[-]nr:=nr+1 while not Query1.Eof do
begin
st3.Caption :='registro no.: '+inttostr(Query1.RecNo)+' -'+inttostr(Query1.RecordCount)+ modul;
IBTable1.Append;
for I := 0 to query1.Fields.Count - 1 do
begin
IBTable1.FieldByName('NUM_REG').AsInteger := nr;
IBTable1.Fields[i].Value := query1.Fields[i].Value;
try
IBTable1.Post;
except
end;
try
Query1.Next;
Gg1.Progress:= Query1.RecNo;
nr := nr+1;
finally
end;
end;
pero aun así me marca errores de duplicidad como PRIMARY KEY
etc
si al crear mis tablas no creo index y key primary no tengo obiamente
problemas de grabar al transferir los registros
alguien me podria orientar como poder manejar este error y que siga
grabando mis demas registros
gracias por su apoyo