复制代码 代码如下:

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