wie kann man einen zufälligen datensatz auswählen?

[PhöniX]

ich benutze eine tabelle und paradox 7...

[Sharky]

TTable, TQuery TADOQuery usw. sind alles nachfahren von TDateSet und sollten darum alle die Funktion .RecordCount haben.

Wobei die Methode von GeorgeWNewbie natürlich die beste bei einem Query ist.

Es müsste aber so aussehen:

 SELECT count (*) AS reccount FROM tabelle

[Robert_G]

TTable habe ich noch nie benutzt...
Das ganze müsste aber auch mit einer BDE-Query funktionieren.
In RecCount (welch' Überraschung) steht dann die Anzahle der Einträge.
( natürlich "'FROM Tabelle';" durch deinen Tabellennamen ersetzen. )

[PhöniX]

musses dann so aussehen??:

Delphi-Quellcode:

var
maxi: integer;
zufallszahl: integer;
[...]
randomize;
maxi := SELECT count (*) AS reccount FROM tabelle;
zufallszahl := random(maxi);
select * from tabelle limit ' + zufallszahl + ',1';

[Robert_G]

Wie gesagt, ich habe keine Ahnung von TTable, aber ich denke es müsste so aussehen:

Delphi-Quellcode:

...
  Query.SQL.Text := 
    'SELECT COUNT(*) RecCount' + #10 + 
    'FROM   Tabelle'; 
  Query.Open; 
  RecCount := Query.FieldValues['RecCount'];
  Randomize;
  ZufallsZahl := Random(RecCount);
  Table.SQL.Text := 
    'SELECT *' + #10 + 
    'FROM   Tabelle' + #10 +
    'LIMIT  ' + ZufallsZahl + ', 1'; 
...

[PhöniX]

ne das geht nicht..

[PhöniX]

so...hab was gefunden:
Anzahl := Table1.RecordCount; ganz simpel

[PhöniX]

Delphi-Quellcode:

 var 
  maxiEng: Integer; 
  zufallszahl: Integer; 
 [...] 
 begin 
  maxiEng := FormVocsEng.TableEng.RecordCount; 
  zufallszahl := random(maxiEng); 
  'select * from FormVocsEng.TableEng limit' + IntToStr(zufallszahl) + ',1'; //<- Fehler Hier
 end; 
 [...]

Hier gibts noch einen Fehler:
Anweisung erforderlich, aber Ausdruck vom Typ 'String' gefunden.

Wenn ich die ' weglasse weiß er nicht was select ist:
Undefinierter Bezeichner: 'select'

[edit]Hab herausgefunden, dass Delphi5 Prof. anscheinen kein select kennt..muss man da was downloaden?[/edit]

Kann mir da jemand helfen?

[Robert_G]

Du kannst ihm nicht einfach ein SELECT-Statement geben.
Delphi weiß doch gar nicht, was es damit machen soll.
Wenn du dir meinen Code angeschaut hast, müsste dir das aufgefallen sein:

Delphi-Quellcode:

  Table.SQL.Text :=
    'SELECT *' + #10 +
    'FROM   Tabelle' + #10 +
    'LIMIT  ' + IntToStr(ZufallsZahl) + ', 1';

Damit gibst du der Table1 (Typ TTable) ein SELECT-Statement. Ich bin mir aber nicht sicher, wie man es bei TTable ausführt ( ). Höchstwahrscheinlich mit Table1.Open oder Table1.Refresh.

[PhöniX]

was ist mit TQuery??

Delphi-Quellcode:

Query.Active:=false;
Query.Sql.Clear;
Query.Sql.Add('SELECT Deutsch FROM FormVocsEng.TableEng WHERE ?? ');//<---HIER!!
Query.Active:=true;

Was muss an der markierten Stelle hinter WHERE eingefügt werden wenn man wissen will WO die Datensatznummer ist, die zufällig gewählt wurde?