Ich habe folgende SQL-Anweisung:

markieren

Delphi-Quellcode:

    ZQuery2.SQL.Text :='DELETE FROM `bestellungen` WHERE Titel LIKE :ITitel, Anzahl LIKE :IAnzahl, Lehrer LIKE :ILehrer, VERLAG LIKE :IVerlag, Bestellnr LIKE :IBestellnr, Preis LIKE :IPreis LIMIT 1';
    ZQuery2.ParamByName('ITitel').Value :=ZQuery2.fieldbyname('Titel').AsString;
    ZQuery2.ParamByName('IAnzahl').Value :=ZQuery2.fieldbyname('Anzahl').AsInteger;
    ZQuery2.ParamByName('ILehrer').Value :=ZQuery2.fieldbyname('Lehrer').AsString;
    ZQuery2.ParamByName('IVerlag').Value :=ZQuery2.fieldbyname('Verlag').AsString;
    ZQuery2.ParamByName('IBestellnr').Value :=ZQuery2.fieldbyname('Bestellnr').AsString;
    ZQuery2.ParamByName('IPreis').Value :=ZQuery2.fieldbyname('Preis').AsFloat;
    ZQuery2.ExecSQL;

In der zweiten Zeile tritt eine exception auf. Der versucht mir doch tasächlich zu erzählen die Spalte Titel würde es nicht geben. welch ein Blödsinn!!!
Wo ist also der Fehler?

hi, versuchs mal mit:
ZQuery2.params.ParamByName('ITitel')......

Fehlermeldung bleibt die gleiche...

hallo yankee

unübersichtlich

versuche mal die anzahl nicht mit like sonder mit = auszuwerten

Du willst Werte von ZQuery2 verwenden um Das DELETE-Statement in der selben Query zu filtern????
Wie soll denn das gehen?
Du musst dir die Werte in Variablen zwischespeichern, oder für das Löschen eine neue Query erzeugen.

Ein wenig Code-Formatierung würde dem spaghetti-Klumpen im ersten Post auch nicht Schaden.
Damit hättest du nämlich gesehen, dass du per Copy'nPaste auch "LIMIT 1" mitkopiert hast. Das macht hier doch keinen Sinn, du willst doch nicht nur einen DS löschen sondern alle, die deinem Filter entsprechen.

zusammenfalten · markieren

Delphi-Quellcode:

With Query Do
Begin
  SQL.Text :=
    'DELETE FROM Bestellungen' + #10 +
    'WHERE Titel = :ITitel And' + #10 +
    ' Anzahl = :IAnzahl And' + #10 +
    ' Lehrer = :ILehrer And' + #10 +
    ' VERLAG = :IVerlag And' + #10 +
    ' Bestellnr = :IBestellnr And' + #10 +
    ' Preis = :IPreis';
  // Werte an Query Parameter übergeben...
  With Parameters Do
  Begin
    ParamByName('ITitel').AsString := IrgendeineVariable;
    ParamByName('IAnzahl').AsInteger := IrgendeineVariable;
    ParamByName('ILehrer').AsString := IrgendeineVariable;
    ParamByName('IVerlag').AsString := IrgendeineVariable;
    ParamByName('IBestellnr').AsString := IrgendeineVariable;
    ParamByName('IPreis').AsFloat := IrgendeineVariable;
  End;
  ExecSQL;
End;

p.s.:
man löscht generell nur über einen exakten Prim. Key (um menschl. Fehler zu minimieren).

versuche es mal damit...

zusammenfalten · markieren

Delphi-Quellcode:

ZQuery2.SQL.Text:='{erste Abfrage}';
ZQuery2.open;
ZQuery2.first;
var_titel:=ZQuery2.fieldbyname('Titel').AsString;
//...
//...
ZQuery2.sql.clear;

