Discussion :

[DeWaRs]

Bonjour à tous.

je fait face à un problème qui me dépasse ... Avec le code suivant :

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
  MyDate = dteMonth & "/" & dteDay & "/" & dteYear
 
        Dim sqlConn As SqlConnection = New SqlConnection(strConnection)
        Dim SQLStmt As String = "SELECT tblAccessoriesBook.IdAccessoriesBook " & _
                                "FROM tblAccessoriesBook INNER JOIN " & _
                                "tblAccessories ON tblAccessoriesBook.IdAccessories = tblAccessories.IdAccessories INNER JOIN " & _
                                "tblGroups ON tblAccessories.IdGroups = tblGroups.IdGroups " & _
                                "WHERE (tblGroups.AutoMailHour = '" & DateTime.Now.Hour & ":00" & "') AND IsReturn = '0' AND IsAttribution = '0' AND ReturnDate < '" & MyDate & "' AND tblGroups.IdCountry = '1' AND " & DateTime.Now.DayOfWeek.ToString & " = 'True' "
        Dim cmdGetRequestor As SqlCommand
        Dim dtrSubject As SqlDataReader
        Dim email As String = ""
        sqlConn.Open()
        cmdGetRequestor = New SqlCommand(SQLStmt, sqlConn)
        dtrSubject = cmdGetRequestor.ExecuteReader
        While dtrSubject.Read()            SendNotReturnMailAccessories(dtrSubject("IdAccessoriesBook").ToString)
        End While
        dtrSubject.Close()
 
        sqlConn.Close()

Ma fonction SendNotReturnMailAccessories est bien appelée (la requete SQL me retourne 6 ligne)

Mais avec le code suivant, et des requetes paramétrées

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
        MyDate = dteMonth & "/" & dteDay & "/" & dteYear
 
        Dim sqlConn As SqlConnection = New SqlConnection(strConnection)
        Dim SQLStmt As String = "SELECT tblAccessoriesBook.IdAccessoriesBook " & _
                                "FROM tblAccessoriesBook INNER JOIN " & _
                                "tblAccessories ON tblAccessoriesBook.IdAccessories = tblAccessories.IdAccessories INNER JOIN " & _
                                "tblGroups ON tblAccessories.IdGroups = tblGroups.IdGroups " & _
                                "WHERE (tblGroups.AutoMailHour = @Hour) AND IsReturn = '0' AND IsAttribution = '0' AND ReturnDate < @ReturnDate AND tblGroups.IdCountry = '1' AND @CurrentDay = 'True' "
        Dim cmdGetRequestor As SqlCommand
        Dim dtrSubject As SqlDataReader
        Dim email As String = ""
        sqlConn.Open()
        cmdGetRequestor = New SqlCommand(SQLStmt, sqlConn)
        cmdGetRequestor.Parameters.AddWithValue("@Hour", DateTime.Now.Hour & ":00")
        cmdGetRequestor.Parameters.AddWithValue("@ReturnDate", MyDate)
        cmdGetRequestor.Parameters.AddWithValue("@CurrentDay", DateTime.Now.DayOfWeek.ToString)
        dtrSubject = cmdGetRequestor.ExecuteReader
        While dtrSubject.Read()
            SendNotReturnMailAccessories(dtrSubject("IdAccessoriesBook").ToString)
        End While
        dtrSubject.Close()
 
        sqlConn.Close()

Ma requete SQL ne retourne rien. Je ne vois pas mon erreur ...

Quelqu'un a-t-il une idée ?

Cordialement.

DeWaRs

[callo]

A première vue, le problème devrait se trouver au niveau de @CurrentDay dans ton instruction. Dans

tblGroups.IdCountry = '1' AND @CurrentDay = 'True'

, le paramètre devrait être au niveau de la valeur du champ. Alors que tu as paramétré plutôt le champ. A mon avis, tu devrais avoir CurrentDay = 'True' et non @CurrentDay = 'True'.
Enfin, je ne sais pas si ma remarque est correcte. Peut-être que d'autres esprits plus avisés y verront plus clair

[Sankasssss]

Ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"... AND " & DateTime.Now.DayOfWeek.ToString & " = 'True' "

et ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"... AND @CurrentDay = 'True' "

est très différent.

Dans le premier exemple, une fois exécuté, c'est cette commande qui est envoyée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"... AND vendredi = 'True' "

alors que dans la seconde se sera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"... AND 'vendredi' = 'True' "

ce qui vaura tout les temps FALSE et qui renverra donc toujours 0 ligne.

Il ne faut pas utiliser de paramètre pour un nom de colonne mais uniquement pour son contenu.

EDIT : c'est presque ça callo

[DeWaRs]

Merci de vos réponses.
Concernant cette remarque :

Il ne faut pas utiliser de paramètre pour un nom de colonne mais uniquement pour son contenu.

EDIT : c'est presque ça callo

Il n'y a donc pas de solution pour passer "proprement" un nom de colonne en paramètre ? Est-ce parce que ce n'est simplement pas gérer par le framework ou alors parce que cela ne ce fait habituellement pas, programmaticalement parlant ?

Cordialement.

DeWaRs

[callo]

Il n'y a donc pas de solution pour passer "proprement" un nom de colonne en paramètre ? Est-ce parce que ce n'est simplement pas gérer par le framework ou alors parce que cela ne ce fait habituellement pas, programmaticalement parlant ?

A mon avis, tu peux contourner, mais en terme de bonnes pratiques, je ne sais pas si c'est safe. Un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
SELECT CASE @TonParam
WHEN 4 THEN Vendredi
WHEN 5 THEN Samedi
WHEN 6 THEN Dimanche
END

[Sankasssss]

Pour moi et dans ce cas, rien n'interdit de passer par de la concaténation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
        Dim nameColDay As String() = {"Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi"}
 
        Dim SQLStmt As String = "SELECT tblAccessoriesBook.IdAccessoriesBook " & _
                        "FROM tblAccessoriesBook INNER JOIN " & _
                        "tblAccessories ON tblAccessoriesBook.IdAccessories = tblAccessories.IdAccessories INNER JOIN " & _
                        "tblGroups ON tblAccessories.IdGroups = tblGroups.IdGroups " & _
                        "WHERE (tblGroups.AutoMailHour = @Hour) AND IsReturn = '0' AND IsAttribution = '0' " & _
                        " AND ReturnDate < @ReturnDate AND tblGroups.IdCountry = '1' AND " & nameColDay(Now.DayOfWeek) & " = 'True' "

Pourquoi? Le type reçu est un type Date et on ne pourra jamais faire de l'injection avec (d'autant plus qu'il provient du système). Cela ne nuit pas non plus au performance donc pas de soucis.

Remarque aussi que je passe par un tableau pour les colonnes car si la culture du PC sur lequel tourne l'application n'est pas la même que toi, ton application ne fonctionnera plus car Now.DayOfWeek.ToString sera dans la langue du PC, par exemple Monday.

[DeWaRs]

Ok, merci pour vos retours, tout est clair a présent. L'application est destiner à tourner sur une seule machine (il s'agit d'une routine d'envoie de mail), donc pas de risque au niveau de la confusion des jours.

Merci encore

DeWaRs