Query1.Delete greift nicht komplett [gelöst]

Luncustaf · Beiträge: 324 Win 2k D7 Ent.

hi ich hab hiern e procedure mit der will ich verschiedene datensätze löschen.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TReadWriteDB.DeleteAll(Name, OldestStartDate: string);
begin
  alu.openq.active := false;
  alu.openq.sql.clear;
  alu.openq.sql.add('DELETE * FROM OPCLD WHERE CAL_ID = "'+UpperCase(Name)+'" AND DATESPEC > "'+OldestStartDate+'"');
  alu.openq.Open;
  alu.openq.first;
  while not alu.openq.eof do
  begin
    alu.openq.execSql;
    alu.openq.next;
  end;
end;

wenn ich zu dem alu.openq.open komme dann bringt er mir die fehlermledung

markieren

Quelltext

1:	CommandText gibt keine ergebnismenge zurück

nun ist die frage ob er an der stelle explizit das execsql haben will oder kann ich das sqlstatement nicht mit dem delete befehl füllen und die tabelle zeilen weise durchgehen und wenn die bedingung zutrifft löschen?

gr€€tz

Luncustaf · Beiträge: 324 Win 2k D7 Ent.

sers,

hab das nu andsers gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TReadWriteDB.DeleteAll(Name, OldestStartDate: string);
begin
  alu.openq.active := false;
  alu.openq.sql.clear;
  alu.openq.sql.add('SELECT * FROM OPCLD WHERE CAL_ID = "'+UpperCase(Name)+'" AND DATESPEC > "'+OldestStartDate+'"');
  alu.openq.active := true;
  alu.openq.first;
  while not alu.openq.eof do
  begin
    alu.openq.Delete;
    alu.openq.next;
  end;
end;

das problem jetzt ist das er mir nicht alles löscht in OldestStartDate steht zb der Wert -> 20021122 -> soll er alles löschen was größer ist als das.

aberw erte wie 20021126 bleiben zb stehen wobei werte wie 20021127 gelöscht werden ist schon komisch das.

gr€€tz

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

hallo,
du brauchst kein alu.upenq.next mehr ausüfhren, wenn du alu.openq.delete gemacht hast. Das bedeutet, das delete ist ein quasi next .

Viel Spaß
Ken

hansa · Beiträge: 3079 Erhaltene Danke: 9

falls jeder zweite Datensatz stehen bleibt, liegt es an dem next.

_________________
Gruß
Hansa

Luncustaf · Beiträge: 324 Win 2k D7 Ent.

cool wida was gelernt

danke das wars

gr€€tz

hansa · Beiträge: 3079 Erhaltene Danke: 9

Problem gelöst, Ursache weiterhin unbekannt ? :lol:

Etwas genauer muß mans wohl doch erklären: nach dem Löschen muß der Datei-Zeiger ja irgendwo stehen. Standardmäßig steht er dann auf dem nächsten Datensatz (halt bis EOF). Das next geht dann eben nicht zum nächsten, sondern zum übernächsten. Somit wird nur jeder zweite Satz gelöscht.

_________________
Gruß
Hansa

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme