Discussion :

[Blencastreur]

Bonjour,

J'essaye d'effectuer la requête sql suivante à partir d'excel VBA sur une base Access en (.mdb) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Set cnx = New ADODB.Connection
    With cnx
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open BaseX
    End With
 
requete = "SELECT TBL.CHAMPS1, TBL.CHAMPS2, TBL.CHAMPS3" & vbCrLf & _
        " FROM TABLE_A TBL" & vbCrLf & _
        " WHERE TBL.CHAMPS4='EEE'" & vbCrLf & _
        " AND TBL.CHAMPS5 <>' AAA '" & vbCrLf & _
        " AND TBL.CHAMPS5 <>' BBB '" & vbCrLf & _
        " AND TBL.CHAMPS6 <>' TEST 1'" & vbCrLf & _
        " AND TBL.CHAMPS6 <>'TEST2'"
 
 Set rs = cnx.Execute(requete)

J'obtiens l'erreur suivante : "La méthode 'Execute' de l'objet '_Connection' a échoué ".
Après quelques tests je m'apperçois que c'est le CHAMPS3 qui pose problème. Lorsque je l'enlève de ma requête, elle fonctionne parfaitement. Or, ce champs (Type réel double) est bien présent dans ma base. J'ai même essayé de le changer de type (en texte) et j'obtiens la même erreur.

Je ne comprends donc pas pourquoi ce champs pose problème.
Quelqu'un aurait-il une solution?

D'avance merci.

[Invité]

Bonjour

J'ai du mal à comprendre ton From : table_A TBL

Peux-tu détailler cette partie.

Philippe

[Daranc]

es tu sur que "& vbCrLf &" soit necessaire ce ne serait pas plutôt un chr$(10) voir rien du tout . tu met un code VBA dans un passage SQL
(d'un autre coté il y a un moment que je n'ai pas trifouiller dans les requêtes)

[Blencastreur]

Bonjour et merci pour vos réponses.

Philippe, TABLE_A est le "vrai" nom de ma table j'utilise TBL comme raccourci pour pouvoir l’appeler dans la sélection des champs et dans le filtrage des enregistrements. Cependant tu as raison cela ne sert pas à grand chose dans le cas présent car je ne fais appel qu'à une seule table. C'est plus par habitude que j'utilise cette méthode.

Daranc, j'utilise & vbCrLf & _ pour matérialiser un retour chariot. Ainsi lorsque ma requête plante je peux l'afficher plus clairement dans la fenêtre exécution (la requête ne s'affiche pas sur une seule ligne mais sur plusieurs pour plus de lisibilité)

[Blencastreur]

Quelqu'un a trouvé la solution, le champs qui posait problème portait en fait comme nom une expression réservée.
Ce qui est curieux c'est que j'effectuais exactement la même requête sur une base SQL SERVER et que ce nom de champs ne posait aucun problème.
Pour info le vrai nom de ce champs était "Position" (désolé de ne pas l'avoir précisé dans le post initial).

J'ai donc corrigé la requête comme suis pour qu'elle fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
requete = "SELECT TBL.CHAMPS1, TBL.CHAMPS2, [TBL.CHAMPS3]" & vbCrLf & _
        " FROM TABLE_A TBL" & vbCrLf & _
        " WHERE TBL.CHAMPS4='EEE'" & vbCrLf & _
        " AND TBL.CHAMPS5 <>' AAA '" & vbCrLf & _
        " AND TBL.CHAMPS5 <>' BBB '" & vbCrLf & _
        " AND TBL.CHAMPS6 <>' TEST 1'" & vbCrLf & _
        " AND TBL.CHAMPS6 <>'TEST2'"

Merci pour votre aide.

[Daranc]

donc problème résolu ?
à noter le chr$(10) est le code retour chariot