[code]’把字符串转换成数据库SQL语句格式’-------------------------------------------------Function AllStr2Database(str,strType)    Dim strTemp:strTemp=str    Select Case strType        Case ""   &...