From 8128987be4f7042afd952bdc741dbef3ef5c1561 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 2 Nov 2022 13:36:29 +0100
Subject: [PATCH] Language: Add EscapeForSQL string extension method

---
 Language/StringEx.vb | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/Language/StringEx.vb b/Language/StringEx.vb
index a4cb6f4d..2fcfa2b1 100644
--- a/Language/StringEx.vb
+++ b/Language/StringEx.vb
@@ -12,4 +12,15 @@ Public Module StringEx
         If String.IsNullOrEmpty(pString) Then Return pString
         Return pString.Substring(0, Math.Min(pLength, pString.Length))
     End Function
+
+    ''' <summary>
+    ''' Replaces single quotes in text for SQL Commands.
+    ''' </summary>
+    ''' <param name="pString">The string</param>
+    ''' <returns>The escaped string.</returns>
+    <Extension()>
+    Public Function EscapeForSQL(pString As String) As String
+        If String.IsNullOrEmpty(pString) Then Return pString
+        Return pString.Replace("'", "''")
+    End Function
 End Module