Appel de données en SQL dans VBA
Résolu
Mairequimby
Messages postés
10
Statut
Membre
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Appel de données en SQL dans VBA
- Fuite données maif - Guide
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Appel privé - Guide
- Effacer les données de navigation sur android - Guide
- Trier des données excel - Guide
4 réponses
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.
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.
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
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
