J'utilise le code suivant dans la classe JCProperty pour récupérer des données à partir d'un DAL:Transmission de données entre la couche de gestion et la couche d'accès aux données - code incorrect?
Dim x As JCProperty
x = JCPropertyDB.GetProperty(PropertyID)
If Not x Is Nothing Then
Me.PropertyID = x.PropertyID
Me.AddressLine1 = x.AddressLine1
Me.AddressLine2 = x.AddressLine2
Me.AddressLine3 = x.AddressLine3
Me.AddressCity = x.AddressCity
Me.AddressCounty = x.AddressCounty
Me.AddressPostcode = x.AddressPostcode
Me.TelNo = x.TelNo
Me.UpdatedOn = x.UpdatedOn
Me.CreatedOn = x.CreatedOn
Me.Description = x.Description
Me.GUID = x.GUID
End If
Cela fonctionne bien, mais exige que l'objet DAL (JCPropertyDB) est au courant de l'objet métier (JCProperty) et je créer et peupler efficacement deux fois le même objet (une fois dans la couche d'accès logique pour retourner dans la zone BL, puis à nouveau dans l'objet zone BL pour se peupler).
Il me manque quelque chose ici, je sais qu'il doit y avoir un meilleur moyen!
Effectivement j'ai besoin d'assigner 'Me = x' ce qui n'est pas autorisé. Quelqu'un peut-il me mettre droit?
Exactement ce qui me manquait! À votre santé. – Simon