Discussion :

[Myogtha]

Bonjour,

j'ai une requete sous Access qui marche très bien :

Code :

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

1
2
3
4
5
SELECT DISTINCTROW Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl, Nomenlignes.Ligne, Articles.Codeart, Articles.Désignation, Tempappro.N°Commande, DA.Date, Commande.Date, Tempappro.datedispo, Tempappro.N°Commande, Nomenlignes.Qténl, Tempappro.[Qté Commandé], Tempappro.QtéDA, Tempappro.QtéRE, Tempappro.N°RE, Affectation.[Qté Affectée], Sortie.[Qté sortie], Tempappro.QtéReçu
FROM ((Clients INNER JOIN (Nomenclatures INNER JOIN [OF] ON Nomenclatures.Codeof = OF.Codeof) ON Clients.N°client = OF.N°client) INNER JOIN ((((Sortie RIGHT JOIN ((Articles RIGHT JOIN Nomenlignes ON Articles.N°art = Nomenlignes.N°art) LEFT JOIN Tempappro ON Nomenlignes.N°nomenligne = Tempappro.N°nomenligne) ON Sortie.N°nomligne = Nomenlignes.N°nomenligne) LEFT JOIN Commande ON Tempappro.N°Commande = Commande.N°commande) LEFT JOIN Fournisseurs ON Commande.N°four = Fournisseurs.N°four) LEFT JOIN Réception ON Commande.N°commande = Réception.N°Commande) ON Nomenclatures.N°nomen = Nomenlignes.N°nomen) LEFT JOIN (DA LEFT JOIN Affectation ON DA.N°DA = Affectation.N°DA) ON Nomenlignes.N°nomenligne = DA.N°nomenligne
GROUP BY Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl, Nomenlignes.Ligne, Articles.Codeart, Articles.Désignation, Tempappro.N°Commande, DA.Date, Commande.Date, Tempappro.datedispo, Tempappro.N°Commande, Nomenlignes.Qténl, Tempappro.[Qté Commandé], Tempappro.QtéDA, Tempappro.QtéRE, Tempappro.N°RE, Affectation.[Qté Affectée], Sortie.[Qté sortie], Tempappro.QtéReçu, Nomenclatures.Fichier, Nomenclatures.N°nomen, Clients.Nom, Clients.Sigleclient
HAVING (((Nomenclatures.N°nomen)=65247))
ORDER BY Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl;

Je l'ai inseré sous Escel via ADODB Recordset mais ça mets une erreur de requetage

Code :

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

1
2
3
4
ApproSQL10 = "SELECT DISTINCTROW Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl, Nomenlignes.Ligne, Articles.Codeart, Articles.Désignation, Tempappro.N°Commande, DA.Date, Commande.Date, Tempappro.datedispo, Tempappro.N°Commande, Nomenlignes.Qténl, Tempappro.[Qté Commandé], Tempappro.QtéDA, Tempappro.QtéRE, Tempappro.N°RE, Affectation.[Qté Affectée], Sortie.[Qté sortie], Tempappro.QtéReçu" & _
                    "FROM ((Clients INNER JOIN (Nomenclatures INNER JOIN [OF] ON Nomenclatures.Codeof = OF.Codeof) ON Clients.N°client = OF.N°client) INNER JOIN ((((Sortie RIGHT JOIN ((Articles RIGHT JOIN Nomenlignes ON Articles.N°art = Nomenlignes.N°art) LEFT JOIN Tempappro ON Nomenlignes.N°nomenligne = Tempappro.N°nomenligne) ON Sortie.N°nomligne = Nomenlignes.N°nomenligne) LEFT JOIN Commande ON Tempappro.N°Commande = Commande.N°commande) LEFT JOIN Fournisseurs ON Commande.N°four = Fournisseurs.N°four) LEFT JOIN Réception ON Commande.N°commande = Réception.N°Commande) ON Nomenclatures.N°nomen = Nomenlignes.N°nomen) LEFT JOIN (DA LEFT JOIN Affectation ON DA.N°DA = Affectation.N°DA) ON Nomenlignes.N°nomenligne = DA.N°nomenligne" & _
                    "GROUP BY Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl, Nomenlignes.Ligne, Articles.Codeart, Articles.Désignation, Tempappro.N°Commande, DA.Date, Commande.Date, Tempappro.datedispo, Tempappro.N°Commande, Nomenlignes.Qténl, Tempappro.[Qté Commandé], Tempappro.QtéDA, Tempappro.QtéRE, Tempappro.N°RE, Affectation.[Qté Affectée], Sortie.[Qté sortie], Tempappro.QtéReçu, Nomenclatures.Fichier, Nomenclatures.N°nomen, Clients.Nom, Clients.Sigleclient" & _
                    "ORDER BY Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl"

Quelqu'un a une idée ?

Merci d'avance à tous

[pgz]

Bonjour,

Je n'ai pas tout lu, mais je crois qu'il manque déjà un espace devant FROM, et GROUP BY, HAVING, ...

Bon courage,

PGZ

[Myogtha]

Code :

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

