Copy Code code as follows:
' Converts a string into a database SQL statement format
'-------------------------------------------------
Function Allstr2database (Str,strtype)
Dim Strtemp:strtemp=str
Select Case Strtype
Case ""
Case "Num"
strtemp = CLNG (strtemp)
Case "string" without trim
strtemp = Replace (strtemp, "'", "")
Case "STR_BR" "no trim, convert carriage return to <br>, commonly used for multiline text input
strtemp = replace (replace (strtemp, "'", "" "), VbCrlf," <br> ")
Case "Str_trim" ' Trim
strtemp = Replace (Trim (strtemp), "'", "" ")
Case "Nums"
strtemp = Trim (strtemp)
strtemp = Replace (strtemp, ")", "")
strtemp = Replace (strtemp, "(", "")
strtemp = Replace (strtemp, "'", "")
strtemp = Replace (strtemp, ";", "")
strtemp = Replace (strtemp, "", "")
strtemp = Replace (strtemp, "or", "")
strtemp = Replace (strtemp, "and", "")
strtemp = Replace (strtemp, "delete", "")
strtemp = Replace (strtemp, select, "")
strtemp = Replace (strtemp, "exec", "")
strtemp = Replace (strtemp, Update, "")
strtemp = Replace (strtemp, select, "")
Case "Strings"
Case Else
End Select
Allstr2database = strtemp
End Function