코드 사본은 다음과 같습니다.
'문자열을 데이터베이스 SQL 문 형식으로 변환합니다
'----------------------------------------------------------------
functionallstr2database (str, strtype)
dimstrtemp : strtemp = str
SELECTCASESTRTYPE
사례""
사례 "num"
strtemp = clng (strtemp)
케이스 "문자열" '트림이 없습니다
strtemp = replace (strtemp "," ', "' ''")
CASE "str_br" '트림 없음, 캐리지 리턴 변환 <br>로 일반적으로 멀티 라인 텍스트 입력에 사용됩니다.
strtemp = replace (replace (strtemp, " '", "' '"), vbcrlf, "<br>")
케이스 "str_trim" '트림
strtemp = replace (trim (strtemp), " '", "' ''")
케이스 "Nums"
strtemp = trim (strtemp)
strtemp = replace (strtemp, ")", "")
strtemp = replace (strtemp, "(", "")
strtemp = replace (strtemp, " '", "")
strtemp = replace (strtemp, ";", "")
strtemp = replace (strtemp, "", "")
strtemp = replace (strtemp, "또는", "")
strtemp = replace (strtemp, "and", "")
strtemp = replace (strtemp, "delete", "")
strtemp = replace (strtemp, "select", ",")
strtemp = replace (strtemp, "exec", "")
strtemp = replace (strtemp, "update", "")
strtemp = replace (strtemp, "select", ",")