亲宝软件园·资讯

展开

把字符串转换成数据库SQL语句格式

人气:0
想了解把字符串转换成数据库SQL语句格式的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:把字符串转换成数据库SQL语句格式,下面大家一起来学习吧。
复制代码 代码如下:

'把字符串转换成数据库SQL语句格式
'-------------------------------------------------
Function AllStr2Database(str,strType)
    Dim strTemp:strTemp=str
    Select Case strType
        Case ""
        Case "num"
            strTemp = Clng(strTemp)
        Case "string" '无Trim
            strTemp = Replace(strTemp, "'", "''")
        Case "str_br" '无Trim,把回车转换为<br>,一般用于多行文本输入
            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

加载全部内容

相关教程
猜你喜欢
用户评论