sql

    '替换SQL语句中的特殊字符   

    Function SqlFix()Function SqlFix(ByVal str As String) As String
        Dim strTmp
        If str & "" = "" Then
            Exit Function
        End If
        strTmp = Replace(str, "'", "''")
        strTmp = Replace(strTmp, """", "")
        strTmp = Replace(strTmp, ";", "")
        strTmp = Replace(strTmp, "&", "")
        strTmp = Replace(strTmp, " ", "")
        strTmp = Replace(strTmp, "　", "")
        strTmp = Replace(strTmp, "%20", "")
        strTmp = Replace(strTmp, "--", "")
        strTmp = Replace(strTmp, "==", "")
        strTmp = Replace(strTmp, "<", "")
        strTmp = Replace(strTmp, ">", "")
        strTmp = Replace(strTmp, "%", "")
        SqlFix = strTmp
    End Function