'把字符串转换成数据库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,把回车转换为，一般用于多行文本输入             strTemp = Replace(Replace(strTemp, "'", "''"), VbCrlf, "")         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