IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Requete avec recordset ADODB vb6 et Access 2000 (jet 4.0)


Sujet :

VB 6 et antérieur

  1. #1
    Nouveau Candidat au Club
    Inscrit en
    Septembre 2006
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Septembre 2006
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Requete avec recordset ADODB vb6 et Access 2000 (jet 4.0)
    Bonjour j'éprouve de la difficulté à faire une requete SQL avec Visual Basic 6.0 (vb6) et Access 2000 (Jet 4.0)

    J'ai join un petit fichier txt pour bien expliquer le problème que j'ai...

    Alors regarder ca, j'espère que vous aurez pas autant de difficulter que moi.. je suis pas très habitué à faire ce genre de requête...
    je crois qu'il me faut seulement mettre la bonne valeur dans ma Variable "Requete" mais si vous connaissez une methode plus efficace
    je serais preneur...


    Merci beaucoup et bonne journée!

    Mathieu
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent
    Avatar de bidou
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Mai 2002
    Messages
    3 055
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Transports

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 055
    Points : 7 962
    Points
    7 962
    Par défaut
    si j'ai bien compris ton scéma, ta requête Access devrait être
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    SELECT Extrusion.Nom_Extrusion, Extrusion.Description_Extrusion
    FROM Extrusion INNER JOIN (ASS_EXTRUSION_ET_TYPE_EXTRUSION INNER JOIN TYPE_EXTRUSION ON ASS_EXTRUSION_ET_TYPE_EXTRUSION.No_Type_Extrusion = TYPE_EXTRUSION.No_Type_Extrusion) ON Extrusion.No_Extrusion = ASS_EXTRUSION_ET_TYPE_EXTRUSION.No_Extrusion
    WHERE (((TYPE_EXTRUSION.No_Type_Extrusion)=1));

  3. #3
    Membre éclairé Avatar de Le Pharaon
    Profil pro
    Inscrit en
    Mai 2004
    Messages
    880
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2004
    Messages : 880
    Points : 742
    Points
    742
    Par défaut
    Requete = "SELECT EXTRUSION.Nom_Extrusion, EXTRUSION.Description_Extrusion "
    Requete = Requete & "FROM EXTRUSION "
    Requete = Requete & "INNER JOIN ASS_EXTRUSION_ET_TYPE_EXTRUSION "
    Requete = Requete & "ON TYPE_EXTRUSION.No_Extrusion = EXTRUSION.No_Extrusion AND TYPE_EXTRUSION.No_Type_Extrusion=1"
    Une restriction dans une jointure !
    Essaye de remplacer ce que j'ai mis en gras par une close WHERE
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    WHERE TYPE_EXTRUSION.No_Type_Extrusion=1"

Discussions similaires

  1. resultat requete avec recordset
    Par santacrus dans le forum VBA Access
    Réponses: 4
    Dernier message: 13/09/2008, 16h19
  2. Requete sql complexe sous VB6 en access
    Par haytham dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 26/04/2008, 10h08
  3. Réponses: 19
    Dernier message: 07/06/2006, 08h06
  4. Réponses: 2
    Dernier message: 02/12/2005, 10h53
  5. Attacher dbf avec Access 2000.
    Par Thierry8 dans le forum Access
    Réponses: 2
    Dernier message: 05/10/2005, 13h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo