Buena a todos, ya he conseguido hacer lo que queria, pongo el codigo a continuación.
Código Delphi
[-]
procedure TF_Importa.BitBtn1Click(Sender: TObject);
var
F:TIBInputDelimitedFile;
i:integer;
begin
F_Confirmacio := TF_Confirmacio.Create(self);
F_Confirmacio.Label1.Caption:= 'Importem arxiu';
try
If F_Confirmacio.ShowModal = mrok then
begin
F_ModulDades.Act_Girona_Hist.Close;
F_ModulDades.Act_Girona_Hist.Open;
F_ModulDades.Act_Girona_Hist.Last;
i:=F_ModulDades.Act_Girona_HistID.Value+1;
F_ModulDades.Act_Girona_Hist.Append;
F_ModulDades.Act_Girona_HistID.Value:=i;
F_Importa.IBSQLImporta.SQL.Text := 'Insert into RE0006AGT values(:ID, :ID_REBUT, :ID_ARBITRE, :NOM, ATA, :TITOL, :CODI_CLUB, :CANON, :PASSADA)';
F := TIBInputDelimitedFile.Create;
try
F.ColDelimiter:=';';
If OpenDialog1.Execute then
begin
F.Filename:=OpenDialog1.FileName;
end;
F_Importa.IBSQLImporta.BatchInput(F);
finally
F.Free;
end;
Posa_S.ExecSQL;
end;
finally
F_Confirmacio.Free;
end;
Showmessage('Procés finalitzat');
end;
Solo tengo una duda, como controlo si los registros ya existen antes de insertarlos a la tabla?. Ahora no me controla nada y se me duplican los datos, lo cual no me interesa.
De nuevo gracias a todos.
Josep