欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-14 20:33:53
复制代码 代码如下:'把字符串转换成数据库sql语句格式 '------------------------------------------------- functi...
复制代码 代码如下:

'把字符串转换成数据库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