Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.588 Beiträge
Delphi 12 Athens
|
Re: Delete SQL
30. Nov 2008, 12:09
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.
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|