Hab jetzt mal den Code verändert, und der Datenbank als Test ein Integer Feld spendiert.
Hat den Namen Integ, hab dann Zahlen in die Felder eingetragen 1,2,3,4,5,6,7,8,9,10.
Der Code schaut nun so aus:
Delphi-Quellcode:
q_Delete.SQL.Clear;
q_Delete.SQL.Add('DELETE FROM "t:eDienstreisebuch\mainDB.dbf" WHERE Integ=:Id');
q_Delete.ParamByName('Id').AsInteger := querysort.FieldByName('Integ').AsInteger;
q_Delete.ExecSQL; // Wichtig, hier kein Open
querySort.Refresh; // Anzeige aktualisieren.
Nun bricht das Programm nicht ab, wenn man auf den Button klickt, der Code läuft auch durch - denn am Ende wird der
Query kurz refreshed, aber leider wird gar nichts gelöscht... hm.