52 lines
1.6 KiB
VB.net
52 lines
1.6 KiB
VB.net
Imports System.EnterpriseServices
|
|
|
|
''' <summary>
|
|
''' Implements the transactional server-side DataPortal object as
|
|
''' discussed in Chapter 5.
|
|
''' </summary>
|
|
<Transaction(TransactionOption.Required), EventTrackingEnabled(True)> _
|
|
Public Class DataPortal
|
|
Inherits ServicedComponent
|
|
|
|
''' <summary>
|
|
''' Invokes the server-side DataPortal Create method within
|
|
''' a COM+ transaction.
|
|
''' </summary>
|
|
<AutoComplete(True)> _
|
|
Public Function Create(ByVal Criteria As Object, ByVal Principal As Object) As Object
|
|
Dim portal As New CSLA.Server.DataPortal()
|
|
Return portal.Create(Criteria, Principal)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Invokes the server-side DataPortal Fetch method within
|
|
''' a COM+ transaction.
|
|
''' </summary>
|
|
<AutoComplete(True)> _
|
|
Public Function Fetch(ByVal Criteria As Object, ByVal Principal As Object) As Object
|
|
Dim portal As New CSLA.Server.DataPortal()
|
|
Return portal.Fetch(Criteria, Principal)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Invokes the server-side DataPortal Update method within
|
|
''' a COM+ transaction.
|
|
''' </summary>
|
|
<AutoComplete(True)> _
|
|
Public Function Update(ByVal obj As Object, ByVal Principal As Object) As Object
|
|
Dim portal As New CSLA.Server.DataPortal()
|
|
Return portal.Update(obj, Principal)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Invokes the server-side DataPortal Delete method within
|
|
''' a COM+ transaction.
|
|
''' </summary>
|
|
<AutoComplete(True)> _
|
|
Public Sub Delete(ByVal Criteria As Object, ByVal Principal As Object)
|
|
Dim portal As New CSLA.Server.DataPortal()
|
|
portal.Delete(Criteria, Principal)
|
|
End Sub
|
|
|
|
End Class
|