Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

ExecuteReader: Connection property has not been initialized.

3 réponses
Avatar
Francoise
Bonjour,
Voici le message qui s'affiche ExecuteReader: Connection property has not
been initialized. lors de l'execution de ma page.
Je crée une fonction qui permet d'insérer 4 champs dans une table à l'aide
d'une procédure stockée la voici :

Imports System
Imports System.Io
Imports System.Text
Imports System.Security.Cryptography
Imports System.Data.SqlClient

Public Class insertion

Function InsSinistre(ByVal nom_sin As String, ByVal prenom_sin As
String, ByVal ss_sin As String, ByVal entreprise_sin As String)

Dim cmdInsSin As New SqlCommand

cmdInsSin.CommandText = "DPREV_SINISTRE_INS2"
cmdInsSin.CommandType = CommandType.StoredProcedure

cmdInsSin.Parameters.Add("@nom_sin", nom_sin)
cmdInsSin.Parameters.Add("@prenom_sin", prenom_sin)
cmdInsSin.Parameters.Add("@ss_sin", ss_sin)
cmdInsSin.Parameters.Add("@entreprise_sin", entreprise_sin)


Return cmdInsSin.ExecuteNonQuery

End Function

End Class


Et voici mon code behind :
Imports System
Imports System.Io
Imports System.Text
Imports System.Security.Cryptography
Imports System.Data.SqlClient
Imports System.Configuration


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub btnEnvoyer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnEnvoyer.Click

Dim strConn As String = "user id=sa;data
source=WPAR2SWB01;password=;initial catalog=SIAD;packet size=4096;persist
security info=false;"
Dim conn As New SqlConnection(strConn)

conn.Open()

Dim objInsertion As New insertion

If Page.IsValid Then
objInsertion.InsSinistre("nom_sin", "prenom_sin", "ss_sin",
"entreprise_sin")
End If

Response.Redirect("SaisiePieces.aspx")
conn.Close()

End Sub
End Class

quelqu'un a une idée de ce que je fais mal ???
merciiiii

3 réponses

Avatar
Patrice
La connexion est bien créée mais comme elle n'est pas affectée à l'objet
SqlCommand, celui ci n'a aucune idée de la connexion à utiliser. Comme le
message l'indique, il faut donc initialiser la propriété Connection de
l'objet SqlCommand...

--
Patrice

"Francoise" a écrit dans le message de
news:
Bonjour,
Voici le message qui s'affiche ExecuteReader: Connection property has not
been initialized. lors de l'execution de ma page.
Je crée une fonction qui permet d'insérer 4 champs dans une table à l'aide
d'une procédure stockée la voici :

Imports System
Imports System.Io
Imports System.Text
Imports System.Security.Cryptography
Imports System.Data.SqlClient

Public Class insertion

Function InsSinistre(ByVal nom_sin As String, ByVal prenom_sin As
String, ByVal ss_sin As String, ByVal entreprise_sin As String)

Dim cmdInsSin As New SqlCommand

cmdInsSin.CommandText = "DPREV_SINISTRE_INS2"
cmdInsSin.CommandType = CommandType.StoredProcedure

cmdInsSin.Parameters.Add("@nom_sin", nom_sin)
cmdInsSin.Parameters.Add("@prenom_sin", prenom_sin)
cmdInsSin.Parameters.Add("@ss_sin", ss_sin)
cmdInsSin.Parameters.Add("@entreprise_sin", entreprise_sin)


Return cmdInsSin.ExecuteNonQuery

End Function

End Class


Et voici mon code behind :
Imports System
Imports System.Io
Imports System.Text
Imports System.Security.Cryptography
Imports System.Data.SqlClient
Imports System.Configuration


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal


e
As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub btnEnvoyer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnEnvoyer.Click

Dim strConn As String = "user id=sa;data
source=WPAR2SWB01;password=;initial catalog=SIAD;packet ;persist
security infoúlse;"
Dim conn As New SqlConnection(strConn)

conn.Open()

Dim objInsertion As New insertion

If Page.IsValid Then
objInsertion.InsSinistre("nom_sin", "prenom_sin", "ss_sin",
"entreprise_sin")
End If

Response.Redirect("SaisiePieces.aspx")
conn.Close()

End Sub
End Class

quelqu'un a une idée de ce que je fais mal ???
merciiiii


Avatar
Francoise
Merci, c'est ce que je pensais mais je n'arrive pas justement à initialiser
la propriété connection de l'objet sql command, comment puis je procéder ??
merci d'avance

"Patrice" a écrit :

La connexion est bien créée mais comme elle n'est pas affectée à l'objet
SqlCommand, celui ci n'a aucune idée de la connexion à utiliser. Comme le
message l'indique, il faut donc initialiser la propriété Connection de
l'objet SqlCommand...

--
Patrice