ZQuery2.SQL.Text :='DELETE FROM `bestellungen` WHERE Titel LIKE :ITitel, Anzahl LIKE :IAnzahl, Lehrer LIKE :ILehrer, VERLAG LIKE :IVerlag, Bestellnr LIKE :IBestellnr, Preis LIKE :IPreis LIMIT 1';
ZQuery2.par5ams.ParamByName('ITitel').Value :=var_titel;
//...
ZQuery2.ExecSQL;

Ich will den Datensatz, den der User im DBGrid auswählt löschen.
Muss doch eigentlich einfacher gehen? Warum geht das nicht mit ein und dem selben Query?

Hai yankee,
warum alles so kompliziert

Du hast doch sicher ein ID-Feld in deiner Tabelle?!?

Also einfach:

zusammenfalten · markieren

Delphi-Quellcode:

var
  aktive_id : Integer;
begin
  with ZQuery2 do
  begin
    aktive_id := FieldByName ('id').AsInteger;
    Close;
    SQL.Text := 'DELETE FROM bestellungen WHERE id=:id';
    ParamByName ('id').AsInteger := aktive_id;
    ExecSQL;
  end;
end;

Wobei Du jetzt noch das DBGrid neu füllen müsstest wenn ZQuery2 das DataSet für dein DBGrid ist. Aber wenn es dies ist mache doch einfach ein "ordinäres" ZQuery2.Delete.

Also ich habe meinen Code abgeändert:

zusammenfalten · markieren

Delphi-Quellcode:

var ITitel, ILehrer, IVerlag, IBestellnr:string;
    IPreis: Double;
    IAnzahl: Integer;
begin
    ZQuery2.Active :=False; //Das
    ZQuery2.Close; //und das habe ich mal wegegelassen
    ITitel :=ZQuery2.fieldbyname('Titel').AsString; //Hier ist der Fehler
    IAnzahl :=ZQuery2.fieldbyname('Anzahl').AsInteger;
    ILehrer :=ZQuery2.fieldbyname('Lehrer').AsString;
    IVerlag :=ZQuery2.fieldbyname('Verlag').AsString;
    IBestellnr :=ZQuery2.fieldbyname('Bestellnr').AsString;
    IPreis :=ZQuery2.fieldbyname('Preis').AsFloat;

    ZQuery2.SQL.Text :='DELETE FROM `bestellungen` WHERE `Titel` = :ITitel AND `Anzahl` =:IAnzahl AND `Lehrer` =:ILehrer AND `Verlag` =:IVerlag AND `Bestellnr` =:IBestellnr AND CONCAT( `Preis` ) =:IPreis LIMIT 1';
    ZQuery2.ParamByName('ITitel').Value :=ITitel;
    ZQuery2.ParamByName('IAnzahl').Value :=IAnzahl;
    ZQuery2.ParamByName('ILehrer').Value :=ILehrer;
    ZQuery2.ParamByName('IVerlag').Value :=IVerlag;
    ZQuery2.ParamByName('IBestellnr').Value :=IBestellnr;
    ZQuery2.ParamByName('IPreis').Value :=IPreis;
    ZQuery2.Open;
    ZQuery2.Active :=True;

Fehlermeldung: ZQuery2: Field 'Titel' not found
Also es hat sich nichts verändert!
Und nochwas: Die Exception tritt wieder gaanz oben auf (siehe kommentierung)
Und das gibt es noch zwei Teile. Wenn ich die weglasse, löscht er den entsprechenden Eintrag, aber es gibt eine Adress Violation...

Zitat von yankee:

Also ich habe meinen Code abgeändert:

markieren

Delphi-Quellcode:

var ITitel, ILehrer, IVerlag, IBestellnr:string;
    IPreis: Double;
    IAnzahl: Integer;
begin
    ZQuery2.Active :=False; //Das
    ZQuery2.Close; //und das habe ich mal wegegelassen
    ITitel :=ZQuery2.fieldbyname('Titel').AsString; //Hier ist der Fehler

....

Hai yankee,

Du kanst nacht dem schließen eines TDataSet nicht mehr auf die Daten zugreifen.
Das heisst: Nach deinem ZQuery2.Close kannst Du keine Daten mehr von ZQuery2 bekommen!!!