复制代码 代码如下:
'把字符串转换成数据库SQL语句格式
'-------------------------------------------------
FunctionAllStr2Database(str,strType)
DimstrTemp:strTemp=str
SelectCasestrType
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"
CaseElse
EndSelect
AllStr2Database=strTemp
EndFunction