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

Update buildinsertSQL to comment single quotes

Browse Source
This commit is contained in:
fleetside72 2017-04-11 11:24:28 -04:00 committed by GitHub
parent 730b2667d3
commit 99a5318f4d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
TheBigOne.cls
View File

@ -1862,7 +1862,7 @@ Function json_concat(list As range) As String
End Function
Public Function ADOp_BuildInsertSQL(ByRef tbl() As String, Target As String, trim As Boolean, start As Long, ending As Long, ParamArray ftype()) As String
Public Function ADOp_BuildInsertSQL(ByRef tbl() As String, target As String, trim As Boolean, start As Long, ending As Long, ParamArray ftype()) As String
Dim i As Long
@ -1870,7 +1870,7 @@ Public Function ADOp_BuildInsertSQL(ByRef tbl() As String, Target As String, tri
Dim sql As String
Dim rec As String
sql = "INSERT INTO " & Target & " VALUES " & vbCrLf
sql = "INSERT INTO " & target & " VALUES " & vbCrLf
For i = start To ending
rec = ""
If i <> start Then sql = sql & "," & vbCrLf
@ -1881,13 +1881,13 @@ Public Function ADOp_BuildInsertSQL(ByRef tbl() As String, Target As String, tri
If tbl(j, i) = "" Then
rec = rec & "NULL"
Else
rec = rec & tbl(j, i)
rec = rec & Replace(tbl(j, i), "'", "''")
End If
Else
If trim Then
rec = rec & "'" & LTrim(RTrim(tbl(j, i))) & "'"
rec = rec & "'" & LTrim(RTrim(Replace(tbl(j, i), "'", "''"))) & "'"
Else
rec = rec & "'" & tbl(j, i) & "'"
rec = rec & "'" & Replace(tbl(j, i), "'", "''") & "'"
End If
End If
Next j