Discussion :

[watred]

Bonjour
je possède une requête sql j’ai définis l’id école pour qu’il soit diffèrent de lid villle (dans une table d’id de 1 à 10) (requete : (WHERE (((infos .id ecole)<>[infos.indville])))
Resultat :

id ville	Nom	Prenom	age	id ecole
1	ALAIN	paul	25	3
1	ALAIN	paul	25	4
1	ALAIN	david	30	5
2	BERNARD	Martin	40	6
2	BERNARD	Martin	40	7
2	BERNARD	Martin	40	8
2	BERNARD	Martin	40	9

Mon problème est que j’aimerais en sortie de ma requête un table de cette sorte (garder un id ecole unique aléatoire diffèrent de l’id ville) comme ca :

id ville	Nom	Prenom	age	id ecole
1	ALAIN	paul	25	3
1	ALAIN	david	30	5
2	BERNARD	Martin	40	6

Mais je ne sais pas comment faire en requête sql ,
Merci

[Jean-Philippe André]

Bonjour,

ta sortie ici n'est pas aleatoire, vu que tu as pris la premiere valeur de chaque cas....

Peux-tu nous expliciter plus precisement ton aleatoire du coup ?

[watred]

[QUOTE=Jean-Philippe André;8797244]Bonjour,

ta sortie ici n'est pas aleatoire, vu que tu as pris la premiere valeur de chaque cas....

Peux-tu nous expliciter plus precisement ton aleatoire du coup ? :

Bonjour,
Ce que je veux en sortie :c'est prendre n'importe quelle ligne avec une valeur unique de la colonne 4,et usans avoir des doublons pour les autres colonnes (sachant que la lcolonne 4 est une table que j'ai choisi avec des id de 1 à 100 et le critère sur cette colonne elle doit être différente de la 1 colonne )
Merci

[Jean-Philippe André]

Solution 1:
premiere valeur par ligne =

Code sql :

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

1
2
3
4
SELECT [id ville],[Nom],[Prenom],[age],MIN([id ecole])
FROM TaTable
WHERE [id ville] <> [id ecole]
GROUP BY [id ville],[Nom],[Prenom],[age]

valeur aleatoire

Code sql :

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

1
2
SELECT [id ville],[Nom],[Prenom],[age],MONALEATOIRE([id ville],[Nom],[Prenom],[age])
FROM TaTable

Avec une fonction VBA du style

Code :

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

1
2
3
4
5
6
7
Function MONALEATOIRE(idv As Integer,Nom As String, Prenom As String ,age As Integer) as Integer
Dim result as Integer
Do 
result = CLng(Int((10 * Rnd()) + 1))
Loop Until DCOUNT("id ville","TaTable","[id ville]=" & idv & " AND [Nom]='" & Replace(Nom,"'","''") & "' AND [Prenom]='" & Replace(Prenom,"'","''") & "' AND [age]=" & age & " and [id ecole]=" & result)=1
MONALEATOIRE = result
End Function

[watred]

Merci de ta réponse
J'avais déjà testé les solutions 1 et 2, ca marche mais pas à 100 pourcent
c'est a dire que quand je définis le min par exemple, acess me sort juste par défaut la valeur 1 partout et du coup il supprime egalement la valeur ou la colonne1 est egale à 1.