"Francoise" a écrit dans le message de
news:
> Bonjour,
> Voici le message qui s'affiche ExecuteReader: Connection property has not
> been initialized. lors de l'execution de ma page.
> Je crée une fonction qui permet d'insérer 4 champs dans une table à l'aide
> d'une procédure stockée la voici :
>
> Imports System
> Imports System.Io
> Imports System.Text
> Imports System.Security.Cryptography
> Imports System.Data.SqlClient
>
> Public Class insertion
>
> Function InsSinistre(ByVal nom_sin As String, ByVal prenom_sin As
> String, ByVal ss_sin As String, ByVal entreprise_sin As String)
>
> Dim cmdInsSin As New SqlCommand
>
> cmdInsSin.CommandText = "DPREV_SINISTRE_INS2"
> cmdInsSin.CommandType = CommandType.StoredProcedure
>
> cmdInsSin.Parameters.Add("@nom_sin", nom_sin)
> cmdInsSin.Parameters.Add("@prenom_sin", prenom_sin)
> cmdInsSin.Parameters.Add("@ss_sin", ss_sin)
> cmdInsSin.Parameters.Add("@entreprise_sin", entreprise_sin)
>
>
> Return cmdInsSin.ExecuteNonQuery
>
> End Function
>
> End Class
>
>
> Et voici mon code behind :
> Imports System
> Imports System.Io
> Imports System.Text
> Imports System.Security.Cryptography
> Imports System.Data.SqlClient
> Imports System.Configuration
>
>
> Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles MyBase.Load
> 'Put user code to initialize the page here
> End Sub
>
> Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal
e
> As System.EventArgs) Handles TextBox2.TextChanged
>
> End Sub
>
> Private Sub btnEnvoyer_Click(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles btnEnvoyer.Click
>
> Dim strConn As String = "user id=sa;data
> source=WPAR2SWB01;password=;initial catalog=SIAD;packet ;persist
> security infoúlse;"
> Dim conn As New SqlConnection(strConn)
>
> conn.Open()
>
> Dim objInsertion As New insertion
>
> If Page.IsValid Then
> objInsertion.InsSinistre("nom_sin", "prenom_sin", "ss_sin",
> "entreprise_sin")
> End If
>
> Response.Redirect("SaisiePieces.aspx")
> conn.Close()
>
> End Sub
> End Class
>
> quelqu'un a une idée de ce que je fais mal ???
> merciiiii





Avatar
Patrice
CmdInsSin.Connection=TaConnection

Indique plutôt ce que tu fait à l'origine et quelle errerur tu as...

Je gérerais la connexion dans la classe pour que le code behind n'ait
abosulement pas à gérer quoi que ce soit sur la connexion...
--
Patrice

"Francoise" a écrit dans le message de
news:
Merci, c'est ce que je pensais mais je n'arrive pas justement à


initialiser
la propriété connection de l'objet sql command, comment puis je procéder


??
merci d'avance

"Patrice" a écrit :

> La connexion est bien créée mais comme elle n'est pas affectée à l'objet
> SqlCommand, celui ci n'a aucune idée de la connexion à utiliser. Comme


le
> message l'indique, il faut donc initialiser la propriété Connection de
> l'objet SqlCommand...
>
> --
> Patrice
>
> "Francoise" a écrit dans le


message de
> news:
> > Bonjour,
> > Voici le message qui s'affiche ExecuteReader: Connection property has


not
> > been initialized. lors de l'execution de ma page.
> > Je crée une fonction qui permet d'insérer 4 champs dans une table à


l'aide
> > d'une procédure stockée la voici :
> >
> > Imports System
> > Imports System.Io
> > Imports System.Text
> > Imports System.Security.Cryptography
> > Imports System.Data.SqlClient
> >
> > Public Class insertion
> >
> > Function InsSinistre(ByVal nom_sin As String, ByVal prenom_sin As
> > String, ByVal ss_sin As String, ByVal entreprise_sin As String)
> >
> > Dim cmdInsSin As New SqlCommand
> >
> > cmdInsSin.CommandText = "DPREV_SINISTRE_INS2"
> > cmdInsSin.CommandType = CommandType.StoredProcedure
> >
> > cmdInsSin.Parameters.Add("@nom_sin", nom_sin)
> > cmdInsSin.Parameters.Add("@prenom_sin", prenom_sin)
> > cmdInsSin.Parameters.Add("@ss_sin", ss_sin)
> > cmdInsSin.Parameters.Add("@entreprise_sin", entreprise_sin)
> >
> >
> > Return cmdInsSin.ExecuteNonQuery
> >
> > End Function
> >
> > End Class
> >
> >
> > Et voici mon code behind :
> > Imports System
> > Imports System.Io
> > Imports System.Text
> > Imports System.Security.Cryptography
> > Imports System.Data.SqlClient
> > Imports System.Configuration
> >
> >
> > Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
> > System.EventArgs) Handles MyBase.Load
> > 'Put user code to initialize the page here
> > End Sub
> >
> > Private Sub TextBox2_TextChanged(ByVal sender As System.Object,


ByVal
> e
> > As System.EventArgs) Handles TextBox2.TextChanged
> >
> > End Sub
> >
> > Private Sub btnEnvoyer_Click(ByVal sender As System.Object, ByVal


e As
> > System.EventArgs) Handles btnEnvoyer.Click
> >
> > Dim strConn As String = "user id=sa;data
> > source=WPAR2SWB01;password=;initial catalog=SIAD;packet


;persist
> > security infoúlse;"
> > Dim conn As New SqlConnection(strConn)
> >
> > conn.Open()
> >
> > Dim objInsertion As New insertion
> >
> > If Page.IsValid Then
> > objInsertion.InsSinistre("nom_sin", "prenom_sin",


"ss_sin",
> > "entreprise_sin")
> > End If
> >
> > Response.Redirect("SaisiePieces.aspx")
> > conn.Close()
> >
> > End Sub
> > End Class
> >
> > quelqu'un a une idée de ce que je fais mal ???
> > merciiiii
>
>
>