Language: Add EscapeForSQL string extension method

2022-11-02 13:36:29 +01:00 · 2022-11-02 13:36:29 +01:00 · 8128987be4
commit 8128987be4
parent 6ebd3b82b6
1 changed files with 11 additions and 0 deletions
--- 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