Datenbankabfrage in Array speichern

[p80286]

Hallo BerlinerBaer,
willkommen in der Delphi-Praxis.
1) Wenn Du die ReInhId als String zurück gibst empfehle ich Dir eine Stringlist zu nutzen.
2)Wenn Du

Delphi-Quellcode:

 ZQuery.SQL.Text:='SELECT ReKatID, ReInhID FROM rechnungen_inhalt WHERE ReKatID='+#39+id+#39+' ORDER BY ReInhID DESC';
...
ZQuery.SQL.Text:='DELETE FROM rechnungen_inhalt WHERE ReKatID='+#39+id+#39;

ReKatID übergibst um die Daten abzufragen, dann kannst Du auch gleich ein Delete Durchführen.
3) Du solltest Dir gleich angewöhnen Parameter zu nutzen:

Delphi-Quellcode:

ZQuery.SQL.Text:='SELECT ReKatID, ReInhID FROM rechnungen_inhalt WHERE ReKatID=:rekatid ORDER BY ReInhID DESC';
ZQuery.SQL.Parameters.ParameterbyName('rekatid').asString:=id;

(ich kenne die genaue Syntax bei Zeos nicht, bitte überprüfen)

Gruß
K-H

[haentschman]

Hallöle...

Zitat:

3. Wäre eine for-each-Schreife (wie in php) möglich? Wenn ja, wie?

http://wiki.freepascal.org/for-in_loop

Ergänzung:
ZQuery.SQL.ParamByName('rekatid').asString := id; ...bei Zeos ist es auch so korrekt. (kürzer)

Nachtrag:

Delphi-Quellcode:

//ZQuery.SQL.Clear; //nicht nötig
//ZQuery.Params.Clear; //nicht nötig
ZQuery.SQL.Text:='SELECT ReKatID, ReInhID FROM rechnungen_inhalt WHERE ReKatID=:id ORDER BY ReInhID DESC';
ZQuery.SQL.ParamByName('rekatid').asString := id;
ZQuery.Open;

[BerlinerBaer]

Zitat von p80286:

Hallo BerlinerBaer,
willkommen in der Delphi-Praxis.

Hallo p80286 (K-H),

vielen Dank für die Begrüßung.

Das Problem jedoch ist folgender, dass ich nicht nur eine, sondern alle mit der selbigen ReKatID löschen möchte. Dazu war mein Beispiel oben etwas verwirrend.

So sollte es aussehen:
Tabelle 1:
ReInhID (auto_inc + Primärer Schlüssel) | ReKatID (Verweis auf eine andere Tabelle 2)
ReInhID: 1 | ReKatID: 1
ReInhID: 2 | ReKatID: 2
ReInhID: 3 | ReKatID: 1
ReInhID: 4 | ReKatID: 1
ReInhID: 5 | ReKatID: 3
ReInhID: 6 | ReKatID: 1

Tabelle 2:
ReKatID: 1
ReKatID: 2
ReKatID: 3
...fortlaufend

Die 2. Tabelle interessiert mich momentan eher weniger, da ich dort nur ein Datensatz löschen muss. Die entsprechende ReKatID hole ich mir aus einer TListView.

Zitat von p80286:

2)Wenn Du

Delphi-Quellcode:

 ZQuery.SQL.Text:='SELECT ReKatID, ReInhID FROM rechnungen_inhalt WHERE ReKatID='+#39+id+#39+' ORDER BY ReInhID DESC';
...
ZQuery.SQL.Text:='DELETE FROM rechnungen_inhalt WHERE ReKatID='+#39+id+#39;

ReKatID übergibst um die Daten abzufragen, dann kannst Du auch gleich ein Delete Durchführen.

Wenn ich während der while-Schleife, also während der Abfrage die entsprechenden ReKatIDs der Tabelle lösche, dann löscht er nur eine, wobei mir auch die entsprechende Fehlermeldung nicht gefällt.

Zitat:

Operation cannot be performed on an inactive dataset.

Press ok.....

Ich muss auf jeden Fall die ReInhID's in ein array speichern, sodass diese mittels

Code:

ZQuery.SQL.Text:='DELETE FROM rechnungen_inhalt WHERE ReInhID IN (1, 3, 4, 6)';

