Hallo, die unten angeführte Abfrage benutze ich um herauszufinden ob der vorhergehende Spieltag komplett ist. Habe ich aber nun 10 Spieltage eingegeben und lösche ich dann z.B. den zweiten Spieltag so wird das mit meiner Abfrage nicht gefunden. Ich möchte nun das bei Eingabe einer Spielpaarung, die gesamte Tabelle vom ersten bis zum letzten eingegeben Spieltag überprüft wird. Ich muß das ganze wohl in eine übergeordnete Schleife packen. Probiere das schon seit einigen Stunden ohne Erfolg. Bekomme Endlosschleifen, Abstürze.
Falls jemand versteht was ich will, dann bitte ich um Hilfe. Danke Gruß ph.
Ich versuche das mit Delphi 5, Paradox 7.
<br>NeuSpTag := StrToInt(EditSpieltag.Text);
<br>NeuSpTag := NeuSpTag - 1;
<br>AltSpTag := NeuSpTag;
<br>SpKomplett.SQL.Clear;
<br>SpKomplett.SQL.Add('SELECT Mannklasse, Spieltag FROM Sin_Ergeb.db');
<br>SpKomplett.SQL.Add('WHERE Mannklasse =:KomKlasse');
<br>SpKomplett.ParamByName('KomKlasse').AsString := ComboBox1.Text;
<br>SpKomplett.SQL.Add('AND Spieltag =:LetSpTag');
<br>SpKomplett.ParamByName('LetSpTag').AsInteger := AltSpTag;
<br>SpKomplett.Open;
<br>AltAnzahlSpiele := SPKomplett.RecordCount;
<br>if (AltAnzahlSpiele < MaxPaarungen)
<br>and (AltAnzahlSpiele > 0) then
<br>begin
<br>MessageDlg('Der letzte Spieltag ist noch nicht komplett !!!',
<br>mtInformation, [mbRetry], 0);
<br>Exit;
<br>end;
Falls jemand versteht was ich will, dann bitte ich um Hilfe. Danke Gruß ph.
Ich versuche das mit Delphi 5, Paradox 7.
<br>NeuSpTag := StrToInt(EditSpieltag.Text);
<br>NeuSpTag := NeuSpTag - 1;
<br>AltSpTag := NeuSpTag;
<br>SpKomplett.SQL.Clear;
<br>SpKomplett.SQL.Add('SELECT Mannklasse, Spieltag FROM Sin_Ergeb.db');
<br>SpKomplett.SQL.Add('WHERE Mannklasse =:KomKlasse');
<br>SpKomplett.ParamByName('KomKlasse').AsString := ComboBox1.Text;
<br>SpKomplett.SQL.Add('AND Spieltag =:LetSpTag');
<br>SpKomplett.ParamByName('LetSpTag').AsInteger := AltSpTag;
<br>SpKomplett.Open;
<br>AltAnzahlSpiele := SPKomplett.RecordCount;
<br>if (AltAnzahlSpiele < MaxPaarungen)
<br>and (AltAnzahlSpiele > 0) then
<br>begin
<br>MessageDlg('Der letzte Spieltag ist noch nicht komplett !!!',
<br>mtInformation, [mbRetry], 0);
<br>Exit;
<br>end;
Comment