Added support for specifying the database name for table in a SELECT …

…statement. Closes #36.

SQL/Select/SQLSelectTable.vb

@@ -14,6 +14,7 @@ Namespace SQL
     Public Class SQLSelectTable
         Inherits SQLSelectTableBase
 
+        Private pstrDatabaseName As String
         Private pstrSchemaName As String
         Private pstrName As String
 
@@ -34,6 +35,20 @@ Namespace SQL
 
         End Sub
 
+        Public Property DatabaseName As String
+            Get
+
+                Return pstrDatabaseName
+
+            End Get
+
+            Set(value As String)
+
+                pstrDatabaseName = value
+
+            End Set
+        End Property
+
         Public Property SchemaName As String
             Get
 
@@ -85,6 +100,10 @@ Namespace SQL
 
                 Dim strSQL As String = String.Empty
 
+                If pstrDatabaseName <> String.Empty Then
+                    strSQL &= SQLConvertIdentifierName(pstrDatabaseName, eConnectionType) & "."
+                End If
+
                 If pstrSchemaName <> String.Empty Then
                     strSQL &= SQLConvertIdentifierName(pstrSchemaName, eConnectionType) & "."
                 End If