Enregistrement, Modification dans une BDD

Version imprimable

06/12/2011, 08h57
Nikko42

Enregistrement, Modification dans une BDD

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. :oops:
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 :ccool:
06/12/2011, 09h37
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*

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

Bref, j'ai tenté ceci :

Code:

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:

.IdDomaine = Me.CBlistDomaine.SelectedValue

Citation:

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 :aie:

06/12/2011, 09h52
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.

Voilà mon objet Risque :

Code:

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

06/12/2011, 10h12
hunteshiva

C'est surtout comment tu le déclare qui m’intéresse... :mrgreen:
06/12/2011, 10h20
Nikko42

Hé bien je n'ai rien de plus en rapport avec l'objet Risque :aie:
06/12/2011, 10h24
hunteshiva

essaye ceci alors:

Code:

Private Property Risque() As New R_DAL.TBrisque

je ne suis pas expert dans tout ça...
06/12/2011, 10h30
Nikko42

Aie sans succès, il m'indique que "new" n'est pas valide dans ce contexte et que l'objet Risque n'est pas reconnu dans ma classe. :?
06/12/2011, 10h54
hunteshiva

Gratte autour de ton

Code:

R_DAL.TBrisque

et arrange toi pour le déclarer avec un New

J'ai tenté ça :

Code:

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
Private Sub SaveRisque()
        Dim risque As New TBrisque
        With 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 = CInt(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 = CType(Me.TbDeadline.Text, DateTime)
            .Responsable = Me.TbResponsable.Text
            .Commentaires = Me.TbCommentaires.Text
 
        End With
 
        Me.DisplayAlert("Enregistrement Risque Effectué")
 
    End Sub

Mis à part les erreurs de conversions, j'ai ai pas d'autres. Cependant, rien ne se produit dans ma base de données, l'ajout ne fonctionne pas. Dois-je passer par une requête comme le Delete ?

06/12/2011, 12h00
hunteshiva

Le soucis c'est que tu déclare un nouvelle structure TBrisque..
elle risque de ne pas corespondre a ton R_DAL qui je suppose est déclaré quelque part
06/12/2011, 12h00
Nikko42

C'est pas faute d'avoir cherché, mais j'étudie une autre possibilité au cas où. Je ne trouve pas l'intitulé exact pour l'ajout d'enregistrements, pourtant on a le DeleteQuery et le UpdateQuery, mais pas d'InsertQuery ou SaveQuery. :calim2:
06/12/2011, 12h03
Nikko42

Citation:

Envoyé par hunteshiva

Le soucis c'est que tu déclare un nouvelle structure TBrisque..
elle risque de ne pas corespondre a ton R_DAL qui je suppose est déclaré quelque part

Oui, mais si je mets

Code:

Dim risque As New R_DAL.TBrisque

C'est la même chose.

J'ai essayé avec ce code :

Code:

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
 Private Sub AjoutRisque()
        Dim q As New SubSonic.Query("TBrisque")
        q.QueryType = SubSonic.QueryType.Insert
        q.AddUpdateSetting("Theme", TbTheme.Text)
        q.AddUpdateSetting("Risque", TbRisque.Text)
        q.AddUpdateSetting("descripRisque", TbDescRisque.Text)
        q.AddUpdateSetting("Niveau1RisqueBrut", CbRisqueBrut1.SelectedValue)
        q.AddUpdateSetting("Niveau0RisqueBrut", CbRisqueBrut0.SelectedValue)
        q.AddUpdateSetting("EnjeuEconomique", CInt(TbEnjEco.Text))
        q.AddUpdateSetting("calculEnjeuEco", TbCalcEnjEco.Text)
        If Me.RbActControleoui.Checked = True Then
            q.AddUpdateSetting("activiteControle", RbActControleoui.Checked = True)
        ElseIf Me.RbActControlenon.Checked = False Then
            q.AddUpdateSetting("activiteControle", RbActControleoui.Checked = False)
        End If
        q.AddUpdateSetting("descripActControle", TbDescActControl.Text)
        If Me.RbOkOui.Checked = True Then
            q.AddUpdateSetting("OK", RbOkOui.Checked = True)
        ElseIf Me.RbOkNon.Checked = False Then
            q.AddUpdateSetting("OK", RbOkNon.Checked = True)
        End If
        If Me.RbMAJoui.Checked = True Then
            q.AddUpdateSetting("Maj", RbMAJoui.Checked = True)
        ElseIf Me.RbMAJnon.Checked = False Then
            q.AddUpdateSetting("Maj", RbMAJnon.Checked = True)
        End If
        If Me.RbIncompletoui.Checked = True Then
            q.AddUpdateSetting("Incomplet", RbIncompletoui.Checked = True)
        ElseIf Me.RbIncompletnon.Checked = False Then
            q.AddUpdateSetting("Incomplet", RbIncompletnon.Checked = True)
        End If
        If Me.RbInexistantoui.Checked = True Then
            q.AddUpdateSetting("Inexistant", RbInexistantoui.Checked = True)
        ElseIf Me.RbInexistantnon.Checked = False Then
            q.AddUpdateSetting("Inexistant", RbInexistantnon.Checked = True)
        End If
        q.AddUpdateSetting("Niveau1RisqueNet", CbRisqueNet1.SelectedValue)
        q.AddUpdateSetting("Niveau0RisqueNet", CbRisqueNet0.SelectedValue)
        q.AddUpdateSetting("planAction", TbPlActions.Text)
        q.AddUpdateSetting("Deadline", TbDeadline.Text)
        q.AddUpdateSetting("Responsable", TbResponsable.Text)
        q.AddUpdateSetting("Commentaires", TbCommentaires.Text)
        q.AddUpdateSetting("idDomaine", CBlistDomaine.SelectedValue).Execute()
        'q.AddUpdateSetting("idRisque", LBidMapping2.Text)
        'q.WHERE(R_DAL.TBrisque.Columns.IdRisque, Me.Request.QueryString("idRisque"))
        'q.AND(R_DAL.TBrisque.Columns.IdDomaine, Me.Request.QueryString("idDomaine"))
 
 
        Me.DisplayAlert("Enregistrement du risque effectuée")
    End Sub

Mais il m'affiche l'erreur suivante :

Citation:

Violation of PRIMARY KEY constraint 'PK_TBrisque'. Cannot insert duplicate key in object 'TBrisque'.

Pourtant, dans ma table, je peux très bien créer plusieurs risques et plusieurs domaines avec le même numéro, par exemple : domaine 1 risque 1, domaine 2 risque 1 ou domaine 1 risque 2. :aie: