Public Overloads Overridable Function Update(ByRef IN_OUT_ADDRESS_REF As String, ByVal IN_ADDRESS_TYPE_ID As String, ByVal IN_CONTACT_NAME As String, ByVal IN_ADDRESS_1 As String, ByVal IN_ADDRESS_2 As String, ByVal IN_ADDRESS_3 As String, ByVal IN_CITY As String, ByVal IN_POSTCODE As String, ByVal IN_EFFECTIVE_DATE As Global.System.Nullable(Of Date)) As Integer
If (IN_OUT_ADDRESS_REF Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(IN_OUT_ADDRESS_REF,String)
End If
If (IN_ADDRESS_TYPE_ID Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IN_ADDRESS_TYPE_ID,String)
End If
If (IN_CONTACT_NAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IN_CONTACT_NAME,String)
End If
If (IN_ADDRESS_1 Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IN_ADDRESS_1,String)
End If
If (IN_ADDRESS_2 Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IN_ADDRESS_2,String)
End If
If (IN_ADDRESS_3 Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IN_ADDRESS_3,String)
End If
If (IN_CITY Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(IN_CITY,String)
End If
If (IN_POSTCODE Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IN_POSTCODE,String)
End If
[B]If (IN_EFFECTIVE_DATE.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(IN_EFFECTIVE_DATE.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
End If[/B]
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
Me.Adapter.UpdateCommand.Connection.Open
End If
Try
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
If ((Me.Adapter.UpdateCommand.Parameters(0).Value Is Nothing) _
OrElse (Me.Adapter.UpdateCommand.Parameters(0).Value.GetType Is GetType(Global.System.DBNull))) Then
IN_OUT_ADDRESS_REF = Nothing
Else
IN_OUT_ADDRESS_REF = CType(Me.Adapter.UpdateCommand.Parameters(0).Value,String)
End If
Return returnValue
Finally
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
Me.Adapter.UpdateCommand.Connection.Close
End If
End Try
End Function