Discussion :

[electrosat03]

Salut à tous,

Décidément j'ai un peu de mal avec les ' et " dans les Sql en Vba
Je voudrais un like "ZZZ*" dans un WHERE en Vba

Code :

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

1
2
3
4
strSQLGenerale = "SELECT DISTINCT T_Générale.NomRaisonSociale, T_Générale.refcli" & _
                            " FROM T_Générale" & _
                            " WHERE (((T_Générale.NomRaisonSociale) LIKE '"ZZZ*"'))" & _
                            " ORDER BY T_Générale.NomRaisonSociale;"

J'ai aussi

Code :

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

1
2
3
4
strSQLGenerale = "SELECT DISTINCT T_Générale.NomRaisonSociale, T_Générale.refcli" & _
                            " FROM T_Générale" & _
                            "  WHERE (((T_Générale.NomRaisonSociale) Like '" & "ZZZ*" & "'))" & _
                            " ORDER BY T_Générale.NomRaisonSociale;"

Le résultat me dit qu'il n'y a pas d'enregistrement alors qu j'en ai au moins 25

Merci pour votre aide

[Super2016]

Bonjour :

Pourquoi ne pas effectuer la requête à partir de l'assistant de requête qui utilise les tables et non du SQL , c'est beaucoup plus facile et il y'a beaucoup moins d'erreurs

lors de l'ecriture du SQL .Il est plus facile de manier des tables que du langage SQL .

CDT.

[tee_grandbois]

bonjour,
la simple apostrophe ' est le caractère standard SQL pour délimiter les textes. Access permet les guillemets " dans le SQL Access, mais c'est aussi le délimiteur de texte dans VBA ce qui peut laisser perplexe beaucoup de débutants car il est faut doubler les guillemets pour coller à la syntaxe VBA à l'intérieur des guillemets:

Code :

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

"  WHERE (((T_Générale.NomRaisonSociale) Like ""ZZZ*""))" & _

Sinon, si c'est du littéral, faire au plus simple: guillemets pour VBA apostrophe pour SQL:

Code :

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

"  WHERE (((T_Générale.NomRaisonSociale) Like 'ZZZ*'))" & _

Le caractère de concaténation & est utile uniquement si le critère est une variable:

Code :

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

1
2
3
4
5
6
Dim StCritere as String
stCritere = "ZZZ"
strSQLGenerale = "SELECT DISTINCT T_Générale.NomRaisonSociale, T_Générale.refcli" & _
                            " FROM T_Générale" & _
                            " WHERE (((T_Générale.NomRaisonSociale) LIKE '" & stCritere & "*'))" & _
                            " ORDER BY T_Générale.NomRaisonSociale;"

[electrosat03]

Bonsoir,

Merci c OK, je pense y voir un peu plus clair

A+