|
' ___________________________________________________
'
' � Hi-Integrity Systems 2007. All rights reserved.
' www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'
Option Strict On
Option Explicit On
Namespace SQL
Public Class SQLUpdate
Inherits SQLStatement
Private pobjFields As New SQLFieldValues
Private pobjCopyFields As New SQLUpdateCopyFields
Private pobjConditions As New SQLConditions
Private pstrTableName As String
Public Sub New()
End Sub
Public Sub New(ByVal strTableName As String)
Me.TableName = strTableName
End Sub
Public Sub New(ByVal strTableName As String, ByVal objValue As SQLFieldValue, ByVal objWhere As SQLCondition)
Me.TableName = strTableName
Me.Fields.Add(objValue)
Me.Where.Add(objWhere)
End Sub
Public Property TableName() As String
Get
Return pstrTableName
End Get
Set(ByVal Value As String)
pstrTableName = Value
End Set
End Property
Public Property Fields() As SQLFieldValues
Get
Return pobjFields
End Get
Set(ByVal Value As SQLFieldValues)
If Value Is Nothing Then
Throw New ArgumentNullException
End If
pobjFields = Value
End Set
End Property
Public Property CopyFields() As SQLUpdateCopyFields
Get
Return pobjCopyFields
End Get
Set(ByVal Value As SQLUpdateCopyFields)
If Value Is Nothing Then
Throw New ArgumentNullException
End If
pobjCopyFields = Value
End Set
End Property
Public Property Where() As SQLConditions
Get
Return pobjConditions
End Get
Set(ByVal Value As SQLConditions)
pobjConditions = Value
End Set
End Property
Public Overrides ReadOnly Property SQL() As String
Get
Dim strSQL As String
Dim strFieldValues As String
Dim strConditions As String
If TableName.Trim = Nothing Then
Throw New DatabaseObjectsException("TableName property has not been set.")
End If
If pobjFields.Count = 0 And pobjCopyFields.Count = 0 Then
Throw New DatabaseObjectsException("Field values have not been set.")
End If
For intIndex As Integer = 0 To pobjFields.Count - 1
With pobjFields(intIndex)
'Check the field name has been set. Can't really check whether the value has been set or not.
If .Name = Nothing Then
Throw New DatabaseObjectsException("Field Name has not been set.")
End If
strFieldValues &= SQLConvertIdentifierName(.Name, Me.ConnectionType) & " = " & SQLConvertValue(.Value, Me.ConnectionType)
End With
If intIndex <> pobjFields.Count - 1 Then
strFieldValues &= ", "
End If
Next
If pobjFields.Count > 0 And pobjCopyFields.Count > 0 Then
strFieldValues &= ", "
End If
For intIndex As Integer = 0 To pobjCopyFields.Count - 1
With pobjCopyFields(intIndex)
strFieldValues &= SQLConvertIdentifierName(.DestinationFieldName, Me.ConnectionType) & " = " & SQLConvertIdentifierName(.SourceFieldName, Me.ConnectionType)
End With
If intIndex <> pobjCopyFields.Count - 1 Then
strFieldValues &= ", "
End If
Next
strSQL = _
"UPDATE " & SQLConvertIdentifierName(Me.TableName.Trim, Me.ConnectionType) & " " & _
"SET " & strFieldValues
If Not pobjConditions Is Nothing Then
strConditions = pobjConditions.SQL(Me.ConnectionType)
If strConditions <> Nothing Then
strSQL &= " WHERE " & strConditions
End If
End If
Return strSQL
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.