Une exception non gérée du type 'System.InvalidOperationException' s'est produite dans system.data.dll

Informations supplémentaires*: ExecuteReader*: la propriété Connection n'a pas été initialisé

voici 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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub BtnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnValider.Click
        'etablissement dela connection
        Dim objectconnection As SqlConnection = New SqlConnection
        objectconnection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=goeland;server=C008-PC-5216492"
        'Objet SqlCommand
        Dim cmd As New SqlCommand
        'On indique que l'on souhaite utiliser une procédure stockée
        cmd.CommandType = CommandType.StoredProcedure
        'On donne le nom de cette procédure stockée
        cmd.CommandText = "ps_newpers"
        objectconnection.Open()
        'Paramètres
        cmd.Parameters.Add(New SqlParameter("@numemp", SqlDbType.Float, 8))
        cmd.Parameters("@numemp").Value = Textnum.Text
        cmd.Parameters.Add(New SqlParameter("@typerso", SqlDbType.NVarChar, 255))
        cmd.Parameters("@typerso").Value = "p"
        cmd.Parameters.Add(New SqlParameter("@nomempl", SqlDbType.NVarChar, 255))
        cmd.Parameters("@nomempl").Value = "digdig"
        cmd.Parameters.Add(New SqlParameter("@preempl", SqlDbType.NVarChar, 255))
        cmd.Parameters("@preempl").Value = "biloute"
        cmd.Parameters.Add(New SqlParameter("@adrempl", SqlDbType.NVarChar, 255))
        cmd.Parameters("@adrempl").Value = "quelque part en france"
        cmd.Parameters.Add(New SqlParameter("@etacivil", SqlDbType.NVarChar, 255))
        cmd.Parameters("@etacivil").Value = "mr"
        cmd.Parameters.Add(New SqlParameter("@sexe", SqlDbType.NVarChar, 255))
        cmd.Parameters("@sexe").Value = "M"
        cmd.Parameters.Add(New SqlParameter("@datnaiss", SqlDbType.SmallDateTime))
        cmd.Parameters("@datnaiss").Value = "1983-13-05 00:00:00.000"
        cmd.Parameters.Add(New SqlParameter("@datemb", SqlDbType.SmallDateTime))
        cmd.Parameters("@datemb").Value = "2003-13-05 00:00:00.000"
        cmd.Parameters.Add(New SqlParameter("@salemp", SqlDbType.Float, 8))
        cmd.Parameters("@salemp").Value = "1500"
        cmd.Parameters.Add(New SqlParameter("@tmptrav", SqlDbType.Float, 8))
        cmd.Parameters("@tmptrav").Value = "35"
        cmd.Parameters.Add(New SqlParameter("@typcont", SqlDbType.NVarChar, 255))
        cmd.Parameters("@typcont").Value = "cdd"
        cmd.Parameters.Add(New SqlParameter("@codact", SqlDbType.NVarChar, 255))
        cmd.Parameters("@codact").Value = "a"
        cmd.Parameters.Add(New SqlParameter("@datdec", SqlDbType.SmallDateTime))
        cmd.Parameters("@datdec").Value = ""
        cmd.Parameters.Add(New SqlParameter("@datfin", SqlDbType.SmallDateTime))
        cmd.Parameters("@datfin").Value = ""
        cmd.Parameters.Add(New SqlParameter("@hvolpil", SqlDbType.Float, 8))
        cmd.Parameters("@salemp").Value = ""
 
 
        Dim dataread As SqlDataReader
        dataread = cmd.ExecuteReader()
        Dim listbox1
        Do While dataread.Read
            listbox1.itemsadd(dataread.GetString(0))
        Loop
        dataread.Close()
        objectconnection.Close()
        Me.Dispose()
        Dim frmpersnavi As New frmpersnav
        frmpersnavi.ShowDialog()
 
    End Sub
End Class