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

Compare commits

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

2 Commits
3a83430fc2 ... 95cc855722

Author SHA1 Message Date
Paul Trowbridge
95cc855722 current state personal macrobook 2024-09-24 11:40:58 -04:00
Paul Trowbridge
7d0b38e46a current state of Core List 2024-09-24 11:40:04 -04:00
1 changed files with 10 additions and 3 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
MSSQL = 1 SqlServer = 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.MSSQL Case SQLsyntax.SqlServer
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.MSSQL Case SQLsyntax.SqlServer
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,6 +3081,8 @@ 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
@ -3093,6 +3095,11 @@ 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