Refactored SQLLeftExpression and renamed to SQLLeftFunctionExpression. …

…Closes #30.

Renamed SQLLeftExpression to SQLLeftFunctionExpression for consistency.

DatabaseObjects.vbproj

@@ -201,7 +201,7 @@
     <Compile Include="SQL\Expressions\SQLFieldExpression.vb" />
     <Compile Include="SQL\Expressions\SQLFunctionExpression.vb" />
     <Compile Include="SQL\Expressions\SQLGetDateFunctionExpression.vb" />
-    <Compile Include="SQL\Expressions\SQLLeftExpression.vb" />
+    <Compile Include="SQL\Expressions\SQLLeftFunctionExpression.vb" />
     <Compile Include="SQL\Expressions\SQLLengthFunctionExpression.vb" />
     <Compile Include="SQL\Select\SQLSelectHavingCondition.vb" />
     <Compile Include="SQL\Select\SQLSelectHavingConditions.vb" />

SQL/Expressions/SQLLeftExpression.vb → SQL/Expressions/SQLLeftFunctionExpression.vb

@@ -1,46 +1,37 @@
-' ___________________________________________________
-'
-'  (c) Hi-Integrity Systems 2010. All rights reserved.
-'  www.hisystems.com.au<http://www.hisystems.com.au> - Toby Wicks
-' ___________________________________________________
-'
-
-Option Strict On
-Option Explicit On
-
-Namespace SQL
-
-    Public Class SQLLeftExpression
-        Inherits SQLExpression
-
-        Private pobjExpression As SQLExpression
-        Private pintLength As Integer
-
-        Public Sub New(ByVal strFieldName As String, ByVal intLength As Integer)
-
-            Me.New(New SQLFieldExpression(strFieldName), intLength)
-
-        End Sub
-
-        Public Sub New(ByVal objExpression As SQLExpression, ByVal intLength As Integer)
-
-            If objExpression Is Nothing Then
-                Throw New ArgumentNullException
-            ElseIf intLength < 0 Then
-                Throw New ArgumentException("Length: " & intLength)
-            End If
-
-            pobjExpression = objExpression
-            pintLength = intLength
-
-        End Sub
-
-        Friend Overrides Function SQL(ByVal eConnectionType As Database.ConnectionType) As String
-
-            Return "LEFT(" & pobjExpression.SQL(eConnectionType) & ", " & pintLength & ")"
-
-        End Function
-
-    End Class
-
+' ___________________________________________________
+'
+'  (c) Hi-Integrity Systems 2010. All rights reserved.
+'  www.hisystems.com.au<http://www.hisystems.com.au> - Toby Wicks
+' ___________________________________________________
+'
+
+Option Strict On
+Option Explicit On
+
+Namespace SQL
+
+    Public Class SQLLeftFunctionExpression
+        Inherits SQLFunctionExpression
+
+        Private pobjExpression As SQLExpression
+        Private pintLength As Integer
+
+        Public Sub New(ByVal strFieldName As String, ByVal intLength As Integer)
+
+            Me.New(New SQLFieldExpression(strFieldName), intLength)
+
+        End Sub
+
+        Public Sub New(ByVal objExpression As SQLExpression, ByVal intLength As Integer)
+
+            MyBase.New("LEFT", objExpression, New SQLValueExpression(intLength))
+
+            If intLength < 0 Then
+                Throw New ArgumentException("Length: " & intLength)
+            End If
+
+        End Sub
+
+    End Class
+
 End Namespace