|
' ___________________________________________________
'
' � Hi-Integrity Systems 2007. All rights reserved.
' www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'
Option Strict On
Option Explicit On
Namespace SQL
Public Class SQLUpdateCopyField
Private pstrSourceFieldName As String
Private pstrDestinationFieldName As String
Public Sub New(ByVal strSourceFieldName As String, ByVal strDestinationFieldName As String)
If strSourceFieldName = Nothing Then
Throw New ArgumentNullException("SourceFieldName")
End If
If strDestinationFieldName = Nothing Then
Throw New ArgumentNullException("DestinationFieldName")
End If
pstrSourceFieldName = strSourceFieldName
pstrDestinationFieldName = strDestinationFieldName
End Sub
Public ReadOnly Property SourceFieldName() As String
Get
Return pstrSourceFieldName
End Get
End Property
Public ReadOnly Property DestinationFieldName() As String
Get
Return pstrDestinationFieldName
End Get
End Property
End Class
Public Class SQLUpdateCopyFields
Private pobjCopyFields As New ArrayList
Public Function Add(ByVal strSourceFieldName As String, ByVal strDestinationFieldName As String) As SQLUpdateCopyField
Dim objCopyField As New SQLUpdateCopyField(strSourceFieldName, strDestinationFieldName)
pobjCopyFields.Add(objCopyField)
Return objCopyField
End Function
Public ReadOnly Property Count() As Integer
Get
Return pobjCopyFields.Count
End Get
End Property
Default Public ReadOnly Property Item(ByVal intIndex As Integer) As SQLUpdateCopyField
Get
Return DirectCast(pobjCopyFields(intIndex), SQLUpdateCopyField)
End Get
End Property
End Class
End Namespace
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.
A list of licenses authors might use can be found here
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.