Discussion :

[Loki83]

Bonjour,

J'ai une question de synthaxe.
Ci dessous mon code SQL.

Code :

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

1
2
3
4
5
6
7
    stringSQL = "SELECT
             "FROM
             "WHERE 
             " AND
             " AND
             " AND
             " AND

Je voudrais optimiser la requete en posant des conditions.

Code :

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

1
2
3
4
5
    stringSQL = "SELECT
             "FROM         
             "WHERE (Prix.datePrix = '" & dateprix & "')" & _
 if cells(i,4).value <> "" then
String SQL = StringSQL AND vente.client = ' " & nomclient & "')"

Quel est la synthaxe du passage en gras en VBA?

Merci d'avance!
Vincent

[Didier71]

Bonsoir...

Curieuse syntaxe SQL !

Mais d'après ce que je comprends, voici ce que ça donnerait

Code :

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

1
2
3
4
5
6
7
stringSQL = "SELECT
             "FROM         
             "WHERE (Prix.datePrix = '" & dateprix & "')" 
 
if cells(i,4).value <> "" then
StringSQL = StringSQL &" AND vente.client = ' " & nomclient & "')"
EndIf

Mais étant donné que tu es en Access, je ne vois pas comment tu évalues
le cells(i,4) qui me semble etre plutot du Excel ???????????????
De plus, d'ou sort la variable i ?

A mon avis, tu devrais donner le texte complet de ta chaine SQL.....

Bon courage.
Didier71

[Loki83]

Bonsoir...

Curieuse syntaxe SQL !

Mais d'après ce que je comprends, voici ce que ça donnerait

Code :

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

1
2
3
4
5
6
7
stringSQL = "SELECT
             "FROM         
             "WHERE (Prix.datePrix = '" & dateprix & "')" 
 
if cells(i,4).value <> "" then
StringSQL = StringSQL &" AND vente.client = ' " & nomclient & "')"
EndIf

Mais étant donné que tu es en Access, je ne vois pas comment tu évalues
le cells(i,4) qui me semble etre plutot du Excel ???????????????
De plus, d'ou sort la variable i ?

A mon avis, tu devrais donner le texte complet de ta chaine SQL.....

Bon courage.
Didier71

Merci Didier!
Oui en effet je suis sous excel.
Pourquoi juge tu la syntaxe curieuse?
à cause du "if"?

[Didier71]

Bonjour


Non, ce n'est pas à cause du if...
Mais des clauses SQL incomplètes, tu as du abréger, j'imagine...

As tu réussi à t'en sortir ?

Didier71

[Gabout]

Bonjour,

Comme le dit Loki83

Mais étant donné que tu es en Access, je ne vois pas comment tu évalues
le cells(i,4) qui me semble etre plutot du Excel ???????????????

Tu dois t'être trompé de forum. Peux-tu le confirmer et je ferai le déplacement ?

[vodiem]

salut à tous,

Code :

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

1
2
3
4
5
    stringSQL = "SELECT
             "FROM         
             "WHERE (Prix.datePrix = '" & dateprix & "')" & _
 if cells(i,4).value <> "" then
String SQL = StringSQL AND vente.client = ' " & nomclient & "')"

oulà...

ca doit plutot être un truc comme ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
monSQL="SELECT leChamp FROM laTable WHERE (Prix.datePrix = '" & dateprix & "') "     'en supposant que la date est au format texte... sinon il faut entourer la date de '#'
 
critere=""
for i="début" to "fin"
   if cells(i,4).value<>"" then
      if critere<>"" then critere=critere & " AND "
      critere=critere & "(vente.client='" & nomclient & "')"   'attention nomclient doit faire référence je suppose à une cellule genre cells(i,5)
   end if
next i
monSQL=monSQL & critere

[Loki83]

Bonjour,

Comme le dit Loki83

Tu dois t'être trompé de forum. Peux-tu le confirmer et je ferai le déplacement ?

Oui je suis dans Excel mais je fais du SQL via VBA...
A la limite oui le sujet serait mieux dans Excel que Access...

@Didier :
Oui je m'en suis sorti merci!
Désolé de pas avoir fait un retour plus tot