Discussion :

[viviking]

tout dabord bonjour!
voila j'ai un probleme, j'ai une table "matiere" et une table "silo" :

matiere:
code_mat | nom_mat|
1 | ciment1 |
2 | ciment2 |
3 | ciment3 |


silo:
|code_silo |nom_silo |code_mat |
| 1 | silo1 | 1 |
| 2 | silo2 | 1 |
| 3 | silo3 | 1 |
| 4 | silo4 | 2 |
| 5 | silo5 | 3 |


et j'aimerais à l'aide d'une requête SQL obtenir le resultat suivant :

code_mat |nom_mat|nom_silo1| nom_silo2| nom_silo3|
1 |ciment1 | silo1 | silo2 | silo3 |
2 |ciment2 | silo4 | | |
3 |ciment3 | silo5 | | |


est-ce possible? mais comment faire? je ne sais point!

[pipololo]

Pour quel SGBD ?
A mon avis cela n'est pas possible en sql.
Par contre à l'aide de procédures stockées oui.

[viviking]

c'est sous access 2002! tu as une solution?

[Crazyblinkgirl]

Code :

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

1
2
3
4
 
SELECT matiere.code_mat, nom_mat, nom_silo
FROM matiere, silo
WHERE matiere.code_mat = silo.code_mat

[viviking]

SELECT matiere.code_mat, nom_mat, nom_silo
FROM matiere, silo
WHERE matiere.code_mat = silo.code_mat

oui mais pour le ciment1 il y a trois silos et je ne veu qu'une seul ligne

[Crazyblinkgirl]

ptet avec une procedure stockée alors

[viviking]

c'est à dire?

[pipololo]

possible sous access en créant une fonction dans un module :

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
 
Public Function ListeLesSilo(alCode_mat As Long) As String
Dim recSilo As Recordset
Dim strTmp As String
 
If IsNull(alCode_mat) Then
    ListeLesSilo = ""
    Exit Function
End If
 
strTmp = ""
Set recSilo = CurrentDb.OpenRecordset("select * from silo where code_mat = " & alCode_mat)
Do Until recSilo.EOF
    If strTmp = "" Then
        strTmp = recSilo!nom_silo
    Else
        strTmp = strTmp & " - " & recSilo!nom_silo
    End If
    recSilo.MoveNext
Loop
recSilo.Close
 
ListeLesSilo = strTmp
End Function

...puis en créant la requête suivante :

Code :

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

1
2
3
 
SELECT matiere.code_mat, matiere.lib_mat, ListeLesSilo([code_mat]) AS silo
FROM matiere;

[viviking]

merci beaucoup je vais essayer!

[viviking]

euh j'ai un petit problème avec la ligne :

Set recSilo = CurrentDb.OpenRecordset("select * from silo where code_mat = " & alCode_mat)

--> erreur d'execution 13 : incompatibilité de type
je vois pas l'incompatibilité là...

[viviking]

voila j'ai trouvé ça ,c'est le code que m'à donné pipololo (merci hein) mais avec une modif pour avoir un champs par silo y a ceratinement mieu mais ça marche :

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
27
28
Public Function ListeLesSilo1(alCode_mat As Long, num As Integer) As String
Dim recSilo As DAO.Recordset
Dim strTmp As String
Dim i As Integer
i = 1
If IsNull(alCode_mat) Then
    ListeLesSilo1 = ""
    Exit Function
End If
 
strTmp = ""
 
Set recSilo = CurrentDb.OpenRecordset("select DISTINCT [silo_ciments].nom_silo from silo_ciments where code_mat = " & alCode_mat & " ORDER BY [silo_ciments].nom_silo")
Do Until recSilo.EOF
If i = num Then
        strTmp = recSilo!nom_silo
        recSilo.Close
        ListeLesSilo1 = strTmp
        Exit Function
Else
    i = i + 1
    recSilo.MoveNext
End If
Loop
recSilo.Close
 
ListeLesSilo1 = strTmp
End Function

et la requête :

Code :

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

1
2
SELECT matieres.code_mat, matieres.nom_mat, ListeLesSilo1([code_mat],1) AS silo_1, ListeLesSilo1([code_mat],2) AS silo_2, ListeLesSilo1([code_mat],3) AS silo_3
FROM matieres;

merci bien

[SQLpro]

contrairement à ce qui t'a été dit, c'est parfaitement possible en SQL, mais c'est stupide, car SQL n'est pas là pour assurer la couche présentation.

A lire :
http://sqlpro.developpez.com/SQL_AZ_E.html#Cosmos

A +

[viviking]

non en fiat je doit créer une table qui regroupe différentes informations en "lignes" afin de la transferer vers un fichier excel et créer une liaison avec un logiciel de supervision. cette table n'es donc jamais visualiser par l'utilisateur. ce n'était pas dans un but de présentation mais plus une contrainte de mise en forme. mais merci à tous pour votre aide!