AdoCommand: Delete-Statement mit Parametern

[shmia]

Wenn du String-Parameter verwendet, braucht man (darf man) die Daten nicht mit QuotedStr() verpacken !
Man beachte auch das verbesserte Exception-Handling.

Delphi-Quellcode:

with DelCmd do 
begin 
  CommandText := 'DELETE FROM KundenDubletten WHERE column12 = :pWert'; 
  with Parameters do 
  begin 
    ParamValues['pWert'] := Trim(Codes.Strings[Count]); 
  end; 

  try 
    Execute; 
  except 
    on e:Exception do 
    begin
       e.Message := 'Fehler beim Löschen von Dubletten'#13#10 + CommandText + #13#10+
          e.Message;
       raise;
    end;
  end; 
end;