L
Ludovic
Guest
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:
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: