pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: pt:95cc8557225a31f1fe1ce3879c79495aeaed0b98
Branches Tags
pt:master
..
compare: pt:3a83430fc2543bc66beaf2006ac4a16c3e90aae6
Branches Tags
pt:master

No commits in common. "95cc8557225a31f1fe1ce3879c79495aeaed0b98" and "3a83430fc2543bc66beaf2006ac4a16c3e90aae6" have entirely different histories.
95cc855722 ... 3a83430fc2

1 changed files with 3 additions and 10 deletions
Show Stats Expand all files Collapse all files

13
TheBigOne.cls
View File

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