Extraction Odbc

[Ludovic]

Je cherche à effectuer une requete odbc et renvoyer le resultat dans une variable mais j'ai un message erreur d'execution 13 incompatibilité de type...

Pouvez vous m'aider ????

Voila la requete :

Sql = 'SELECT '
Sql = Sql & Chr(13) & '' & Chr(10) & 'FROM CPT2C9 CPT2C9 '
Sql = Sql & 'where cpt2c9.dos=1 and cpt2c9.cpt=60710100'
With ActiveSheet.QueryTables.Add(Connection:= _
'ODBC;DATABASE=ODBC MG;DSN=ODBC MG;UID=' & util & ';PWD=' & mdp & ';', Destination _
:=i)
.Sql = Array(Sql)
.Refresh False
End With

:whistle:

 

[Ashaar]

Bonjour,

Si tu le tape sous cette forme (sans passer par une variable), ça passe ?

.Sql = Array( _
'SELECT ' _
, 'FROM CPT2C9 CPT2C9 ' _
, 'WHERE cpt2c9.dos=1 and cpt2c9.cpt=60710100')

 

[loic38]

une astuce pour les codes odbc avec sql

moi je m'embête pas à saisir les codes sql dans excel
dans un premier via MSQUERY (le bon vieil ancêtre d'ACCESS) je fais une requête que je teste en la modifiant
dans MSQUERY je clique sur l'icone SQL (une fenêtre s'ouvre avec toutes les instructions sauvegardées par MSQUERY)
je fais un copier coller des instructions contenues dans cette fenêtre vers EXCEL

et celà marche

il y a un autre utilitaire que j'ai téléchargé sur internet qui s'appelle EXCELSQL
Il existe deux versions : 97 + 2000
une macro complémentaire est à installer dans le répertoire des macros complémentaires
une fois sélectée, la macro complémentaire s'installe dans le menu d'une feuille de EXCEL
le principe est de récupérer directement dans une feuille EXCEL via ODBC le contenu d'une base référencée dans ODBC
on peut même lui appliquer des critères d'import, etc
cet utilitaire bien qu'en Anglais est vraiment très efficace
et il est gratuit

va voir sur google l'adresse du site

 

[Ludovic]

Le Pb ne vient pas de la variable sql mais de la variable de destination i