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

474 阅读 0 评论 313 点赞

我是靠谱客的博主陶醉雪碧，这篇文章主要介绍把字符串转换成数据库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