Zahl suchen wie oft sie vorkommt ?

[Jürgen Thomas]

Zitat:

Zitat von Vader

hab das so probiert aber es kommt der fehler " das feld datum wurde nicht gefunden "

Delphi-Quellcode:

form1.Query1.SQL.Text := 'SELECT COUNT(*) FROM lotto WHERE (Z1 = 13) OR (Z2 = 13) OR (Z3 = 13)OR (Z4 = 13)OR (Z5 = 13)OR (Z6 = 13)';

ich hab nämlich noch ein feld mit dem ziehungsdatum !

Zitat:

Zitat von mschaefer

Wie soll Dein Datum angezeigt werden (wo auch immer), wenn kein Feld-Datum in der SQL ist?

Die Query liefert mit diesem SQL-Text nur ein Feld zurück, nämlich COUNT(*), das auch benannt werden kann:

SQL-Code:

SELECT COUNT(*) AS Anzahl FROM lotto WHERE (Z1 = 13) OR (Z2 = 13) OR (Z3 = 13)OR (Z4 = 13)OR (Z5 = 13)OR (Z6 = 13)

Außerdem ist mir (und offensichtlich auch Martin) völlig unklar, an welcher Stelle und zu welchem Zweck Du eine Anzahl aus vielen Datensätzen mit vielen Feldinhalten 'Datum' in der Anzeige verbinden willst. Jürgen

[hoika]

Hallo,

setze mal nen breakpoint,
dann wirst du sehen,
dass der Fehler gar nicht dort kommt.


Heiko

[Vader]

ich will ja kein datum anzeigen wenn ich die häufigkeit der zahl 13 suche ,der fehler kommt wenn ich den code ausführe, ich weiß auch nicht warum, weil ich habe nur die 6 felder, z1 bis z6 angegeben beim sqlcode ?
mfg vader

[Vader]

hallo,

es funktioniert, es kommt zwar die fehlermeldung das "feld datum wurde nicht gefunden", aber dann wird das feld count
mit der häufigkeit der zahl 13 angezeigt !!
mfg vader

[mkinzler]

Welches datum soll er auch anzeigen. Die berechnete Anzahl bezieht sich auch auf verschiedene Datumswerte.
Ist irgendeien Anzeige Komponente mit dem Datumsfeld verknüpft?

[hoika]

Hallo Vader,

sicher, dass der Fehler genau dort ?
Breakpoint auf form1.Query1.Open (F5),
dann laufen lassen, mit F8 über Open drüberweg
und mit F7 weiter.

Wo ist denn der Code, wo du das in das Label (?) einträgst ?


Heiko

[Vader]

hallo hoika,

mache das später mit den debugger,

möchte das mit einen editfeld machen weil ich will ja verschiedene zahlen abrufen wie oft sie gekommen sind,hab das so probiert aber geht nicht

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Query1.Close;
  form1.Query1.SQL.Text := 'SELECT COUNT(*) AS Anzahl FROM lotto WHERE  (Z1 = edit1.text) OR (Z2 = edit1.text) OR (Z3 = edit1.text)OR (Z4 = edit1.text)OR (Z5 = edit1.text)OR (Z6 = edit1.text)';
  form1.Query1.Open
end;

mfg vader

[mkinzler]

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Query1.Close;
  form1.Query1.SQL.Text := 'SELECT COUNT(*) AS Anzahl FROM lotto WHERE  (Z1 = :Zahl) OR (Z2 = :zahl) OR ...
  Form.Query1.ParamByName('zahl').Value := edit1.Text;
  form1.Query1.Open;
end;

[Vader]

hallo mkinzler

es kommt der fehler: " keine übereinstimmung der typen im ausdruck " ???

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Query1.Close;
  form1.Query1.SQL.Text := 'SELECT COUNT(*) AS Anzahl FROM lotto WHERE  (Z1 = :zahl) OR (Z2 = :zahl) OR (Z3 = :zahl)OR (Z4 = :zahl)OR (Z5 = :zahl)OR (Z6 = :zahl)';
  Form1.Query1.ParamByName('zahl').Value := edit1.Text;
  form1.Query1.Open
end;

mfg vader

[mkinzler]

Setze den Typ des Parameters auf ptInteger und weise am besten mit .asString statt .Value zu.