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