Discussion :

[Stéphane Olivier BERNARD]

Bonjour,

J'essaye de travailler sur un champs qui contiendrait une liste un peu à la manière des champs multivalués...

J'ai une table [Produits] qui contient des enregistrements sous la forme:
Produit / Liste (des sous produits utilisés)
"Produit1", "sous_prod2;sous_prod9;sous_prod15"
"Produit2", "sous_prod9,sous_prod22"
"Produit9", "sous_prod15;sous_prod21,sous_prod3,sous_prod1"

Une table [Sous_Produits] sous la forme:
Sous_Produit/ Désignation / Rangement
"sous_prod1","vis de 12", "tirroir2"
"sous_prod2","écrous de 12", "tirroir21"...

Une table [Produits à transférer] qui à la même structure que le table [Produits] et qui me sert de table tampon.

Lorsque je travaille sur un produit (ajout ou suppression de sous produits), les sous produits à partir desquels il est fabriqué sont chargés dans ma table [Produits à transférer] au moyen d'un requette.

Afin de pouvoir appeler chacun des "sous produits" d'un "produit" j'ai recours à un split réalisé dans une requête grace à la fonction découpe définie dans un module global:

Fonction découpe

Code :

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

1
2
3
4
 
Public Function Decoupe(str As String, separateur As String, INDEX As Long) As String
Decoupe = Split(str, separateur)(INDEX)
End Function

Requette appelant le sous produit(1) d'un produit

Code :

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

1
2
3
4
5
6
 
MySql = "INSERT INTO [Produits à transferer] (Sous_Produit, Désignation, Rangement)"
MySql = MySql + " SELECT decoupe([Produits].[Liste],';',1), [Sous_Produits].Désignation, [Sous_Produits].Rangement"
MySql = MySql + " FROM [([Produits] INNER JOIN [Sous_Produits] ON decoupe([Produits].[Liste],';',1)=[Sous_Produits].[Sous_Produit]"
MySql = MySql + " WHERE ([Produits].Produit = """ & Produit & """ ) ;"
bdd.Execute MySql

La fonction découpe utilise un index afin d'extraire sous produit par sous produit mais le problème c'est que je ne vois pas comment connaitre le nombre (i) de "sous produits" d'un produit afin de pouvoir itérer ma requette de 0 à i ...

Je précise que je suis sous access 2003 et que je ne peux donc pas utiliser les champs multivalués...

Alors si vous avez des idées...
Merci d'avance.

[random]

split renvoie un array

ubound(split()) renverra ton indice

[Stéphane Olivier BERNARD]

Merci random pour ta promptitude !

split renvoie un array

ubound(split()) renverra ton indice

Mais je ne vois pas trop comment utiliser ton ubound...

Par contre j'ai pensé à rajouter un champ [Nbr de sous produits] dans la table [Produits] qui me permet d'obtenir directement l'info...

Ca avance donc mais je continue à chercher ....

[LedZeppII]

Bonsoir,

un exemple d'itération :

Code vb :

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

1
2
3
4
5
6
7
Dim decoupe() As String
Dim i As Integer
 
decoupe = Split("A;B;C;D", ";")
For i = LBound(decoupe) To UBound(decoupe)
    MsgBox decoupe(i)
Next

Il te suffit dans la boucle de générer le code de ta requête et de l'exécuter.

A+

[Stéphane Olivier BERNARD]

Bonjour et merci LedZeppII

C'est bien là que je n'y arrive pas...

Il te suffit dans la boucle de générer le code de ta requête et de l'exécuter.

Ce qui me pose problème c'est que le champ "A;B;C;D" est sélectionné dans la requête mais la requête doit être lancée autant de fois qu'il y a d'éléments dans le champ...

J'ai donc besoin de l'information contenue dans la requete en "dehors" de la requete car ma requête est basée sur une jointure assurée par la fonction découpe

Code :

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

1
2
 
decoupe([Produits].[Liste],';',1)=[Sous_Produits].[Sous_Produit]

Ici evidemment la jointure est faite sur le 2eme élément de la liste (i=1)

Peut être devrais-je changer d'idée en ne requetant plus i fois avec une jointure mais une seule fois en cherchant dans la table [Sous produits] avec une requête qui utiliserait une chaine "A' or 'B' or 'C' or 'D" et qui serait générée par la fonction découpe...

Est ce que vous avez des idées ?

[random]

ceci se régle avec ce que je nomme une "table index" (pardon pour le néologisme)
une table index est une table contenant des valeurs scalaires 0;1..10000
(évidemment on n'est pas obligé d'aller jusqu'à 10000)

une telle table est trés utile pour une base de données en l'utilisant dans un produit cartésien

l'idée de base est de partir sur

Code :

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

1
2
3
4
 
SELECT matable.monitem, index.index
FROM  matable,index
WHERE index.index<=[valeur choisie];

qui va me renvoyer [valeur choisie] (par exemple 5) exemplaires de monitem

si tu remplaces [valeur choisie] par ubound(split(monitem)) tu obtiendras autant d'item que de séparateurs

reste à remplacer monitem par split(monitem(),index))

si cela semble un peu compliqué vas y pas à pas