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. :-D

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

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

Zitat von Die Muhkuh

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

:glaskugel: :gruebel:

[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 :pale: :oops: :angel:

[DeddyH]

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

[thiagojonas]

Zitat:

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... :gruebel:

[DeddyH]

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

[thiagojonas]

Ja, sorry das hatte ich übersehen :oops: Danke :thumb: :thumb: :thumb: :thumb: Klappt wunderbar. Danke für die super nachhilfestunde :-D :-D