• Home
 · 
• Miscellaneous
 · 
• Enclose a given string in single quotes, double quotes or hashes (useful for database work) with on

Enclose a given string in single quotes, double quotes or hashes (useful for database work) with on

Enclose a given string in single quotes, double quotes or hashes (useful for database work) with one simple function

Rate Enclose a given string in single quotes, double quotes or hashes (useful for database work) with on

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'usage example:
'addquotes(MyString, 2) will enclose myString in double quotes
'addQuotes("test",1) will enclose test with single quotes

Public Function addQuotes(strString As String, quoteType As Byte) As String
    Dim strQuote As String
    Dim newString As String
    
    Select Case (quoteType)
        
        Case Is = 1
            strQuote = "'"
        Case Is = 2
            strQuote = Chr(34) ' set " quote
        Case Is = 3
            strQuote = "#"
    End Select
    
    newString = strQuote & strString & strQuote
    addQuotes = newString
    
End Function