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