Appel de données en SQL dans VBA Résolu

Question

Bonjour,
Bonjour,

J'ai du code SQL dans ma macro Excel. Comment faire pour faire afficher les informations d'une table en SQL. Par exemple, le champs en GRAS. Je ne suis pas capable de l'afficher correctement car j'ai plus d'une table qui se termine avec le nom DESCRIPTION.

ici, la dernière ligne n'est pas bonne...pourquoi?

Merci de donner un p'tit coup de pouce à un novice:-)

Set rstDetails = dbs.OpenRecordset("SELECT FT_HORAIRE_DETAIL_TB.DATE_JOUR, FI_UNITE_ADMINIST_TB.SERVICECODE, FI_SERVICE_TB.DESCRIPTION;")


Worksheets(ActiveSheet.Name).Range("A" & i + 2).Value = rstDetails!DATE_JOUR
Worksheets(ActiveSheet.Name).Range("D" & i + 2).Value = rstDetails!serviceCode
Worksheets(ActiveSheet.Name).Range("E" & i + 2).Value = rstDetails!FI_SERVICE_TB.DESCRIPTION

Mairequimby · Answer

J'ai ma réponse

gbinforme · Answer

bonjour

Cela aurait été très bien de l'expliciter un peu pour ceux qui auront le même problème : c'est le principe même de l'entraide en permettant d'aider ceux qui cherchent la même question.

Mairequimby · Answer

C'EST SIMPLE, il faut donner des ALIAS aux tables semblable

par exemple
Set rstDetails = dbs.OpenRecordset("SELECT FT_HORAIRE_DETAIL_TB.DATE_JOUR, FI_UNITE_ADMINIST_TB.SERVICECODE, FI_SERVICE_TB.DESCRIPTION AS NOMADONNER;")


Worksheets(ActiveSheet.Name).Range("A" & i + 2).Value = rstDetails!DATE_JOUR
Worksheets(ActiveSheet.Name).Range("D" & i + 2).Value = rstDetails!serviceCode
Worksheets(ActiveSheet.Name).Range("E" & i + 2).Value = rstDetails!NOMADONNER

Voila c'est tout. Simple mais très efficace

gbinforme · Answer

bonjour Mairequimby, 

Merci beaucoup, ton explication est parfaite pour tous ceux qui vont chercher ce sujet.

Appel de données en SQL dans VBA

4 réponses

Discussions similaires

Newsletters