Voilà mon code :

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
24
25
26
27
    Public Sub OuvrirConnexion()
        SqlConnection1.Open()
    End Sub
    Public Sub FermerConnexion()
        SqlConnection1.Close()
    End Sub
    <WebMethod()> Public Function GetPLanning(ByRef Madate As DateTime) As SqlDataReader
        Dim StrRequete As String
        Dim drPLanning As SqlDataReader
 
 
        StrRequete = "SELECT PRENDRERDV.NumEleve, PRENDRERDV.NumMoniteur, PRENDRERDV.NumService FROM PRENDRERDV" ' WHERE PRENDRERDV.DateRDV =" & Madate & ";"
 
 
        Dim cmdSelect As New SqlCommand
        With cmdSelect
            .Connection = SqlConnection1
            .CommandType = CommandType.Text
            .CommandText = StrRequete
 
            OuvrirConnexion()
 
            drPLanning = .ExecuteReader()
        End With
        FermerConnexion()
        Return drPLanning
    End Function


L'éxécution ne retourne aucune erreur pourtant la page sous IE m'affiche :
"La référence d'objet n'est pas définie à une instance d'un objet."
Si je fais passer un string par la fonction, tout fonctionne, mais pas avec le SQLDataReader.

Quelqu'un aurait une id SVP ???

[Balise [Code] ajoutée par freegreg]
[Pensez-y, vous-même, la prochaine fois. Merci ]