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

VBA Discussion :

problème avec paramètres d'une requête


Sujet :

VBA

  1. #1
    Nouveau membre du Club
    Inscrit en
    Janvier 2009
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Janvier 2009
    Messages : 63
    Points : 35
    Points
    35
    Par défaut problème avec paramètres d'une requête
    Bonjour à tous,

    j'ai une requête assez compliquée avec un tas de paramètres (25) et je l'utilise pour remplir une table Access.
    Le problème c est que j'ai envie d'envoyer que certains paramètres à la requête, les paramètres restants étant des réels que je veux laisser égaux à 0. J ai alors le message :
    Trop peu de paramètres. 25 attendus

    comment puis je finter cela ?

    Merci d'avance et bonne année à tous.

  2. #2
    Nouveau membre du Club
    Inscrit en
    Janvier 2009
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Janvier 2009
    Messages : 63
    Points : 35
    Points
    35
    Par défaut
    pour info, le code pour utiliser une requête avec parametres est le suivant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Dim qdf As QueryDef 'requete
    Set qdf = CurrentDb.QueryDefs("maRequete")
    With qdf
        .Parameters("Parametre1") = valeur1
        .Parameters("Parametre2") = valeur2
       etc...
        .Execute
    End With
    Mon soucis est que dans la zone de Parameters, je n'envoie pas tous les paramètres à la requête. D'où le message d'erreur.

    Comment faire pour lui dire que les paramètres non passés doivent être ignorés ?

  3. #3
    Expert éminent

    Avatar de Maxence HUBICHE
    Homme Profil pro
    Développeur SQLServer/Access
    Inscrit en
    Juin 2002
    Messages
    3 842
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Développeur SQLServer/Access

    Informations forums :
    Inscription : Juin 2002
    Messages : 3 842
    Points : 9 197
    Points
    9 197
    Par défaut
    Au lieu d'utiliser directement la QueryDef, tu pourrais peut-être créer une classe qui t'initialise tous les paramètres à 0, et qui te fournisse une propriété pour définir uniquement les paramètres qui t'intéressent... non ?

  4. #4
    Nouveau membre du Club
    Inscrit en
    Janvier 2009
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Janvier 2009
    Messages : 63
    Points : 35
    Points
    35
    Par défaut
    si je créé la classe, je ne vois pas après comment j'appelle ma requête avec que les paramètres qui m'intéressent.

  5. #5
    Expert éminent

    Avatar de Maxence HUBICHE
    Homme Profil pro
    Développeur SQLServer/Access
    Inscrit en
    Juin 2002
    Messages
    3 842
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Développeur SQLServer/Access

    Informations forums :
    Inscription : Juin 2002
    Messages : 3 842
    Points : 9 197
    Points
    9 197
    Par défaut
    Eh bien, disons que si tu créais une classe qui ressemble à quelque chose comme :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    Option Explicit
     
    Public Parametres As Collection
    Public Query As DAO.querydef
     
    Public Function Executer() As Recordset
        'là, tu as la requete (Query)
        'Tu as aussi toutes les valeurs de tous les paramètres
        'Tu peux donc exécuter la requête
        'et renvoyer le recordset
    End Function
     
    Public Property Get Parametre(a_vIndex As Variant) As String
        Parametre = Parametres.Item(a_vIndex)
    End Property
     
    Public Property Let Parametre(a_vIndex As Variant, a_sNewVal As String)
        Parametres.Item(a_vIndex) = a_sNewVal
    End Property
     
    Private Sub Class_Initialize()
        Set Parametres = New Collection
        'Création des 25 paramètres initialisés à 0
        Parametres.Add 0, "NomParam1"
        Parametres.Add 0, "NomParam2"
        Parametres.Add 0, "NomParam3"
        Parametres.Add 0, "NomParam4"
        Parametres.Add 0, "NomParam5"
        Parametres.Add 0, "NomParam6"
        Parametres.Add 0, "NomParam7"
        Parametres.Add 0, "NomParam8"
        Parametres.Add 0, "NomParam9"
        Parametres.Add 0, "NomParam10"
        Parametres.Add 0, "NomParam11"
        Parametres.Add 0, "NomParam12"
        Parametres.Add 0, "NomParam13"
        Parametres.Add 0, "NomParam14"
        Parametres.Add 0, "NomParam15"
        Parametres.Add 0, "NomParam16"
        Parametres.Add 0, "NomParam17"
        Parametres.Add 0, "NomParam18"
        Parametres.Add 0, "NomParam19"
        Parametres.Add 0, "NomParam20"
        Parametres.Add 0, "NomParam21"
        Parametres.Add 0, "NomParam22"
        Parametres.Add 0, "NomParam23"
        Parametres.Add 0, "NomParam24"
        Parametres.Add 0, "NomParam25"
    End Sub
     
    Private Sub Class_Terminate()
        Set Parametres = Nothing
    End Sub
    Tu pourrais alors utiliser la classe plutôt que le querydef ainsi
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test()
        Dim o As Classe1
        Set o = New Classe1
        Set o.Query = currentdb.QueryDefs("NomRequête")
        o.Parametre(1) = "test"
        o.Parametre("NomParam8") = "Autre"
        o.Executer
    End Sub

  6. #6
    Nouveau membre du Club
    Inscrit en
    Janvier 2009
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Janvier 2009
    Messages : 63
    Points : 35
    Points
    35
    Par défaut
    très astucieux comme solution !
    finalement j'ai opté pour une solution moins élégante mais plus simple à mettre en oeuvre : je créé un tableau et je mets dedans les parametres non nuls. Apres j en deduit les parametres nuls que je rajoute juste avant le .Execute.

    En tous cas, merci pour ton aide !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 11/04/2013, 19h20
  2. Problème avec paramètre d'une fonction (classe)
    Par clement.analogue dans le forum Langage
    Réponses: 8
    Dernier message: 23/03/2010, 09h13
  3. Problème avec like dans une requête SQL
    Par Boublou dans le forum SQL
    Réponses: 2
    Dernier message: 16/08/2007, 16h46
  4. Problème avec coun(*) sur une requête
    Par Kaoru-tabris dans le forum Requêtes
    Réponses: 1
    Dernier message: 10/03/2007, 16h00
  5. [MySQL] Problème avec mysql_fetch_array et une requête qui ordonne(ASC)
    Par Jim_Nastiq dans le forum PHP & Base de données
    Réponses: 5
    Dernier message: 08/03/2007, 11h46

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