Discussion :

[Nikko42]

Bonjour,

Suite à mon topic : http://www.developpez.net/forums/d11...istrement-bdd/
Je fais une demande à part pour éviter de mélanger avec mon sujet résolu.

Donc, j'utilise Subsonic et Visual Studio 2005 ainsi que SQL Server 2008.
Grâce à un membre, j'ai réussi à passer l'étape "Suppression" d'un enregistrement, mais les plus délicates pour moi concernent l'ajout et la modification.
En fait, je remplis des textbox, des dropdownlist dans un formulaire et j'aimerais que ces valeurs, une fois que je clique sur "enregistrer" soit sauvegardées dans ma base.
Sinon, pour la modification c'est la même chose, sauf qu'une fois mon "Risque" chargé, j'effectue la modification et je l'enregistre.

Peut-être que le principe est presque le même ?

Merci d'avance

[hunteshiva]

Visiblement il y a un tuto du célébre P.Lasserre sur ça
http://philippe.developpez.com/articles/Subsonic
*on est rarement déçu par ce qu'il fait*

[Nikko42]

Merci, mais je préfère avoir des explications, comme je les ai eu sur mon autre topic.

Bref, j'ai tenté ceci :

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
    Private Sub SaveRisque()
        With Me.Risque
            .IdDomaine = Me.CBlistDomaine.SelectedValue
            .IdRisque = Me.LBidMapping2.Text
            .Theme = Me.TbTheme.Text
            .Risque = Me.TbRisque.Text
            .DescripRisque = Me.TbDescRisque.Text
            .Niveau1RisqueBrut = Me.CbRisqueBrut1.SelectedValue
            .Niveau0RisqueBrut = Me.CbRisqueBrut0.SelectedValue
            .EnjeuEconomique = Me.TbCalcEnjEco.Text
            If Me.RbActControleoui.Checked = True Then
                .ActiviteControle = True
            ElseIf Me.RbActControlenon.Checked = False Then
                .ActiviteControle = False
            End If
 
            .DescripActControle = Me.TbDescActControl.Text
            If Me.RbOkOui.Checked = True Then
                .Ok = True
            ElseIf Me.RbOkNon.Checked = False Then
                .Ok = False
            End If
            If Me.RbMAJoui.Checked = True Then
                .Maj = True
            ElseIf Me.RbMAJnon.Checked = False Then
                .Maj = False
            End If
            If Me.RbIncompletoui.Checked = True Then
                .Incomplet = True
            ElseIf Me.RbIncompletnon.Checked = False Then
                .Incomplet = False
            End If
            If Me.RbInexistantoui.Checked = True Then
                .Inexistant = True
            ElseIf Me.RbInexistantnon.Checked = False Then
                .Inexistant = False
            End If
            .Niveau1RisqueNet = Me.CbRisqueNet1.SelectedValue
            .Niveau0RisqueNet = Me.CbRisqueNet0.SelectedValue
            .PlanAction = Me.TbPlActions.Text
            .Deadline = Me.TbDeadline.Text
            .Responsable = Me.TbResponsable.Text
            .Commentaires = Me.TbCommentaires.Text
 
        End With
 
 
    End Sub

Mais, il me sort à la première ligne

Code :

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

.IdDomaine = Me.CBlistDomaine.SelectedValue

La référence d'objet n'est pas définie à une instance d'un objet

Pourtant, j'ai bien défini l'objet Risque

[hunteshiva]

tu peut nous montrer l'objet risque et comment il est appelé avant.

Pour moi il manque un New qui permet d'instancier l'objet.

[Nikko42]

Voilà mon objet Risque :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    ''' <summary>
    ''' Objet Risque en cours
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Property Risque() As R_DAL.TBrisque
        Get
            Return (Me.Session("GestionRisqueAjout_Risque"))
        End Get
        Set(ByVal value As R_DAL.TBrisque)
            Me.Session("GestionRisqueAjout_Risque") = value
        End Set
    End Property

[hunteshiva]

C'est surtout comment tu le déclare qui m’intéresse...