Requete SQL avec plusieurs variables?

Version imprimable

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:

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.

Bonjour Jojo,

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

Code:

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é.

Oups,

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

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
 
 
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