Delete SQL

[thiagojonas]

Hallo Leute, ich hätte da mal wieder eine kleine Frage.

Ich habe eine Listbox, die Werte werden aus einer Tabelle, einer Datenbank geladen.
Wenn ich jetzt einen Wert in der Listbox makiere und auf einen Button drüke, möchte ich gerne, dass dieser Wert aus dewr Tabelle der Datenbank gelöscht wird.
Mein Ansatz ist so:

TADOQuerry.Open
mit SQL Text:

SQL-Code:

select*from lehrer;
delete from lehrer where lehrer = lehrer_list;//lehrer_list ist der Name der Listbox

lehrer_list ist der Name der Listbox, hier zeigt der Debugger einen Fehler, sheint so, als würde das so nicht direkt gehe, wie soll ich da rangehen? Danke für eure Mühe im voraus.

[DeddyH]

Grundlagen

[thiagojonas]

Super Danke für den Link.

Also ich habe das dann so:

Delphi-Quellcode:

ADOQuery1.Open;
ADOQuery1.SQL.Text :=  'select * from `lehrer`; delete from `lehrer` where `lehrer` = '''+lehrer_list+''';';

Der Debugger gibt mir ein aus string und listbox inkompatible typen sind. woran liegt das?

[Die Muhkuh]

Weil Du so die ganze ListBox übergibst, Du willst aber nur das Text vom Item. Siehe dazu .Items und Itemindex.

[thiagojonas]

Das dachte ich auch. Mit Items oder Itemsindex funktioniert es aber auch nicht

[Die Muhkuh]

Wie hast du es versucht?

[thiagojonas]

Delphi-Quellcode:

procedure TForm4.delete_btnClick(Sender: TObject);
var
  i: integer;
  h: integer;
begin
ADOQuery1.Open;

  for h := lehrer_list.Items.Count - 1 downto 0 do
    if lehrer_list.Selected[h] then
  for i := lehrer_list.Items.Count - 1 downto 0 do
    if lehrer_list.Selected[i] then
      lehrer_list.Items.Delete(i);
  ADOQuery1.SQL.Text :=  'delete from `lehrer` where `lehrer` = '''+lehrer_list.Items[i]+''';';
end;

Hier kommt eine fehlermeldung. Itemindex überschreitet das maximum von -1

[mkinzler]

Was sollen deine Schleifen den bewirken?

[Die Muhkuh]

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

[thiagojonas]

ich habe die schleife für die listbox.
damit wird genau die makierte zeile in der listbox gelöscht.