[XL-2003] Requête SQL impossible avec objet QueryTable [Résolu]

[Sclarckone]

Bonjour,

J'ai besoin d'utiliser un objet de type QueryTable pour récupérer des données d'un fichier Access.
Le problème survient lorsque je veux exécuter une requête SQL avec une clause "WHERE". J'ai alors une belle erreur 1004:

Error 1004 La requête ne s'est pas exécutée ou la table de la base de données n'a pas pu être ouverte.

Le code utilisé est le suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        'Extraction des stats
        strConnection = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbStatPath & ";Persist Security Info=False"
        Set rngDestination = myStatSheet.Range("A1")
        strSql = "SELECT course,section,vitesse_moy,ecart_type" & _
                " FROM " & strStatTbl & _
                " WHERE section=" & CStr(arrSections(i)) & ";"
 
        With myStatSheet.QueryTables.Add(strConnection, rngDestination, strSql)
            .AdjustColumnWidth = True
            .BackgroundQuery = True
            .Refresh
        End With
 
'dbStatPath et strStatTbl sont des 'string' contenant respectivement le chemin absolu de la bdd Access et le nom de la table sur laquelle récupérer les données, arrSections() un tableau de 'Long'

Là où ça devient troublant c'est que si j'exécute la requête suivante:

Code :

1
2
strSql = "SELECT * & _
        " FROM " & strStatTbl & ";"

...ça marche!

J'ai essayé de le faire directement sous Excel et même topo. Si j'utilise '*' pour désigner les colonnes à récupérer ET que je ne précise pas de clause 'WHERE' alors ça fonctionne. Mais si j'essaie de faire exécuter ma requête "complète" alors j'ai le même message d'erreur.

Je précise que la même requête exécutée dans la base Access fonctionne parfaitement.

Il y a là quelque chose qui m'échappe...merci d'avance pour votre aide.

[Theze]

Bonjour,

Et de cette façon ?

Code :

1
2
3
4
 
        strSql = "SELECT course, section, vitesse_moy, ecart_type " & _
                 "FROM " & strStatTbl & _
                 " WHERE section='" & CStr(arrSections(i)) & "';"

Hervé.

[Sclarckone]

Ça plante également (d'ailleurs j'avais oublié de le préciser mais c'est sur le .Refresh que cela plante).

Mais les apostrophes servent normalement à indiquer en SQL que l'on fait référence à une chaine de caractère, non? Or dans mon cas, arrSections(i) renvoie bien un entier et la colonne 'section' de ma table est bien de type entier également.

[Theze]

Re,

Il y a quelque chose que je ne comprend pas, Tu me dis :

dans mon cas, arrSections(i) renvoie bien un entier et la colonne 'section' de ma table est bien de type entier également

La fonction Cstr() renvoie un String, alors pourquoi faire la conversion en String ?

CStr(arrSections(i))

Hervé.

[jfontaine]

Bonjour,

Quelle est la valeur de la variable StrSQL lors du Refresh ?

[Sclarckone]

Envoyé par Theze

Re,

La fonction Cstr() renvoie un String, alors pourquoi faire la conversion en String ?

Hervé.

Parce que ma requête SQL est une chaîne de caractères. VBA le ferait certainement automatiquement mais ça ne me coûte pas grand chose de le faire explicitement. Ce que je veux surtout dire par rapport à mon type entier c'est qu'en SQL, si le champ 'machin' est de type entier la clause WHERE ressemble à ça:

Code :

WHERE machin=2

Alors que si mon champ 'machin' est de type texte, du coup il faudra écrire:

Code :

WHERE machin='2'

C'est pour ça que dans mon cas je ne pense pas qu'il faille mettre des apostrophes. D'ailleurs, comme je le précisais dans mon premier post, si j'exécute la requête telle qu'elle est écrite dans mon code directement dans la bdd (sous Access), elle fonctionne parfaitement!

Envoyé par jfontaine

Bonjour,

Quelle est la valeur de la variable StrSQL lors du Refresh ?

Au premier passage dans la boucle:

Code :

SELECT course,section,vitesse_moy,ecart_type FROM Stats_c WHERE section=1;

Désolé pour le flood mais j'ai découvert un nouveau symptôme...comme expliqué, si je fais la manip' à la main sous Excel, j'obtiens la même erreur (même avec d'autres tables de la même bdd) mais avec une autre bdd, les requêtes SQL dans le même genre fonctionnent!

Il doit donc y avoir un souci avec cette bdd...

[jfontaine]

oups, en effet je percute sur le message d'erreur

Error 1004 La requête ne s'est pas exécutée ou la table de la base de données n'a pas pu être ouverte.

ta requête n'a rien a voir avec ton problème.
Est ce que le fichier .mdb s'ouvre avec access

[Sclarckone]

Envoyé par jfontaine

Est ce que le fichier .mdb s'ouvre avec access

Oui, pafaitement. Les requêtes s'exécutent sans problème également sous Access.

[Sclarckone]

J'ai fini par trouver la solution que je me permets de préciser au cas où d'autres rencontreraient un problème similaire...

Je me suis aperçu que la requête fonctionnait avec une clause WHERE portant sur d'autre champs . J'en suis donc arrivé à la conclusion que c'est le nom du champ ('section') qui doit être ambigüe pour Jet (à moins que la cause soit tout autre mais étant donné l'étendue de mes connaissances en SQL, je serais bien incapable de le dire).

Pour lever "l'ambigüité", il suffit de mettre le nom du champ entre crochets:

Code :

1
2
3
        strSql = "SELECT course,section,vitesse_moy,ecart_type" & _
                " FROM " & strStatTbl & _
                " WHERE [section]=" & CStr(arrSections(i)) & ";"

Et ça marche!