Delete SQL

[thiagojonas]

Zitat von DeddyH:

Delphi-Quellcode:

procedure TForm4.delete_btnClick(Sender: TObject);
var
    i: integer;
begin
  //ADOQuery1.Open; 
  ADOQuery1.SQL.Text := 'delete from `lehrer` where `lehrer` = :lehrer'; 
  for i := lehrer_list.Items.Count - 1 downto 0 do
    if lehrer_list.Selected[i] then
      begin
        ADOQuery1.Parameters.ParamByName('lehrer').AsString := lehrer_list.Items[i];
        ADOQuery1.ExecSQL;
        lehrer_list.Items.Delete(i);
      end;
end;

Ungetestet.

Also bei der funktion, habe ich statt Asstring , name und einmal displayname eingefügt. bei name wurde der wert in der datenbank nur um einen nach oben geschoben.
bei displayname wurde der makierte wert in der dbgrid gelöscht.
hm...