Discussion :

[xeron33]

Bonjour,
J'aimerais créer cette requete dans du code VBA Access :

Code :

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

1
2
 
 insert into TAB_IMPORT_TEST SELECT   *  from TAB_IMPORT where TAB_IMPORT.Emplacement <>  "" ;

Je n'arrive pas à l'écrire sous l'éditeur VBA : voiçi ce que j'écris :

Code :

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

1
2
3
 
cSQL3 = "insert into TAB_IMPORT_TEST SELECT   *  from TAB_IMPORT where TAB_IMPORT.Emplacement <> & Chr(34)"
       cSQL3 = cSQL3 & Chr(34) & ";"

et ca ne fonctionne pas.
si quelqu'un a une idée.
MERCI

[Jeannot45]

Une idée :

Code :

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

cSQL3 = "insert into TAB_IMPORT_TEST SELECT   *  from TAB_IMPORT where TAB_IMPORT.Emplacement Is Not Null;"

Bonne continuation

[xeron33]

Merci pour la bonne idée, mais ça ne résoud pas le problème des guillemets

[nico84]

Bonsoir,

Le standard SQL pour encadrer une chaine est l'apostrophe ce qui permet d'écrire :

Code :

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

cSQL3 = "insert into TAB_IMPORT_TEST SELECT   *  from TAB_IMPORT where TAB_IMPORT.Emplacement <> '' "

[loufab]

Bonjour,

Attention !

Avec SQL ACCESS il faut perdre cette mauvaise habitude d'utiliser l'apostrophe. En effet cela peut occasionner des erreurs.
En effet à part gérer du texte littéraire on a peut de chance de tomber sur des guillemets alors que l'apostrophe est présente dans les noms de personnes et des phrases, titres...

Utiliser en priorité le guillemet.

Ne provoque pas d'erreur

Code :

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

... WHERE champ='un poisson'

Provoque une erreur

Code :

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

... WHERE champ='l'élephant'

Alors que :

Code :

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

... WHERE champ="l'élephant"

ne provoque pas d'erreur.

Dans une string qui est déjà bornée par des guillemets il faut doubler celles contenues.

Comme ceci par exemple :

Code :

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

1
2
3
 
dim strSQL as string
strSQL = "... WHERE champ=""l'élephant"""

Dans ton cas ça donnerait ceci :

Code :

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

strSQl = "insert into TAB_IMPORT_TEST SELECT   *  from TAB_IMPORT where TAB_IMPORT.Emplacement <>  """" ;"

On peut également tomber sur le cas d'un traitement des minutes et secondes au format ' ".

Voici une petite fonction pour traiter le contenu d'une variable suivant le séparateur :

Code :

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

1
2
3
4
5
Function fGetSqlFormatMS(minuteSeconde As String, sep As String) As String
 
fGetSqlFormatMS = Replace(minuteSeconde, String(1, sep), String(2, sep))
 
End Function

Que l'on préfère l'apostrophe ou le guillemet le problème est réglé.

guillemet

Code :

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

"SELECT ... WHERE Champ = '" & fGetSqlFormatMS(mavaleur,"'") & "';"

apostrophe

Code :

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

"SELECT ... WHERE Champ = """ & fGetSqlFormatMS(mavaleur,"""") & """;"

Cordialement,

[Pierre Fauconnier]

Salut.

Le mieux serait d'utiliser une requête paramétrée. Ainsi, on évite tous les problèmes liés aux paramètres littéraux (apostrophes, dates à inverser, ...)