Discussion :

[jojo86]

Bonjour,
Le titre n'est pas très explicite, néanmoins, je vais vous expliquer.

J'ai une variable tableau qui contient des valeurs. Je souhaiterais pour chacune de ces valeurs, executer une requete sql qui irait chercher d'autres informations en fonction de ces différentes valeurs.

Pour le moment je fais une boucle qui execute la requete pour chaque valeur de ma variable tableau. Le soucis c'est que la procedure est assez longue surtout si ma variable tableau contient une 20ene de lignes.

Voici mon code :

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
 
Public Montableau() As String
 
Sub RequeteAutreNomModif()
Dim Requete As String
Dim i As Integer
ReDim ValeurRequete(UBound(MonTableau))
For i = LBound(MonTableau) To UBound(MonTableau)
    Call ConnexionBase
    Requete = "SELECT Champ FROM [Table$] WHERE Critere='" _
    & Replace(MonTableau(i), "'", "''") & "'"
    Rst.Open Requete, Cn, adOpenStatic
    ValeurRequete(i) = Rst.Fields(0).Value
    Call DeconnexionBase
Next i
End Sub

Ce code fonctionne parfaitement, mais est assez long. Connaissez vous une methode pour envoyer l'enssemble de la variable tableau en paramètre?
Est-ce possible?

Merci de votre aide à tous.

Cordialement,
Jojo.

[Theze]

Bonjour Jojo,

As tu essayé avec le prédicat AND ? du style :

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
 
 
Sub RequeteAutreNomModif()
 
    Dim SQL As String
    Dim I As Integer
 
    SQL = SQL & "SELECT Champ FROM [Table$] WHERE Critere='" _
              & Replace(Montableau(1), "'", "''") & "'"
 
    For I = LBound(Montableau) + 1 To UBound(Montableau)
 
        SQL = SQL & " AND Critere='" _
                  & Replace(Montableau(I), "'", "''") & "'"
    Next I
 
    Debug.Print SQL 'contrôle de la construction SQL
 
End Sub

Je n'ai pas testé.

Hervé.

[Theze]

Oups,

C'est mieux avec OR, donc un truc du genre :

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
 
 
Sub RequeteAutreNomModif()
 
    Dim SQL As String
    Dim I As Integer
 
    SQL = SQL & "SELECT Champ FROM [Table$] WHERE Critere='" _
              & Replace(Montableau(1), "'", "''") & "'"
 
    For I = LBound(Montableau) + 1 To UBound(Montableau)
 
        SQL = SQL & " OR Critere='" _
                  & Replace(Montableau(I), "'", "''") & "'"
    Next I
 
    Debug.Print SQL 'Contrôle de la chaîne
 
    With Rst
 
        .Open SQL, Cn, adOpenStatic
        .MoveFirst
 
        Do Until .EOF
            I = I + 1
             ValeurRequete(I) = .Fields(0)
            .MoveNext
        Loop
 
    End With
 
End Sub