Discussion :

[Myogtha]

Bonjour,

Je voudrais incorporer dans le where de ma requéte SQL une clause que dirais
Articles.Codeart <> des nombre dans les cellules A80:A110 de ma feuille Statistique.

Code :

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

ApproSQL10 = "SELECT TOP 10 Articles.Codeart, Articles.Désignation, Articles.Localisation, [QteThéorique]*[Prixachat] AS Montant, [Qtéstock]+[Qtéréser] AS QteThéorique FROM Articles WHERE ( AND (Articles.Codeart>=100000000) AND (([Qtéstock]+[Qtéréser])<>0) AND (Articles.Dateachat>=#" & DateDeb & "#) AND (Articles.Dateachat<=#" & DateFin & "#)) ORDER BY 4 DESC"

A tout hazard peut étre que ça pourrez vous aider

Code :

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

Sheets("Statistique").Range("A80:A110")

Un grand Merci à tous

[cafeine]

Hello,

en sql, ça se traduit par ...

Code :

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

1
2
3
4
5
6
7
dim strIn as String
for each c in Range("A80:A110").Cells
  strIn = strIn & ", " & c.value
next c
SQL = "SELECT ...." & _
      "FROM ...... " & _
      "WHERE .... CodeArt Not In(" & mid(strIn, 2) & ") ....."

[Myogtha]

Je traduis ça en VBA comme ça

Code :

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

1
2
3
4
5
6
7
Dim strIn As String
        For Each c In Sheets("Statistique").Range("A80:A110").Cells
            strIn = strIn & ", " & c.Value
            Next c
        ApproSQL10 = "SELECT TOP 10 Articles.Codeart, Articles.Désignation, Articles.Localisation, [QteThéorique]*[Prixachat] AS Montant, [Qtéstock]+[Qtéréser] AS QteThéorique" & _
                "FROM Articles " & _
                "WHERE ((Articles.Dateachat>=#" & DateDeb & "#) AND (Articles.Dateachat<=#" & DateFin & "#) AND (Articles.Codeart>=100000000) AND (([Qtéstock]+[Qtéréser])<>0) AND (Articles.Codeart Not In(" & Mid(strIn, 2) & "))) ORDER BY 4 DESC"

J'ai une erreur ici (un mot interdit ou argument mal ortho...)

Code :

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

ApproData.Open ApproSQL10, ApproConnect, adLockReadOnly, adLockReadOnly, adCmdText

Dans strIn j'ai ça ",145789658,54789854,457854785,...."

Une idée ?

[Invité]

Bonjour

Déjà strIn est du texte, il faut donc mettre des ' avant et après dans ta requête (avant "" et après "").

Starec

[Myogtha]

Avant :

Code :

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

Articles.Codeart Not In(" & Mid(strIn, 2) & ")

Aprés

Code :

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

Articles.Codeart Not In('" & Mid(strIn, 2) & "')

Marche toujours pas...
Merci quand même

[cafeine]

2 choses à faire ...

• quel est le type de données de CodeArt ?
• debug.print ApproSQL10

[Myogtha]

Je connaissais pas le Debug.print, merci je vous donne ce que ça me dis

Code :

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

SELECT TOP 10 Articles.Codeart, Articles.Désignation, Articles.Localisation, [QteThéorique]*[Prixachat] AS Montant, [Qtéstock]+[Qtéréser] AS QteThéoriqueFROM Articles WHERE ((Articles.Dateachat>=#01/01/2004#) AND (Articles.Dateachat<=#01/01/2007#) AND (Articles.Codeart>=100000000) AND (([Qtéstock]+[Qtéréser])<>0) AND (Articles.Codeart Not In(' 420000153, 420000151, 600006210, .... 600006425, '))) ORDER BY 4 DESC

Codeart est format "Numérique" sous la base Access


j'ai modifier la requete pour éloigner QteThéorique et FROM depuis j'ai pas la même erreur je vous donne l'erreur dans pas longtemps

type de données incompatible maintenant j'ai l'impression que ça vient bien maintenant de la suite de nombre...

[cafeine]

Si c'est numérique arrange toi pour avoir ...

Code SQL :

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

CodeArt Not In (nombre1, nombre2, ...., nombren)

[Myogtha]

C'est bon j'ai trouvé j'ai enlevé les ' ' de l'expression que j'avais rajouté et ça fonctionne je valide que ce soit bon et je mets le tag résolu

[baselunaire]

AND (Articles.Codeart Not In(' 420000153, 420000151, 600006210, .... 600006425, '))) ORDER BY 4 DESC

Si Articles.Codeart est du texte, chaque valeur doit etre encadrée par des cotes :
AND (Articles.Codeart Not In('420000153', '20000151', '600006210', .... '600006425'))) ORDER BY 4 DESC

Mais s'il s'agit effectivement de valeurs numériques alors tu n'as pas besoin de cotes :
AND (Articles.Codeart Not In(420000153, 20000151, 600006210, .... 600006425))) ORDER BY 4 DESC

... en espérant t'apporter un peu d'aide...

---> Oups...on a du poster en meme temps

[Myogtha]

Merci bien @ tous