gelöscht werden können. Nur daran verzweifel ich irgendwie.

Zitat von p80286:

3) Du solltest Dir gleich angewöhnen Parameter zu nutzen

Ja, das wurde mir auch schon gesagt. Nur verstehe ich da nicht so ganz den Sinn. Ob ich es als Parameter oder als var verwende, ist für mich unlogisch. Liegt vielleicht daran, dass ich mir zu wenig mit Pascal und zu sehr mit PHP auskenne.

Zitat von haentschman:

//ZQuery.SQL.Clear; //nicht nötig
//ZQuery.Params.Clear; //nicht nötig

Hallo haentschman,

wieso ist das nicht nötig? Es geht doch hierbei um die Vermeidung eventueller Fehler. Ich benutze SQL.Text und Params nicht nur ein mal im kompletten Quelltext. Mir wurde erklärt, dass das immer eine Prävention zu eventuell auftretenden Fehlern ist.


Liebe Grüße
BerlinerBaer

[haentschman]

Hallöle...

Zitat:

wieso ist das nicht nötig?

ZQuery.SQL.Clear ...weil mit SQL.Text eine neue Zuweisung gemacht wird. Das SQL wird eh gelöscht...also doppelt gemoppelt. Anders sieht es ausschließlich mit SQL.Add aus. Da mußt du das zurücksetzen.
ZQuery.Params.Clear ...weil mit SQL.Text die Parameter automatisch geleert werden...also doppelt gemoppelt.

Zitat:

Ja, das wurde mir auch schon gesagt. Nur verstehe ich da nicht so ganz den Sinn.

...siehe:
https://de.wikipedia.org/wiki/SQL-Injection
http://docwiki.embarcadero.com/RADSt...agen_verwenden

Zitat:

Mir wurde erklärt, dass das immer eine Prävention zu eventuell auftretenden Fehlern ist.

...probier es doch einfach aus.

[p80286]

Zitat von BerlinerBaer:

Das Problem jedoch ist folgender, dass ich nicht nur eine, sondern alle mit der selbigen ReKatID löschen möchte.

mit  delete from tabelle1 where feld1=meinwert; werden alle Einträge aus Tabelle1 entfernt, wo der Inhalt von Feld1 Meinwert ist.
Es sei denn irgendwelche Constraints oder Trigger sind der Meinung, das darf man so nicht.

Wo genau taucht die Fehlermeldung auf?
in Deinem Sourcecode wird nirgendwo eine Löschung durchgeführt.

Zitat von BerlinerBaer:

Zitat von haentschman:

//ZQuery.SQL.Clear; //nicht nötig
//ZQuery.Params.Clear; //nicht nötig

Hallo haentschman,

wieso ist das nicht nötig? Es geht doch hierbei um die Vermeidung eventueller Fehler. Ich benutze SQL.Text und Params nicht nur ein mal im kompletten Quelltext. Mir wurde erklärt, dass das immer eine Prävention zu eventuell auftretenden Fehlern ist.

Jain, das ist notwendig, wenn Du einen bestimmten Inhalt benötigst, Du Dich aber nicht darauf verlassen kannst, daß die Variable den Wert auch wirklich hat.
In diesem Falle wird mit .SQL.Text:='blabla' genau dieses erreicht.
Dein Vorgehen ist kein schwerer Fehler aber überflüssig und bevor sich da eine schlechte Angewohnheit breit macht.
(meiner Meinung nach fällt das weit verbreitete

Delphi-Quellcode:

.SQL.Lines.Clear;
.SQL.Lines.Add('blabla');
.SQL.Lines.Add('blubblub');

in die gleiche Kategorie. Da lieber gleich

Delphi-Quellcode:

.SQL.Text:='blabla'+
     'blubblub';

Gruß
K-H

[BerlinerBaer]

Hallo p80286,

ich danke dir für deine Hilfe. Manchmal übersieht man doch das ein oder andere.

Wieso ich nicht selbst auf die Idee gekommen bin, anhand der KategorieID (ReKatID) zu löschen, frage ich mich.

Die Fehlermeldung tauchte auf, als ich den DELETE-Befehl in die Abfrage gesetzt habe.
Das Problem hat sich damit erledigt.

Liebe Grüße
BerlinerBaer