Buenas tardes a todos.
Estoy encallado en un tema, a ver si alguien pe puede desencallar.
Tengo el siguientre procedimiento que me importa a una tabla temporal los registros de un fichero txt. Hasta aquí correcto.
Luego con una consulta busco los registros que no estan en la tabla principal para añadirlos a la misma, la consulta me devuelve los valores correctos.
Lo que necesito ahora es hacer la adición de estos registros a la tabla principal, aquí es donde me encallo, no se como hacerlo
Código Delphi
[-]
procedure TF_Clubs.Importa1Click(Sender: TObject);
var
F: TIBInputDelimitedFile;
begin
F_Confirmacio := TF_Confirmacio.Create(self);
F_Confirmacio.Label1.Caption := 'Importem arxiu';
try
if F_Confirmacio.ShowModal = mrok then
begin
with BorraTemp do
begin
Close;
UnPrepare;
Sql.Text := 'DELETE FROM RE0004T'; Prepare;
Open;
end;
F_ModulDades.Clubs_Temp.Close;
F_ModulDades.Clubs_Temp.Open;
F_ModulDades.Clubs_Temp.Append; IBSQLImporta.SQL.Text := 'Insert into RE0004T values(:CODI_CLUB, :CLUB)';
F := TIBInputDelimitedFile.Create;
try
F.ColDelimiter := ';';
if OpenDialog1.Execute then
begin
F.Filename := OpenDialog1.FileName;
end;
IBSQLImporta.BatchInput(F);
finally
F.Free;
end;
SQLActualitza.Close; SQLActualitza.Open;
F_ModulDades.Clubs.Close;
F_ModulDades.Clubs.Open;
F_ModulDades.Clubs.Append; Update?? end;
finally
F_Confirmacio.Free;
end;
ShowMessage('Fitxer Actualitzat');
end;
Como siempre Delphi 6 (migrando a XE2) y FB 1.5
Saludos