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