AdoCommand: Delete-Statement mit Parametern

[HeikoAdams]

Hallo,
ich versuche, über folgendes SQL-Statement Daten aus einer Datenbank zu löschen

SQL-Code:

DELETE FROM KundenDubletten WHERE column12 = :pWert

Der Delphi-Code, um den Parameter zu füllen und das Statement auszuführen ist folgender:

Delphi-Quellcode:

with DelCmd do
begin
  CommandText := 'DELETE FROM KundenDubletten WHERE column12 = :pWert';

  with Parameters do
  begin
    Clear;
    CreateParameter('pWert', ftString, pdInput, MAX_PATH, QuotedStr(Codes.Strings[Count]));
    ParamValues['pWert'] := Trim(QuotedStr(Codes.Strings[Count]));
  end;

  try
    Execute;
  except
    on e:Exception do ShowMessage(e.Message);
  end;
end;

Allerdings scheint es, als ob das TAdoCommand bei Delete Anweisungen keine Parameter unterstützt, da keine Daten gelöscht werden oder mache ich einfach nur etwas falsch?

[Bernhard Geyer]

[gelöscht da durch ergänzten Posttext unnötig geworde]

[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;