[VB 2005] UpdateCommand n'a pas été initialisée

**tornade69** · 25/06/2010, 22h34

Bonjour à tous

J'ai ce message d'erreur lors de la mise à jour d'une ligne de la base de donnée SQL 2005

En entete de Form

Code :

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

1
2
3
4
5
6
7
8
    Private oCentre As New SqlClient.SqlConnection(Principal.StrCon)
    Private drVcr As DataRow
    Private dsVcr As DataSet
    Private daVcr As SqlClient.SqlDataAdapter
    Private sqlVcr = "Select * from tblVersionCRU_VCR "
    Private dtVcr As DataTable
    Private rownumber As Integer
    Private totrow As Integer

Sur la propriété form_load

Code :

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

1
2
3
4
5
6
7
        rownumber = 0
        daVcr = New SqlClient.SqlDataAdapter(sqlVcr, oCentre)
        dsVcr = New DataSet(sqlVcr)
        daVcr.Fill(dsVcr, sqlVcr)
        dtVcr = dsVcr.Tables(sqlVcr)
        totrow = dtVcr.Rows.Count - 1
        remplissage(rownumber)

L'affichage dans le formulaire se passe bien
Par contre lorsque je cherche à sauvegarder un modif j'ai l'erreur (idem en insert)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Dim edVcr As New SqlClient.SqlCommand("update tblVersionCru_VCR set " & _
            "VCR_Desc=@VD where VCR_VcruNum=@VNum")
        If Me.TDesc.Text <> "" Then
            drVcr = dtVcr.Rows(rownumber)
            drVcr("VCR_VCruNum") = Convert.ToInt16(Me.TNum.Text)
            drVcr("VCR_Desc") = Me.TDesc.Text
            daVcr.UpdateCommand = edVcr
            edVcr.Parameters.Add("@VNum", SqlDbType.Int, 4, "VCR_VCruNum")
            edVcr.Parameters.Add("@VD", SqlDbType.VarChar, 25, "VCR_Desc")
            daVcr.Update(dsVcr, sqlVcr)
            dsVcr.Clear()
            daVcr.Fill(dsVcr, sqlVcr)
            remplissage(rownumber)
        End If