[Excel/VBA] Requete SQL avec clause sur une suite de Cellule

Version imprimable

21/02/2007, 09h40
Myogtha

[Excel/VBA] Requete SQL avec clause sur une suite de Cellule

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:

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:

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

Un grand Merci à tous

Hello,

en sql, ça se traduit par ...

Code:

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) & ") ....."

Je traduis ça en VBA comme ça

Code:

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:

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

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

Une idée ?

21/02/2007, 15h46
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
21/02/2007, 16h01
Myogtha

Avant :

Code:

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

Aprés

Code:

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

Marche toujours pas...
Merci quand même
21/02/2007, 16h14
cafeine
2 choses à faire ...
- quel est le type de données de CodeArt ?
- debug.print ApproSQL10
21/02/2007, 16h29
Myogtha

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

Code:

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...
21/02/2007, 16h37
cafeine

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

Code:

CodeArt Not In (nombre1, nombre2, ...., nombren)
21/02/2007, 16h39
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
21/02/2007, 16h40
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 :oops:
21/02/2007, 17h36
Myogtha

Merci bien @ tous