Requete SQL aleatoire

Version imprimable

05/09/2011, 14h04
draco951

Requete SQL aleatoire

Bonjour,

J'ai déjà trouvé un problème similaire au mien sur le forum, mais il est mit résolu et la réponse ne me convient pas, c'est pour cette raison que je post.

Alors mon problème est le suivant :

Je lance une requête depuis VB.net vers Access qui est la suivante :

Code:

sqltxt = "SELECT * FROM TOuv ORDER BY RND(IDRec)"

Je voudrais obtenir un résultat aléatoire mais rien n'y fait, j'obtient toujours le même. De ce que j'ai pu lire, RND() ne fonctionnerait que sur access. Pourtant que je le mette ou pas influence le résultat, mais j'obtiens toujours ce même résultat.

Auriez vous une idée ?
05/09/2011, 14h23
BenoitM
A premiere vue sous SQL Server
Code:

1 2 SELECT TOP 1 * FROM table ORDER BY NEWID()
pour Access ca devrait marcher mais si j'ai bien lu le IDRec doit etre un champ auto incrémanté
05/09/2011, 14h30
draco951

C'est bien NewID() sur sqlserver et c'est Rnd() sur access

donc si je met pour 1,2,3,4,5,6,7

Code:

sqltxt = "SELECT * FROM TOuv

j'aurai comme résultat : 1,2,3,4,5,6,7

Si je fait la requete :

Code:

sqltxt = "SELECT * FROM TOuv ORDER BY RND(IDRec)"

J'aurais par exemple 2,5,1,3,4,7,6
Mais j'aurais beau relancer mon programme, j'aurais toujours ce même résultat.

J'ai essayé aussi en ajoutant

Code:

SELECT TOP 1

Il me sort toujours le même numéro.

EDIT
J'ai oublie de répondre à ca :

Oui, en effet, IDRec est un champ auto-incrémenté
05/09/2011, 14h43
BenoitM

tu as combien de record dans ta table?
05/09/2011, 14h47
draco951

J'ai 27 records. Ce sont en fait 27 noms d'ouvriers pour lesquels j'essaye d'attribuer une tâche de maintenant aléatoire. Ils sont classés par groupe et doivent être ensemble pour certaines de ces tâches.

J'essaye de récupérer un ordre aléatoire de cette requête pour que les ouvriers ne fassent pas toujours le même travail.
05/09/2011, 14h57
BenoitM
Perso je sais pas très bien comment marche le Order by avec le rand.
A premiere vue quand c'est un chiffre c'est le numéro de colonne du select donc je vois pas comment ca peut donner un truc "très aléatoire"

Perso je générai un nombre aléatoire en VB.Net et je selectionerai
Code:

1 2 "sqltxt=Select Top 1 * From TOuv Where ID>= " & myRandValue
et si tu as besoin de plusieurs ouvriers

tu fais un select * from TOuv

Tu les stocks dans une List<Ouvrier>
tu fais un RandValue =Rand(ListOuvrier.Count)
ouv1 = ListOuvrier[RandValue]
ListOuvrier.RemoveAt(RandValue)

Oui, je pense que je n'ai pas d'autre choix que de passer par la ... malheureusement ^^

Alors, voiçi une méthode fonctionnel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Dim x, cpt, nbr As Integer
Dim ouv As New List(Of Integer)
 
Do While ouv.Count < dataTOuv.Tables("TOuv").Rows.Count - 1
 
	Randomize()
	nbr = CInt(Rnd() * dataTOuv.Tables("TOuv").Rows.Count)
 
	If nbr < dataTOuv.Tables("TOuv").Rows.Count _
		And nbr >= 1 Then
 
		cpt = 0
		For x = 0 To ouv.Count - 1
 
			If nbr = ouv(x) Then
				cpt = 1
			End If
		Next
 
		If cpt = 0 Then
			ouv.Add(nbr)
		End If
	End If
Loop

05/09/2011, 15h33
draco951

Je tiens à te remercier, BenoitM pour ton aide et j'espère pouvoir te rendre la pareil un jour.

Merci :ccool:

Perso j'aurai fait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim ListOuvriers As New List(Of Ouvrier)
Dim rnd As New Random()
Dim RandomValue As Integer
 
Do While dataTOuv.Tables("TOuv").Rows.Count >1
 
   RandomValue =rnd.Next(1, dataTOuv.Tables("TOuv").Rows.Count)
   ListOuvriers.Add(CreateOuvrierFromTable(dataTOuv.Tables("TOuv").Rows(RandomValue ))
   dataTOuv.Tables("TOuv").Rows.RemoveAt(RandomValue)
 
Next

De rien

05/09/2011, 16h04
draco951

En effet, ta façon de procéder est pas mal, je prend bonne note !

Mais dis moi? dans ta façon de procéder ? on se retrouve avec des doublons non ?