Incorrect syntax near the keyword 'with'.

Version imprimable

11/09/2019, 12h39
ozerisinfo

Incorrect syntax near the keyword 'with'.

bonjour,

mon application creer en vb.net me donne cette erreur

Citation:

'System.Runtime.InteropServices.COMException (0x80040E14): Incorrect syntax near the keyword 'with'.
at ADODB.RecordsetClass.Open(Object Source, Object ActiveConnection, CursorTypeEnum CursorType, LockTypeEnum LockType, Int32 Options)'

Malgré qu'il est testé dans un autre Pc sur réseau et ça marchait sans aucune erreur
base de donner sur sql server 2008 r2.
11/09/2019, 12h44
Sankasssss

Bonjour et bienvenue sur dvp.com,

Il nous faudrait le code source où l'erreur se déclenche pour pouvoir vous aider.

bonjour et merci pour votre réactivité rapide;
ma code source est :

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
Public Sub Fill_DG()
 
        Dim rsRolls As New ADODB.Recordset
 
        DGV.Enabled = False
        DGV.Rows.Clear()
        With rsRolls
 
next_step:
            ' Show the last roll produced
            .Open("with t1 as(select sum(isnull(poids,0)) prodm,MONTH(datefab) mois1,YEAR(datefab) an from etiquette where DATEPART(day,datefab) between '1' and '31' and YEAR(datefab)='" & CmB1.Text & "' group by MONTH(datefab),YEAR(datefab)),t2 as(select SUM(ISNULL(poids,0)) prod1,MONTH(datefab) mois,YEAR(datefab) an1 from etiquette where DATEPART(day,datefab)='1' and YEAR(datefab)='" & CmB1.Text & "'and DATEPART(hour,datefab)>= '0' and datepart(hour,datefab)<'6' group by MONTH(datefab),YEAR(datefab)),t3 as(select SUM(isnull(poids,0)) prod2,MONTH(datefab)-1  mois2,YEAR(datefab) an2 from etiquette where DATEPART(day,datefab)='1' and YEAR(datefab)='" & CmB1.Text & "'and DATEPART(hour,datefab)>= '0' and datepart(hour,datefab)<'6' group by MONTH(datefab),YEAR(datefab)),t4 as(select  t1.mois1 moisprod,T1.AN ANNEE,case when t1.prodm-t2.prod1+t3.prod2 is null then t1.prodm-t2.prod1 else t1.prodm-t2.prod1+t3.prod2 end as Production from t1 Join t2 on t1.mois1=t2.mois and t1.an=T2.an1 left Join t3 on t1.mois1=t3.mois2 AND T1.an=T3.an2),t5 as(select year(datefab)-1 anf,sum(isnull(poids,0)) tp,month(datefab)+11 mf from etiquette where datepart(day,datefab)='1'and year(datefab)='" & CmB1.Text & "'+1 and datepart(hour,datefab)>'0'and datepart(hour,datefab)<'6'and month(datefab)='1'group by year(datefab),month(datefab)),t6 as(select t4.moisprod moisprod,t4.annee ANNEE,case when round((t4.Production+t5.tp)/1000,0) is null then round(t4.Production/1000,0) else round((t4.Production+t5.tp)/1000,0) end as Production from t4 left join t5 on t4.moisprod=t5.mf and t4.annee=t5.anf) select production,moisprod from t6 where annee='" & CmB1.Text & "'", Connexion, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
            If .EOF Then GoTo enable_panel
            .MoveFirst()
            Do While Not .EOF
                DGV.Rows.Add(.Fields("MOISPROD").Value, _
                             .Fields("Production").Value
                             )
 
                .MoveNext()
            Loop
            .Close()
            DGV.Enabled = True
enable_panel:
 
        End With
    End Sub

le problème dans le syntaxe 'with' a noter que ma requette est tester sur sql Server management studio sans erreur

Votre problème se situe donc au niveau de la requête SQL :

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
with t1 as(
   select sum(isnull(poids,0)) prodm,
        MONTH(datefab) mois1,
        YEAR(datefab) an 
   from etiquette 
   where DATEPART(day,datefab) between '1' and '31' 
             and YEAR(datefab)='" & CmB1.Text & "' 
             group by MONTH(datefab),YEAR(datefab)
)
,t2 as(
   select SUM(ISNULL(poids,0)) prod1,
        MONTH(datefab) mois,
        YEAR(datefab) an1 
        from etiquette 
   where DATEPART(day,datefab)='1' 
             and YEAR(datefab)='" & CmB1.Text & "'
             and DATEPART(hour,datefab)>= '0' 
             and datepart(hour,datefab)<'6' 
   group by MONTH(datefab),YEAR(datefab)
)
,t3 as(
   select SUM(isnull(poids,0)) prod2,
        MONTH(datefab)-1  mois2,
        YEAR(datefab) an2 
   from etiquette 
   where DATEPART(day,datefab)='1' 
        and YEAR(datefab)='" & CmB1.Text & "'
        and DATEPART(hour,datefab)>= '0' 
        and datepart(hour,datefab)<'6' 
   group by MONTH(datefab),YEAR(datefab)
)
,t4 as(
   select  t1.mois1 moisprod,T1.AN ANNEE,
             case when t1.prodm-t2.prod1+t3.prod2 is null then t1.prodm-t2.prod1 
             else t1.prodm-t2.prod1+t3.prod2 
             end as Production 
    from t1 
    Join t2 
        on t1.mois1=t2.mois and t1.an=T2.an1 
    left Join t3 
        on t1.mois1=t3.mois2 AND T1.an=T3.an2
)
,
t5 as(
   select year(datefab)-1 anf,
             sum(isnull(poids,0)) tp,
             month(datefab)+11 mf 
   from etiquette 
   where datepart(day,datefab)='1'
             and year(datefab)='" & CmB1.Text & "'+1 
             and datepart(hour,datefab)>'0'
             and datepart(hour,datefab)<'6'
             and month(datefab)='1'
    group by year(datefab),month(datefab)
)
,t6 as(
   select t4.moisprod moisprod,
             t4.annee ANNEE,
             case when round((t4.Production+t5.tp)/1000,0) is null then round(t4.Production/1000,0) 
             else round((t4.Production+t5.tp)/1000,0) 
             end as Production 
   from t4 
   left join t5 
             on t4.moisprod=t5.mf and t4.annee=t5.anf
) 
 
select production,moisprod 
from t6 
where annee='" & CmB1.Text & "'"

Je suis déjà étonné que cela puisse fonctionner sur un autre PC car déjà cette ligne (et surement d'autres) :

Code:

and year(datefab)='" & CmB1.Text & "'+1

N'a pas de sens. Car si CmB1 contient bien une année, disons 2019 la requête donnerait :

Code:

and year(datefab)='2019'+1

Je ne sais pas quel est votre SGBD mais en SQL serveur c'est une concaténation. Et même si ça ne l'est pas chez vous, ça n'a pas de sens de mettre des quotes pour des données numériques.

Sinon, bête question, c'est bien du vb.Net? Pas plutôt du VB6?

11/09/2019, 15h38
Pol63

je suis pas sur qu'adodb supporte le mot clé with

personne n'utilise adodb en .net, il y a ado.net ...

merci a vous deux,
et merci pour Pol63
problème résolu avec l'utilisation de ado.net.
merci infiniment
et pour qui cherche:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Public Sub Fill_DG()
 
        DGV.Enabled = False
        DGV.Rows.Clear()
        'chemincn est un fichier text qui comporte l'emplacement de ma base
        Dim cn As New SqlConnection(chemincn)
        Dim cmd As New SqlCommand("with t1 as(select sum(isnull(poids,0)) prodm,MONTH(datefab) mois1,YEAR(datefab) an from etiquette where DATEPART(day,datefab) between '1' and '31' and YEAR(datefab)=" & CmB1.Text & " group by MONTH(datefab),YEAR(datefab)),t2 as(select SUM(ISNULL(poids,0)) prod1,MONTH(datefab) mois,YEAR(datefab) an1 from etiquette where DATEPART(day,datefab)='1' and YEAR(datefab)=" & CmB1.Text & " and DATEPART(hour,datefab)>= '0' and datepart(hour,datefab)<'6' group by MONTH(datefab),YEAR(datefab)),t3 as(select SUM(isnull(poids,0)) prod2,MONTH(datefab)-1  mois2,YEAR(datefab) an2 from etiquette where DATEPART(day,datefab)='1' and YEAR(datefab)=" & CmB1.Text & " and DATEPART(hour,datefab)>= '0' and datepart(hour,datefab)<'6' group by MONTH(datefab),YEAR(datefab)),t4 as(select  t1.mois1 moisprod,T1.AN ANNEE,case when t1.prodm-t2.prod1+t3.prod2 is null then t1.prodm-t2.prod1 else t1.prodm-t2.prod1+t3.prod2 end as Production from t1 Join t2 on t1.mois1=t2.mois and t1.an=T2.an1 left Join t3 on t1.mois1=t3.mois2 AND T1.an=T3.an2),t5 as(select year(datefab)-1 anf,sum(isnull(poids,0)) tp,month(datefab)+11 mf from etiquette where datepart(day,datefab)='1'and year(datefab)=" & CmB1.Text & "+1 and datepart(hour,datefab)>'0'and datepart(hour,datefab)<'6'and month(datefab)='1'group by year(datefab),month(datefab)),t6 as(select t4.moisprod moisprod,t4.annee ANNEE,case when round((t4.Production+t5.tp)/1000,0) is null then round(t4.Production/1000,0) else round((t4.Production+t5.tp)/1000,0) end as Production from t4 left join t5 on t4.moisprod=t5.mf and t4.annee=t5.anf) select production,moisprod from t6 where annee=" & CmB1.Text & "", cn)
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter(cmd)
        cn.Open()
        Dim rd As SqlDataReader = cmd.ExecuteReader
 
 
        If rd.HasRows Then
            While rd.Read
                DGV.Rows.Add(rd(1), rd(0))
            End While
        End If
        rd.Close()
 
        DGV.Enabled = True
 
    End Sub

12/09/2019, 08h12
Sankasssss

C'est une bonne chose que vous ayez changé pour ado.net

Vous disiez dans le message supprimé :

Citation:

mais sur le pc principale qui comporte le base de donnée sql server il ne fonctionne plus.

Fait donc bien attention, car comme je le disais précédemment, sur SQL serveur, ceci :

Code:

and year(datefab)='" & CmB1.Text & "'+1

Donne ceci :

Code:

and year(datefab)='2019'+1

Ce qui donne en fait ceci :

Code:

and year(datefab)='20191'

Alors que je suis persuadé que vous vouliez :

Code:

and year(datefab)='2020'

Autre petite amélioration. Essayez d'utiliser les requêtes paramétrées : https://webman.developpez.com/articl...rameter/vbnet/
12/09/2019, 10h04
ozerisinfo

Merci pour votre aide, pour les cotes comme vous voyez j'ai déjà supprimé dans le nouveau code.
pour l'utilisation des requêtes paramétrées je prendre cette remarque et je vais essayer merci.