Datenbank Abfrage Problem

[Jack23]

Wieso funktioniert diese Abfrage nicht?

Delphi-Quellcode:

ADOQuery1.Sql.Add('SELECT TOP '10' * FROM abc ORDER BY RAND()');

[DeddyH]

Weil da zuviel Hochkommata drin sind.

Delphi-Quellcode:

ADOQuery1.Sql.Add('SELECT TOP 10 * FROM abc ORDER BY RAND()');

[Jack23]

Oh ne sorry das ist schon klar. Habe ich falsch kopiert. Er gibt immer die Meldung "Undefinierte Funktion "RAND" zurück

[mkinzler]

Gibt es die SP RAND?

[DeddyH]

Gibt es SPs bei Access? Die Frage ist ernst gemeint, ich habe von Access keine Ahnung (und meide es wie die Pest ;)).

[Jack23]

SP?

[DeddyH]

Stored Procedure

[Jack23]

Gibt es denn eine andere Möglichkeit zufällige Datensätze abzufragen?

[marabu]

Hallo,

Zitat:

Zitat von Jack23

Wieso funktioniert diese Abfrage nicht?

Delphi-Quellcode:

ADOQuery1.Sql.Add('SELECT TOP '10' * FROM abc ORDER BY RAND()');

Abgesehen von dem bereits korrigierten String-Literal: Rand() ist hier keine Stored Procedure, sondern eine VBA-Funktion. Die wird hier aber nur einmal ausgewertet, stellt also eine Konstante dar. Damit sie für jeden Satz einen anderen Wert liefert, muss ein Bezug zu einem Feld der Tabelle hergestellt werden. Den Seed-Value muss man dann natürlich auch über VBA setzen.

Grüße vom marabu

[Jack23]

Sorry!

Ich weiß leider nicht was du mir damit sagen willst.

[marabu]

Hast du dir das SQL-Statement selbst ausgedacht oder ist das ein Beutestück? Der Ansatz über Rand() zufällige Datensätze auszulesen funktioniert in Access VBA. Damit es dann wirklich funktioniert muss das Statement aber noch etwas abgeändert werden - genau das ist der Inhalt meines vorigen Beitrags.

Ich kenne MS Access nicht so gut, aber ich fürchte du musst deine Selektion client-seitig ausführen, wenn du keine Erweiterungs-Bibliothek mit einem Random-Generator schreiben willst.

Freundliche Grüße

[mkinzler]

Jack ist sehr gut im Kopieren von Code. Mit dem Verständnis klappt es leider nicht ganz so gut.

[Jack23]

Die SQL Zeile habe ich mir selbst ausgedacht. Von SQL verstehe ich nämlich ein wenig.

Meintest du ich soll RAND() einfach nur klein schreiben?

[Jack23]

Ich habe jetzt eine Lösung ausgetüftelt. Ganz alleine! :-D

Das ist der Code.
Vielleicht Interessiert es ja noch mal jemanden.

Delphi-Quellcode:

ADOQuery1.Sql.Add('SELECT * FROM abc WHERE ID=Int(((SELECT Max(ID) FROM abc)-(SELECT Min(ID) FROM abc)+ 1) * Rnd +(SELECT Min(ID) FROM abc))');

[Svenkan]

Auf Grund des vorherigen Posts mach ich jetzt mal das, was meine Lateinlehrerin auch gerne macht: erklär mir doch mal den Code-Aufbau!