Discussion :

[draco951]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[BenoitM]

A premiere vue sous SQL Server

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

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

Sélectionner tout - Visualiser dans une fenêtre à part

sqltxt = "SELECT * FROM TOuv

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


Si je fait la requete :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[BenoitM]

tu as combien de record dans ta table?

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[draco951]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[draco951]

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

Merci

[BenoitM]

Perso j'aurai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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