Delete SQL

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

[thiagojonas]

Zitat von Die Muhkuh:

Jetzt überleg mal ganz langsam, was dieser Code macht, dann siehst Du den Fehler sofort

[thiagojonas]

Zitat:

Ungetestet.

TParameter enthält keine Parameter namens AsString.

[Die Muhkuh]

Anstatt die Fehlermeldungen hier rein zu posten und immer gleich auf unsere Fragen zu antworten mit Dingen, die der Code machen soll, aber nicht macht, wäre besser mal Dein Kopf einzuschalten und Grundlagen zu erlernen!

[thiagojonas]

Okay

[DeddyH]

TParameter -> F1 -> Value
Ich mache normalerweise nix mit ADO

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

[DeddyH]

Ich hab doch eben geschrieben, nimm mal Value statt AsString.

[thiagojonas]

Ja, sorry das hatte ich übersehen Danke Klappt wunderbar. Danke für die super nachhilfestunde