Appel de données en SQL dans VBA
Résolu/Fermé
Mairequimby
Messages postés
10
Date d'inscription
mardi 1 décembre 2009
Statut
Membre
Dernière intervention
15 décembre 2009
-
14 déc. 2009 à 18:17
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 15 déc. 2009 à 21:16
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 15 déc. 2009 à 21:16
A voir également:
- Appel de données en SQL dans VBA
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Appel inconnu - Guide
- Supprimer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
- Trier des données excel - Guide
4 réponses
Mairequimby
Messages postés
10
Date d'inscription
mardi 1 décembre 2009
Statut
Membre
Dernière intervention
15 décembre 2009
15 déc. 2009 à 15:29
15 déc. 2009 à 15:29
J'ai ma réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
15 déc. 2009 à 16:23
15 déc. 2009 à 16:23
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.
Mairequimby
Messages postés
10
Date d'inscription
mardi 1 décembre 2009
Statut
Membre
Dernière intervention
15 décembre 2009
15 déc. 2009 à 19:03
15 déc. 2009 à 19:03
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
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
15 déc. 2009 à 21:16
15 déc. 2009 à 21:16
bonjour Mairequimby,
Merci beaucoup, ton explication est parfaite pour tous ceux qui vont chercher ce sujet.
Merci beaucoup, ton explication est parfaite pour tous ceux qui vont chercher ce sujet.