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

Version imprimable

05/01/2011, 14h33
zskiredj

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.
05/01/2011, 15h21
zskiredj
pour info, le code pour utiliser une requête avec parametres est le suivant :
Code:

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 ?
05/01/2011, 16h12
Maxence HUBICHE

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 ?
05/01/2011, 16h32
zskiredj

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. :?

Eh bien, disons que si tu créais une classe qui ressemble à quelque chose comme :

Code:

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:

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

06/01/2011, 11h00
zskiredj

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 !