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

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

A voir également:

Appel de données en SQL dans VBA
Appel anonyme - Guide
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Comment reecouter un appel sur iphone - Forum Huawei
Incompatibilité de type vba ✓ - Forum Programmation

4 réponses

Réponse 1 / 4

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

J'ai ma réponse

Réponse 2 / 4

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
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.

Réponse 3 / 4

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

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

Réponse 4 / 4

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
15 déc. 2009 à 21:16

bonjour Mairequimby,

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

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Renvoie code ooredoo

SQL Lister les tables d'une base

Exemple de base de données access

ou sont les bananes ?

Discussions similaires

Newsletters