Variable dans requete sql

Version imprimable

17/09/2018, 17h09
cisco59

Variable dans requete sql

bonjour

comment utiliser une variable dans une requête sql

voila j'ai ceci

Code:

WHERE ((F_ARTICLE.AR_Sommeil) <> 1) And ((F_ARTFOURNISS.AF_Principal) = 1) and F_DEPOT.DE_Adresse = 'TOTO'

Je souhaite filtrer par choix dans une variable exemple" toto ou tata ou tonton etc..." ou tous

je n'arrive pas a modifier cette parti

Code:

F_DEPOT.DE_Adresse = 'TOTO'

merci d'avance
17/09/2018, 17h18
Invité

Bonsoir,
Regardes ça et on en reparle après.

https://www.developpez.net/forums/d1...a/#post9283354
17/09/2018, 18h12
cisco59

bonjour et merci
bon pour le moment je comprend que le fait de mettre

Code:

F_DEPOT.DE_Adresse = ?

permet d'ouvrir une fenêtre avec le choix a écrire sauf que moi je récupère cette variable depuis un combobox d'un userform

Code:

TxtVar2 = Sheets("Hoja1").Range("m1")

ensuite si j’écris

Code:

F_DEPOT.DE_Adresse = '" TxtVar2 "'

j'ai une erreur
17/09/2018, 18h17
Invité

Code:

Set prm(0) = Cn.Param("ID", adInteger, adParamInputOutput, 4, "500")

Oui mais ici tu donne le nom et le type de champ et la valeur c'est ta combbox.

Mais déjà comment tu fais ta connexion à ta base de données ?
17/09/2018, 18h33
Pierre Fauconnier

Salut.

Je ne comprends pas bien que l'on puisse te répondre sans savoir sur quoi tu te connectes et comment tu t'y connectes.

Donne le code que tu utilises pour créer ta connexion et ta chaîne sql, et on pourra mieux t'aider. Sinon, dans 50 messages, on en sera au même point... :)

Il existe des classes génériques pour la connexion aux données qui évitent de réinventer la poudre à chaque fois...

voici mon code

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
Dim rs As Object
    Dim sql As String
    Dim Conn As ADODB.Connection
    Set Conn = New ADODB.Connection
    Conn.ConnectionString = "DSN=" & "serveur" & ";Trusted_Connection=Yes"
    Conn.Open
    Set rs = New ADODB.Recordset
sql = " SELECT distinct " & _
" F_ARTSTOCK.AR_Ref, " & _
"F_ARTICLE.AR_Design, " & _
"F_ARTFOURNISS.AF_RefFourniss, " & _
"F_COMPTET.CT_Intitule ," & _
"F_DEPOT.DE_Adresse, " & _
"F_DEPOTEMPL.DP_Code AS Gisement " & _
" FROM F_COMPTET INNER JOIN (F_ARTFOURNISS INNER JOIN (F_DEPOT INNER JOIN " & _
"((F_ARTSTOCK INNER JOIN F_ARTICLE ON F_ARTSTOCK.AR_Ref = F_ARTICLE.AR_Ref) " & _
"INNER JOIN F_DEPOTEMPL ON F_ARTSTOCK.DP_NoPrincipal = F_DEPOTEMPL.DP_No) ON F_DEPOT.DE_No = F_ARTSTOCK.DE_No)" & _
"ON F_ARTFOURNISS.AR_Ref = F_ARTSTOCK.AR_Ref) ON F_COMPTET.CT_Num = F_ARTFOURNISS.CT_Num " & _
"WHERE  ((F_ARTICLE.AR_Sommeil) <> 1) And ((F_ARTFOURNISS.AF_Principal) = 1) and   F_DEPOT.DE_Adresse = 'toto'  "
sql = sql & strSearchSql & " ;"
Debug.Print sql
 
    rs.Open sql, Conn, 1, 2, 1
 
 
    ws.Range("a2").CopyFromRecordset rs
 
    rs.Close
    Conn.Close

et c'est ici que je souhaite filtrer

Code:

F_DEPOT.DE_Adresse = 'toto'

C'est pas comme ça que je ferai personnellement mais ça marche.
Code:

1 2 3 dim MyCombBox as string MyCombBox="toto" " F_DEPOT.DE_Adresse = '" & replace(MyCombBox,"'","''") & "'

17/09/2018, 18h55
cisco59

bonjour
bon je ne peux pas tester ici donc je regarde demain
par contre si je ne veux pas filtrer cad avoir toute les occurrences je peux faire comment

merci deja

j'ai essayer ceci
Code:

1 2 3 4 5 6 If TxtVar2 = "*" Then TxtVar3 = " " Else MyCombBox = "toto" TxtVar3 = " (F_DEPOT.DE_Adresse = '" & Replace(MyCombBox, "'", "''") & "' ) " End If
la premiere parti fonctionne mais pas la 2eme

Code:

"WHERE (BASE.CPRO='" & TxtVar & "') and '" & TxtVar3 & "' "

18/09/2018, 08h37
Invité

Bonjour,

Le And sépare les termes ne les concatène pas
"WHERE (BASE.CPRO='" & TxtVar & "') and (BASE.CPRO='" & TxtVar3 & "')"