TheBigOne.cls

@@ -28,7 +28,7 @@ End Enum
 
 Public Enum SQLsyntax
     Db2 = 0
-    SqlServer = 1
+    MSSQL = 1
     PostgreSQL = 2
 End Enum
 
@@ -2718,7 +2718,7 @@ Public Function SQLp_build_sql_values(ByRef tbl() As String, trim As Boolean, he
     Select Case syntax
         Case SQLsyntax.Db2
             sql = "SELECT * FROM TABLE( VALUES" & vbCrLf & sql & vbCrLf & ") x"
-        Case SQLsyntax.SqlServer
+        Case SQLsyntax.MSSQL
             sql = "SELECT * FROM (VALUES" & vbCrLf & sql & vbCrLf & ") x"
         Case SQLsyntax.PostgreSQL
             sql = "SELECT * FROM (VALUES" & vbCrLf & sql & vbCrLf & ") x"
@@ -2882,7 +2882,7 @@ Public Function SQLp_build_sql_values_ranged(ByRef tbl() As String, trim As Bool
     Select Case syntax
         Case SQLsyntax.Db2
             sql = "SELECT * FROM TABLE( VALUES" & vbCrLf & sql & vbCrLf & ") x"
-        Case SQLsyntax.SqlServer
+        Case SQLsyntax.MSSQL
             sql = "SELECT * FROM (VALUES" & vbCrLf & sql & vbCrLf & ") x"
         Case SQLsyntax.PostgreSQL
             sql = "SELECT * FROM (VALUES" & vbCrLf & sql & vbCrLf & ") x"
@@ -3081,8 +3081,6 @@ Function TBLp_VarToString(ByRef t() As Variant) As String()
     Dim j As Long
     Dim x() As String
     
-    On Error GoTo errh
-    
     If LBound(t, 1) = 1 Then
     End If
     
@@ -3096,11 +3094,6 @@ Function TBLp_VarToString(ByRef t() As Variant) As String()
 
     TBLp_VarToString = x
 
-errh:
-    If Err.Number <> 0 Then
-        MsgBox ("error on row: " & i)
-    End If
-
 End Function
 
 Function TBLp_StringToVar(ByRef t() As String) As Variant()