Bonjour,
Je cherche à importer des données venant d'une base de données SQL
Avec le Prog suivant, je l'importe dans Excel :
Dim qt As QueryTable
sqlstring = "Select CodeArticle,Design From ARTICLE "
connstring = "ODBC;DSN=XXXX;UID=XXX;XX=;"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("a1" ), Sql:=sqlstring)
.Refresh BackgroundQuery:=False
End With
Le but est d'importer les données dans un tableau VB genre "Array" ou autre sans passer par excel.
Est-ce que quelqu'un a une idée et pourrait éventuellement m'écrire le Prog ?
Merci.