selection aléatoire d'un enregistrement

[kumo]

bonjour,
je suis entrain de creer une appli delphi qui va attaquer une base access.
Je voudrais savoir comment faire pour, quand je clique sur un bouton qu'il aille me chercher un enregistrement aléatoirement (random) dans la table concernée et qu'il m'affiche dans une zone de texte.
Par exemple:
j'ai une table des molécules avec les champs formule, libellé, masse molaire, image de la molécule
Je voudrais que dans mon appli delphi, quand je clique sur le bouton random par exemple, il me mette le libellé de la molécule choisie au hasard parmis tous les enregistrements dans une zone de texte..

Quelqu'un pourrait m'aider s'il vous plait?

edit: peut etre que la fonction random choisit un chiffre parmis le nombre d'enregistrement et grace a une requete sql, je dis qu'il faut prendre la ligne numéro X dans la table (X etant le resultat de la fonction random)......

[jpcheck]

salut,
tu peux effectivement voir Random, Rand, Rnd (fonctions qui évoluent selon les langages il me semble), auquel cas tu peux les appliquer si tu as une clé primaire de type numérique (ou numéroauto).

[kumo]

oui j'y es pensé aussi, mais je n'ai pas d'identifiant auto increment, sinon dans ma requete j'aurai mis select... from... where IdentifiantDeMaTable=ResultatDeMaRequeteRandom


mais je n'ai pas d'auto increment

[jpcheck]

auter méthode alors,
tu fais dans l'idée :
- requête select *
- RS.movelast
- RS.RecordCount
- Random sur ce recordcount
- activation de l'enregistrement random.

[kumo]

je comprends pas comment va être ma requete
comment je dois mettre la ligne

Code :

1
2
3
select libellé
from TableMolécule
where laLigne= Random(TableMolécule.RecordCount)

commme ça??

[Heureux-oli]

Petite précision que je n'ai pas vue la fonction Random donne un résultat compris entre 0 et 1.
Il faut obligatoirement passer par une fonction ou autre qui va renvoyer le produit de la valeur "Random" par le nombre d'enregistrement.
Ce produit devra être arrondi.

Code :

Rnd()

[Heureux-oli]

Code :

Rnd(xxx.RecordCount)

Devrait le faire.

[kumo]

oui mais si j'utilise la fonction random de delphi ça le fait
mais comment faut que je construise ma requête dans ce cas...

je comprends plus comment fonctionne ton rnd,
Rnd(xxx.Recordcount)...ça fait quoi exactement cette fonction, et le "xxx" c'est le nom de ma table c'est ça?
dans ce cas faudrait que je mette quoi dans ma requete
select libelle from Matable where ..?

[jpcheck]

salut, xxx est le nom du recordset,
tu fais

Code :

1
2
3
4
rs.MoveLast
A = Rnd(rs.RecordCount)
'puis un 
Me.record.move A

à adapter selon tes données initiales.

[kumo]

ouaaah, j'y comprends pas grand chose...
je suis debutant en faite...
le recordset c'est quoi ?
En faite, je suis sur mon appli delphi et quand je clique sur mon bouton faut qu'il execute un random puis qu'il selectionne la ligne d'enregistrement numéro=resultat du random, donc la avec ce que vous me donnez, je sais plus quoi faire et ou faire... je sais plus a quoi doit ressembler ma requete...

[random]

Code :

1
2
3
4
 
SELECT TOP 1 champ1
FROM matable
ORDER BY Rnd([ici un champ numérique]);

[Heureux-oli]

Oui, mais la facilité de la chose, il n'a pas de champ numérique !

Pour avoir le RecordCount, il faut avant faire un rs.moveLast

Un peu de lecture sur le DAO

[random]

qu' a cela ne tienne

il ajoute

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Function hasard() As Double
Static tempo As Variant
If IsEmpty(tempo) Then
Randomize
tempo = Rnd(Time())
Else
tempo = Rnd(tempo)
End If
hasard = tempo
End Function

puis

Code :

1
2
3
4
 
SELECT TOP 1 champ1
FROM matable
ORDER BY hasard();

[jpcheck]

[mode je fais mon zeste d'humour] et ca va marcher comme par hasard ? [/mode]

par contre, tu peux nous expliciter ton order by random stp ?
En quoi consiste-t-il ?

Merci d'avance.

[random]

la clause order by [desc] unevaleur comme tu le sais a pour effet de classer un jeu d'enregistrements sur unevaleur croissante [décroissante]

d'une façon générale on choisit un champ

mais on peut très bien faire order by le résultat d'une fonction et si cette fonction renvoie des nombres au hasard le résultat du classement sera aléatoire ce qui semble être le but poursuivi

[jpcheck]

merci pour cette info

kumo, avec ca tu t'en sors ?

[kumo]

je n'arrive pas à comprendre, d'apres ce que je comprends là, la requête se fait dans access, mais moi ma requete c'est dans delphi que je dois la faire ...

[philben]

bonjour,

Sauf erreur, le code de random ne fonctionne que si on passe un argument non constant à la fonction :

Code :

1
2
3
4
5
6
7
8
9
10
11
Function hasard(vCh as Variant) As Double
Static tempo As Variant
If IsEmpty(tempo) Then
Randomize
tempo = Rnd(Time())
Else
tempo = Rnd(tempo)
End If
hasard = tempo
End Function

Code :

1
2
3
4
SELECT TOP 1 champ1
FROM matable
ORDER BY hasard([champ1])

amicalement,

Philippe

[Pierre Fauconnier]

Bonsoir

Envoyé par kumo

je n'arrive pas à comprendre, d'apres ce que je comprends là, la requête se fait dans access, mais moi ma requete c'est dans delphi que je dois la faire ...

Je n'ai pas trouvé de possibilité d'utiliser rnd dans une requête sql qui ne renvoie pas tout le temps la même valeur via Delphi.

A priori, je ne vois que la solution suivante, en delphi:
1. déterminer un nombre aléatoire I entre 1 et le nombre d'enregistrements de la requête
2. Itérer par rs.movenext dans une boucle en Delphi jusqu'à la valeur de I.

Ta demande étant spécifiquement sql, je te conseille d'aller sur le forum du langage sql pour poser ta question.

Bonne continuation