Hier erst mal ein paar Tipps:
1.) bitte den Code, der die Verbindung zur Datenbank herstellt in eine eigene Methode verschieben.
Delphi-Quellcode:
procedure TForm1.ConnectToDatabase;
begin
if not AdoConnectionMetro.Connected then
begin
AdoConnectionMetro.ConnectionString := ProvString;
//'Provider=SQLOLEDB.1;Password=Eisenach09!;Persist Security Info=True;'+
// 'User ID=sa;Initial Catalog=METRO;Data Source=METROSQL\SQLEXPRESS';
AdoConnectionMetro.Connected := true;
end;
end;
Diese Methode wird einmal VOR der Schleife aufgerufen
2.) Das
SQL für die
Query wird ebenfalls
nur einmal vor der Schleife aufrufen
Delphi-Quellcode:
ADOQueryMetro.SQL.Text := 'INSERT into PRODUKTE (EAN_NR, ART_BEZ_ALTERN, '+
'PWHG, PWG, PWUG, KZ_WERB) '+
'VALUES (:sEAN_NR, :sART_BEZ_ALTERN, :sPWHG, :sPWG, :sPWUG, :sKZ_WERB)';
3.) Du fängst ja schon Fehler beim Einfügen mittels try..except ab.
Nur bringt das wenig, wenn du die Fehlermeldung mit ShowMessage() gleich anzeigst.
Stellt dir vor, es sind 100 doppelte Datensätze in der
CSV-Datei - viel Spass beim OK-klicken.
4.) die Zeile
AdoQueryMetro.Active := true;
komplett löschen. Bei einem
SQL-Insert macht dies keinen Sinn; es stört eher.