Requete SQL avec IN

Version imprimable

3 pièce(s) jointe(s)

Requete SQL avec IN

Bonsoir,

Code fonctionnant:

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 Inf_TDC(Da)
 
    Dim StrSQL As String
 
    If varPartenaire = "OUI" Then
        varPartenaire = "PCO" & Da & "000"
        varDa = "*.*"
    Else
        varPartenaire = "*.*"
        varDa = Da
    End If
 
    Set Cnn = New ADODB.Connection
 
    Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";Extended Properties='Excel 12.0;HDR=Yes'"
 
    StrSQL = "SELECT sum(Montant) as MT " & _
        " From BD " & _
        "WHERE PCE = '" _
                & varCompte _
            & "' AND Partenaire = '" _
                & varPartenaire _
            & "' AND Segment = '" _
                & varSegment _
            & "' AND Tp IN " & varTypePiece
 
    Set rs = Cnn.Execute(StrSQL)
 
    Valeur = rs(0)
End Sub

Pièce jointe 604345

Code ne fonctionnant plus

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
 
Sub Inf_TDC(Da)
 
    Dim StrSQL As String
 
    If varPartenaire = "OUI" Then
        varPartenaire = "PCO" & Da & "000"
        varDa = "*.*"
    Else
        varPartenaire = "*.*"
        varDa = Da
    End If
 
    Set Cnn = New ADODB.Connection
 
    Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";Extended Properties='Excel 12.0;HDR=Yes'"
 
    StrSQL = "SELECT sum(Montant) as MT " & _
        " From BD " & _
        "WHERE PCE = '" _
                & varCompte _
            & "' AND Partenaire = '" _
                & varPartenaire _
            & "' AND Segment = '" _
                & varSegment _
            & "' AND Tp IN " & varTypePiece _
            & "' AND CB IN " & varCodeBudgetaire
 
    Set rs = Cnn.Execute(StrSQL)
 
    Valeur = rs(0)
End Sub

Pièce jointe 604346

Pièce jointe 604347

Merci pour vos suggestions

Eric

03/09/2021, 23h25
Thumb down

bonsoir,
dans Excel les cellule ne sont pas typé en revanche ADO type ses champ par apprentissage il est for possible qu'il est typé CB en Integer!
04/09/2021, 08h00
Eric_03

Merci pour ta suggestion,

J'ai remplacé toutes les valeurs du champ CB en alpha pour tester mais malheureusement sans succès.

Eric
04/09/2021, 08h25
Philippe Tulliez

Bonjour,
Si ma vue est bonne, il me semble voir une apostrophe orpheline juste après la parenthèse fermante et avant le AND CB IN ("1201...... de la variable StrSQL
04/09/2021, 08h32
Eric_03

Dans la ligne StrSQL une apostrophe de trop s'est glissée entre '')' et AND CB IN

Code:

& " ' AND CB IN " & varCodeBudgetaire

Merci
Eric
04/09/2021, 09h54
Eric_03

N'ayant pas actualisé ma page internet je n'avais pas vu la réponse de Philippe qui répondait au problème. De plus après avoir rectifié l'erreur l'observation de Thumb down sur le typage du champ est important.
Merci
Eric