Discussion :

[khawlita]

bonjour,
Je suis entrain de travailler sur un website(asp.net et c#) , avec une base de donnée de sql server 2005!!
j'ai travaillé avec architecture à 3 couches(UI, business et DAO) et avec linq to sql!!!
en fait j'ai un problème avec les opérations CRUD(ajouter, modifier, supprimer)
et surtout avec Modifier !!
j'aimerai modifier tout les attributs d'un objet (par exemple un objet Client(nom, prénom,etc))
je vois pas comment je pourrai les modifier sans avoir une condition sur un attribut quelconque(surtout que cette condition va être gérée dans la couche UI je pense)
Merci pour votre aide

[Paul Van Walleghem]

Bonjour,

je ne sais pas si le code VB suivant peut t'aider. Mais c'est une fonction qui utilise LINQ to SQL pour modifier le nom d'un auteur dans une table qui comporte deux champs (un numéro identifiant et l'auteur).
A+

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
 
        ''' <summary>
        ''' Correction d'un auteur
        ''' </summary>
        ''' <param name="cAutOld">ancien nom d'auteur</param>
        ''' <param name="cAutNew">Nouveau nom d'auteur</param>
 
        Function UpdateAuteur(ByVal cAutOld As String, ByVal cAutNew As String) As Integer
            Try
                Dim oQuerryResult = From oTblAuteurs In oScanDataContext.TblAuteurs _
                                    Where oTblAuteurs.Auteur = cAutOld _
                                    Select oTblAuteurs
                For Each qAut In oQuerryResult
                    qAut.Auteur = cAutNew
                Next
                Try
                    oScanDataContext.SubmitChanges(ConflictMode.ContinueOnConflict)
                    Return 1
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical, My.Settings.pAppEnteteBox)
                    Return 0
                End Try
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, My.Settings.pAppEnteteBox)
                Return 0
            End Try
 
        End Function

[Le_Phasme]

Donc par exemple, je vais te faire un ajout/modif/suppression

Tu as un datacontext nommé dtct.dbml ou tu as posé ta table "Client".
Ensuite,

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
 
Public Class Form1
    Dim dtct As New dtctDataContext
 
    Sub AddNewClient()
        Dim oMyClient As New Client
        oMyClient.ClientFirstName = "Fabien"
        oMyClient.ClientName = "DUPONT"
        oMyClient.ClientAddress = "6 rue des champs 75000 PARIS"
        oMyClient.ClientCountryId = 1
        dtct.Client.InsertOnSubmit(oMyClient)
        dtct.SubmitChanges()
    End Sub
 
    Sub UpdateClient()
        Dim oMyClient As Client
        oMyClient = (From MesClients In dtct.Client _
                   Where MesClients.ClientId = 1 _
                   Select MesClients).SingleOrDefault
        oMyClient.ClientFirstName = "Fabien Herve"
        dtct.SubmitChanges()
    End Sub
 
    Sub DelClient()
        Dim oMyClient As Client
        oMyClient = (From MesClients In dtct.Client _
                   Where MesClients.ClientId = 1 _
                   Select MesClients).SingleOrDefault
        dtct.Client.DeleteOnSubmit(oMyClient)
        dtct.SubmitChanges()
    End Sub
End Class