Discussion :

[franculo_caoulene]

Salut,

Je développe un service Windows actuellement, mais je poste tout de même ici, je pense que la logique est plus ou moins la même pour ce bug.
Pour accéder à la base de données je m'inspire du cours "Travailler avec un DataSet".
J'obtiens une null reference exception sur cette ligne

Code :

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

oCommand.CommandText = sSql

Erreur banale pour vous peut-être mais pas pour moi. Dans le constructeur de la classe, je n'ai que InitializeComponent(). Le coup du InitializeCompoment(), si ça vient de là, est peut-être plus subtile que d'habitude.
La méthode dans laquelle l'erreur se passe est appelée par un timer cf. une autre discussion à problème.
Voici donc un bout de code, d'après celui, pourriez-vous me dire ce qui cloche?

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
Public Class ServicePlanification
	Private oConn As New SqlConnection("une chaîne de connexion")
	Private oCommand As SqlCommand
	Private oCommandBuilder As SqlCommandBuilder
	Private oDA As SqlDataAdapter
	Private oDS As New DataSet()	'-- Attention au New
	Private oDT As DataTable
	Private oDV As DataView
	Private oDR As DataRow
	Private oDRCollection As DataRowCollection
	Private sSql As String
 
	Public Sub New()
		'-- Cet appel est requis par le Concepteur Windows Form.
		InitializeComponent()
	End Sub
 
	Public Sub selectionnerTache(ByVal stateInfo As Object)
		Dim autoEvent As AutoResetEvent = DirectCast(stateInfo, AutoResetEvent)
		Dim flag As Boolean = False
		Dim ATTENTE As DataTable
		Dim EXECUTION As DataTable
 
		sSql = "select ID_INTERVALLE from TYPE_INTERVALLE"
		oCommand.CommandText = sSql
		oCommand.Connection = oConn

Merci par avance.

[franculo_caoulene]

J'initialise dans le constructeur et j'ai mal lu le cours...

[dinbougre]

A aucun moment tu n'instancies l'objet oCommand,

Peut être que tu dois faire:

Code :

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

Private oCommand As New SqlCommand

Au lieu de:

Code :

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

Private oCommand As SqlCommand

[franculo_caoulene]

En effet, j'ai pas bien lu le cours. J'aimerais qu'on m'explique pourquoi ces différents essais ne fonctionnent pas :

Code :

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

1
2
Public Class ServicePlanification
	Private oCommand As SqlCommand = new SqlCommand

Code :

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

1
2
Public Class ServicePlanification
	Private oCommand As New SqlCommand

Code :

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

1
2
3
4
Public Sub New()
	oCommand = New SqlCommand
	InitializeComponent()
End Sub

Code :

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

1
2
3
4
Public Sub New()
	InitializeComponent()
	oCommand = New SqlCommand  '-- je suis censé initialiser ici d'après le concepteur
End Sub

Je suis bien obligé de l'instancier dans la méthode:

Code :

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

1
2
3
4
Public Sub selectionnerTache(ByVal stateInfo As Object)
	Dim autoEvent As AutoResetEvent = DirectCast(stateInfo, AutoResetEvent)
	sSql = "select ID_INTERVALLE from TYPE_INTERVALLE"
	oCommand = New SqlCommand(sSql)

[Pol63]

Code :

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

1
2
3
4
Public Sub New()
	InitializeComponent()
	oCommand = New SqlCommand  '-- je suis censé initialiser ici d'après le concepteur
End Sub

ca, ca doit marcher
m'enfin sinon tu mets un point d'arret là ou l'erreur se trouve et grace à la pile d'appel tu verras d'où tu arrives

[franculo_caoulene]

Décidément, il y a des chose que je ne comprends pas.

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
Public Class ServicePlanification
	Private oConn As SqlConnection = New SqlConnection("une chaîne de connexion quelconque")
	Private oCommand As SqlCommand
	Private sSql As String
 
	Public Sub New()
		InitializeComponent()
	End Sub
 
	Public Sub selectionnerTache(ByVal stateInfo As Object)
		Dim autoEvent As AutoResetEvent = DirectCast(stateInfo, AutoResetEvent)
		sSql = "select * from MATABLE"
		'oConn = New SqlConnection("une chaîne de connexion quelconque")
		oCommand = New SqlCommand(sSql, oConn)
		oConn.Open()
		'...

Ce code plante à oConn.Open() avec une null reference exception. Pourtant si je déplace l'instanciation dans la méthode, ça fonctionne!

Je reste novice, auriez-vous une explication?