DeleteSQL

[Luckner]

Hallo,
habe ein Problem mit der u.g. Routine einige Datensätze in einer Tabelle zu löschen. Die Tabell gibts es, die Felde ebenfalls und die Datensätze auch. Bekommen eine Fehlermeldung "IBDatasetArtikelStanzen: Operation bei leeren Datenmenge nicht ausführbar"

Delphi-Quellcode:

DataArtikelStanzen.IBDatabaseArtikelStanzen.Close;
 DataArtikelStanzen.IBDataSetArtikelStanzen.DeleteSQL.Clear;
 DataArtikelStanzen.IBDataSetArtikelStanzen.DeleteSQL.Text := 'delete from ARTIKELSTANZEN where ARTIKEL_ID = ' +  QuotedStr(IntToStr(selectArtikel));
 DataArtikelStanzen.IBDataSetArtikelStanzen.Open;
 DataArtikelStanzen.IBDataSetArtikelStanzen.Delete;

Was sehe ich hier nicht?
Danke.

[Bernhard Geyer]

Ein .Open liefert eine Ergebnismenge zurück. Wie soll es eine Ergebnismenge bei einem "DELETE ..." geben?

Dafür gibts die Exec(SQL)-Methode wenn man SQL-Statements ohne Ergebnismenge ausführen will.

[Luckner]

Delphi-Quellcode:

 DataArtikelStanzen.IBDatabaseArtikelStanzen.Close;
 DataArtikelStanzen.IBDataSetArtikelStanzen.DeleteSQL.Clear;
 DataArtikelStanzen.IBDataSetArtikelStanzen.DeleteSQL.Text := 'delete from ARTIKELSTANZEN where ARTIKEL_ID = ' +  QuotedStr(IntToStr(selectArtikel));
 DataArtikelStanzen.IBDataSetArtikelStanzen.ExecSQL;

So bekommen ich die Meldung "Verwenden Sie Open für eine select-Anweisung"

[blawen]

Zitat von Luckner:

'delete from

Fehlt da nicht was?
delete * from...

[Luckner]

* wird bei delete nicht verwendet. Es wird der gesamter Datensatz gelöscht.

[mkinzler]

Das Statement unter DeleteSQL wird aufgerufen, wenn man ein <DataSet>.Delete durchführt.
Lass Dir dies am Besten in der IDE erstellen, dann wird diese parametrisiert angelegt.

[x000x]

Das Statement denke ich passt schon so... Ich kenne die Komponente nicht, gehe aber davon aus, dass wenn es ein .DeleteSQL gibt, dass es dafür dann auch einen gesonderten Aufruf gibt. Ein .ExecSQL bezieht sich vermutlich auf die Eigenschaft .SQL und nicht auf .DeleteSQL

[BadenPower]

Zitat von Luckner:

So bekommen ich die Meldung "Verwenden Sie Open für eine select-Anweisung"

Und was steht in der .SelectSQL?

Zitat von Luckner:

Fehlermeldung "IBDatasetArtikelStanzen: Operation bei leeren Datenmenge nicht ausführbar"

Du bekommst scheinbar durch das .Open eine leere Datenmenge zurückgeliefert.

[FBrust]

Hallo,

Zitat:

DataArtikelStanzen.IBDataSetArtikelStanzen.DeleteS QL.Text := 'delete from ARTIKELSTANZEN where ARTIKEL_ID = ' + QuotedStr(IntToStr(selectArtikel));

ergäbe als Beispiel

delete from ARTIKELSTANZEN where ARTIKEL_ID = '7'


Ist das Feld ARTIKEL_ID ein String-Feld (z. B. varchar)?

Falls nicht, wäre das QuotedStr überflüssig.

Gruß
Frank

[mkinzler]

Zitat von x000x:

Das Statement denke ich passt schon so...

Zitat:

Nein es stimmt nicht.
Ich kenne die Komponente nicht, gehe aber davon aus, dass wenn es ein .DeleteSQL gibt, dass es dafür dann auch einen gesonderten Aufruf gibt.

Ja <DataSet>.Delete

Zitat:

Ein .ExecSQL bezieht sich vermutlich auf die Eigenschaft .SQL und nicht auf .DeleteSQL

Ja. Wenn man dort ein DML Statement hinterlegt.
Wenn man man mit DataSets arbeitet, führt

.Open das SelectSQL
.Delete das DeleteSQL
usw. aus.

Die Statement müssen entsprechend parametrisiert sein.