【下载文档:  把字符串转换成数据库SQL语句格式.txt 】

---

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