From 99a5318f4d714b9afb7e50c3f38ffc47d5b212b0 Mon Sep 17 00:00:00 2001
From: fleetside72 <fleetside72@hotmail.com>
Date: Tue, 11 Apr 2017 11:24:28 -0400
Subject: [PATCH] Update buildinsertSQL to comment single quotes

---
 TheBigOne.cls | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/TheBigOne.cls b/TheBigOne.cls
index 5073322..3c1eb70 100644
--- a/TheBigOne.cls
+++ b/TheBigOne.cls
@@ -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