Zahl suchen wie oft sie vorkommt ?

[Vader]

hallo,

habe eine datenbank mit 6 feldern ,wo ich die lottozahlen speichere, ist es möglich in der datenbank zu suchen wie oft zb. die nummer 13 gekommen ist ?
mfg vader

[Muetze1]

Ja, ist es.

[mkinzler]

SQl kennt Aggrgatfunktioen wie z.B. SUM()

[pacman1986]

willst du über sql darauf zugreifen ?

[mkinzler]

Zitat:

willst du über sql darauf zugreifen ?

Zitat:

Datenbank: Paradox, Version: 7, Zugriff über: TQuery

[DGL-luke]

SQL-Code:

SELECT Count(feld_mit_zahlen) FROM tabelle_mit_lotto WHERE feld_mit_zahlen = 13

wenn du alle sechs felder überprüfen willst, musst du entweder count(feld1)+count(feld2)+... verwenden oder die feinheiten von SQL, die ich noch nicht kenne.

[Jürgen Thomas]

Es müsste auch so gehen:

SQL-Code:

SELECT COUNT(*) FROM tabelle_mit_lotto WHERE (Feld_1 = 13) OR (Feld_2 = 13) OR ... (Feld_6 = 13)

Alternativ:

Zitat:

Zitat von DGL-luke

wenn du alle sechs felder überprüfen willst, musst du entweder count(feld1)+count(feld2)+... verwenden oder die feinheiten von SQL, die ich noch nicht kenne.

Wäre es wegen der Notwendigkeit, alle sechs Felder zu überprüfen, nicht einfacher, für jede Zahl ein eigenes Datenfeld zu nehmen: Feld__1, Feld__2 ... Feld_49 und als Feldinhalte 'gezogen', 'Zusatzzahl', 'kein Treffer'vorzusehen? (Die möglichen Feldinhalte sollten natürlich verkürzt werden als short oder char.)

Dann könnte man auswerten:

SQL-Code:

SELECT COUNT(*) FROM tabelle_mit_lotto WHERE Feld_13 = 'gezogen'

Übrigens: Lottozahlen haben kein Gedächtnis. Auch wenn eine Zahl extrem überdurchschnittlich oft gezogen wurde, ist die Trefferwahrscheinlichkeit am nächsten Sonnabend unverändert 6 von 49.

Jürgen

Nachtrag:

Zitat:

Zitat von shmia

Da nimmst du besser 2 Tabellen:

Code:

***Tabelle Ziehung***
***Tabelle Zahlen***

SQL-Code:

SELECT Zahl, Count(*) AS Anzahl FROM Zahlen
GROUP BY Zahl
ORDER BY Zahl

Au ja, diese Idee klingt noch besser als meine Alternative.

[shmia]

Zitat:

Zitat von Vader

hallo,

habe eine datenbank mit 6 feldern ,wo ich die lottozahlen speichere, ist es möglich in der datenbank zu suchen wie oft zb. die nummer 13 gekommen ist ?
mfg vader

Da nimmst du besser 2 Tabellen: :warn:

Code:

***Tabelle Ziehung***
Feldname       Datentyp
=======================
Datum          DATE       (Primärschlüssel)
Bermerkung     VARCHAR(200)

***Tabelle Zahlen***
Feldname       Datentyp
=======================
Datum          DATE       (Primärschlüssel)
Zahlpos        INT        (Primärschlüssel)  1-6 und 7 für die Zusatzzahl
Zahl           INT        =die gezogene Zahl

Dann braucht du später nur noch

SQL-Code:

SELECT Zahl, Count(*) AS Anzahl FROM Zahlen
GROUP BY Zahl
ORDER BY Zahl

und du bekommt eine Liste mit den Häufigkeiten der gezogenen Zahlen. :tongue:

PS:
Wenn du für den Datentyp INT einen kleineren Datentyp findest (TINYINT, SMALLINT), dann
braucht die Datenbank weniger Platz

[Vader]

hallo jürgen thomas

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

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Query1.Close;
  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)';
  form1.Query1.Open
end;

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


das mit den 2 tabellen ist mir noch unklar möchte das einmal wie du sagst probieren
mfg vader

[mschaefer]

Moin und Frage:

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

Grüße // Martin

[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.

[Vader]

hallo mkinzler

meinst du das so :

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  zahl: integer;
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').asString := '%'+Edit1.Text + '%';
  form1.Query1.Open
end;

es kommt der gleiche fehler
mfg vader

[mkinzler]

Laß die Prozent hier weg, der Parameter ist ja vom Typ Integer.

Zitat:

Delphi-Quellcode:

Form1.Query1.ParamByName('zahl').asString := '%'+Edit1.Text + '%';

[Vader]

hallo

Delphi-Quellcode:

 Form1.Query1.ParamByName('zahl').asString :=  Edit1.Text  ;

das geht nicht,kommt immer wieder der gleiche fehler
mfg vader

[mkinzler]

Delphi-Quellcode:

Form1.Query1.ParamByName('zahl').Value :=  StrToInt(Edit1.Text);

[Vader]

hallo mkinzler,
danke
mfg vader

[Vader]

hallo

hoika schreibt:

Zitat:

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 ?

wie meinst du das dann laufen lassen, muß ich nach den setzen des breakpoint's F9 drücken oder was ???

ja, er bleibt bei "form1.Query1.Open" stehen, und was kann ich daraus lesen ???
mfg vader

[Vader]

hallo hoika,

ich glaube du weißt warum der fehler kommt,was kann ich tun ?
mfg vader