1
2
3
4
5
ApproSQL10 = "SELECT DISTINCTROW Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl, Nomenlignes.Ligne, Articles.Codeart, Articles.Désignation, Tempappro.N°Commande, DA.Date, Commande.Date, Tempappro.datedispo, Tempappro.N°Commande, Nomenlignes.Qténl, Tempappro.[Qté Commandé], Tempappro.QtéDA, Tempappro.QtéRE, Tempappro.N°RE, Affectation.[Qté Affectée], Sortie.[Qté sortie], Tempappro.QtéReçu" & _
        " FROM ((Clients INNER JOIN (Nomenclatures INNER JOIN [OF] ON Nomenclatures.Codeof = OF.Codeof) ON Clients.N°client = OF.N°client) INNER JOIN ((((Sortie RIGHT JOIN ((Articles RIGHT JOIN Nomenlignes ON Articles.N°art = Nomenlignes.N°art) LEFT JOIN Tempappro ON Nomenlignes.N°nomenligne = Tempappro.N°nomenligne) ON Sortie.N°nomligne = Nomenlignes.N°nomenligne) LEFT JOIN Commande ON Tempappro.N°Commande = Commande.N°commande) LEFT JOIN Fournisseurs ON Commande.N°four = Fournisseurs.N°four) LEFT JOIN Réception ON Commande.N°commande = Réception.N°Commande) ON Nomenclatures.N°nomen = Nomenlignes.N°nomen) LEFT JOIN (DA LEFT JOIN Affectation ON DA.N°DA = Affectation.N°DA) ON Nomenlignes.N°nomenligne = DA.N°nomenligne " & _
        " GROUP BY Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl, Nomenlignes.Ligne, Articles.Codeart, Articles.Désignation, Tempappro.N°Commande, DA.Date, Commande.Date, Tempappro.datedispo, Tempappro.N°Commande, Nomenlignes.Qténl, Tempappro.[Qté Commandé], Tempappro.QtéDA, Tempappro.QtéRE, Tempappro.N°RE, Affectation.[Qté Affectée], Sortie.[Qté sortie], Tempappro.QtéReçu, Nomenclatures.Fichier, Nomenclatures.N°nomen, Clients.Nom, Clients.Sigleclient" & _
        " HAVING (((Nomenclatures.N°nomen) = [Numero de la nomenclature  analysée]))" & _
        " ORDER BY Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl"

J'ai modifier mais toujours rien zut
Merci quand même

[Mat.M]

Pour les requêtes et les tables éviter absolument les accents dans les noms sinon pour accéder nomdetable->champs déclarer [mattable.champsdéclaré]

Pour la déclaration de requête utiliser des concaténations:

Code :

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

1
2
3
4
 
Dim sSQL As String
sSQL="SELECT table1.champs,table2.champs,table3.champs"
sSQL=sSQL & "WHERE...." 'etc

[Myogtha]

Je voudrais bien sans accent mais je tape dans une base qui n'est pas à moi, c'est une vieille base access. Bon je vais concatenaner et je vous tiens au courant si quelqu'un a d'autres idées ?
Merci

Edit : Voilà avec concaténation, mais toujours le même problème, quelqu'un a une idée ça doit étre mon code SQL sous access qui devrait étre différent

Code :

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

1
2
3
4
5
ApproSQL10 = "SELECT DISTINCTROW Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl, Nomenlignes.Ligne, Articles.Codeart, Articles.Désignation, Tempappro.N°Commande, DA.Date, Commande.Date, Tempappro.datedispo, Tempappro.N°Commande, Nomenlignes.Qténl, Tempappro.[Qté Commandé], Tempappro.QtéDA, Tempappro.QtéRE, Tempappro.N°RE, Affectation.[Qté Affectée], Sortie.[Qté sortie], Tempappro.QtéReçu" & _
ApproSQL10 = ApproSQL10 & " FROM ((Clients INNER JOIN (Nomenclatures INNER JOIN [OF] ON Nomenclatures.Codeof = OF.Codeof) ON Clients.N°client = OF.N°client) INNER JOIN ((((Sortie RIGHT JOIN ((Articles RIGHT JOIN Nomenlignes ON Articles.N°art = Nomenlignes.N°art) LEFT JOIN Tempappro ON Nomenlignes.N°nomenligne = Tempappro.N°nomenligne) ON Sortie.N°nomligne = Nomenlignes.N°nomenligne) LEFT JOIN Commande ON Tempappro.N°Commande = Commande.N°commande) LEFT JOIN Fournisseurs ON Commande.N°four = Fournisseurs.N°four) LEFT JOIN Réception ON Commande.N°commande = Réception.N°Commande) ON Nomenclatures.N°nomen = Nomenlignes.N°nomen) LEFT JOIN (DA LEFT JOIN Affectation ON DA.N°DA = Affectation.N°DA) ON Nomenlignes.N°nomenligne = DA.N°nomenligne " & _
ApproSQL10 = ApproSQL10 & " GROUP BY Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl, Nomenlignes.Ligne, Articles.Codeart, Articles.Désignation, Tempappro.N°Commande, DA.Date, Commande.Date, Tempappro.datedispo, Tempappro.N°Commande, Nomenlignes.Qténl, Tempappro.[Qté Commandé], Tempappro.QtéDA, Tempappro.QtéRE, Tempappro.N°RE, Affectation.[Qté Affectée], Sortie.[Qté sortie], Tempappro.QtéReçu, Nomenclatures.Fichier, Nomenclatures.N°nomen, Clients.Nom, Clients.Sigleclient" & _
ApproSQL10 = ApproSQL10 & " HAVING (((Nomenclatures.N°nomen) = [Numero de la nomenclature  analysée]))" & _
ApproSQL10 = ApproSQL10 & " ORDER BY Nomenlignes.Repèreplnl, Nomenlignes.Réfdétailnl"

[Myogtha]

Bon aprés plusieurs essai, je suis maintenant sur que ça vient du la requete SQL, quelqu'un pourrait jeter un coup d'oeil vote fais, une commande ou une liaison doit étre mal ecrite.

J'ai un moyen de vérifier par étape ma requete SQL ?