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 :
Si je fais passer un string par la fonction, tout fonctionne, mais pas avec le SQLDataReader."La référence d'objet n'est pas définie à une instance d'un objet."
Quelqu'un aurait une id SVP ???
[Balise [Code] ajoutée par freegreg]
[Pensez-y, vous-même, la prochaine fois. Merci ]
Partager