Skip to content

Instantly share code, notes, and snippets.

@felixlindemann
Created August 26, 2013 12:34
Show Gist options
  • Save felixlindemann/6340968 to your computer and use it in GitHub Desktop.
Save felixlindemann/6340968 to your computer and use it in GitHub Desktop.
Correct Values MySQL doesn't understand due to encoding issues
' Correct values, mysql doesn't understand due to encoding issuses
Private Function cleanValue(value As String) As String
value = IIf(IsNull(value) Or value = "", 0, value)
value = Replace(value, "%", " percent ")
value = Replace(value, "‰", "permill")
value = Replace(value, "'", "")
value = Replace(value, "°", "deg")
value = Replace(value, ">=", "geq.")
value = Replace(value, "<=", "leq.")
value = Replace(value, "=", "eq.")
value = Replace(value, "<", "")
value = Replace(value, ">", "greater")
value = Replace(value, vbTab, " ")
value = Replace(value, "€", "euro")
value = Replace(value, vbNewLine, " ")
cleanValue = value
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment