نسخة الكود كما يلي:
'تحويل السلاسل إلى تنسيق بيان قاعدة البيانات SQL
'-------------------------------------------
FunctionAllStr2Database (Str ، Strtype)
Dimstrtemp: strtemp = str
SelectCasestrtype
قضية""
حالة "num"
strtemp = clng (strtemp)
حالة "سلسلة" "لا تقليم
strtemp = استبدال (strtemp ، "" "،" "")
الحالة "str_br" "لا تقليم ، تحويل العربة العودة إلى <br> ، وتستخدم بشكل عام لإدخال النص متعدد الخطوط
strtemp = استبدال (استبدال (strtemp ، "" "،" "") ، vbcrlf ، "<br>")
حالة "str_trim"
strtemp = استبدال (trim (strtemp) ، "'" ، "' '')
حالة "NUMS"
strtemp = trim (strtemp)
strtemp = استبدال (strtemp ، ")" ، "")
strtemp = استبدال (strtemp ، "(" ، "")
strtemp = استبدال (strtemp ، "" "،" ")
strtemp = استبدال (strtemp ، "؛" ، "")
strtemp = استبدال (strtemp ، "" ، "")
strtemp = استبدال (strtemp ، "أو" ، "")
strtemp = استبدال (strtemp ، "،" ، "")
strtemp = استبدال (strtemp ، "delete" ، "")
strtemp = استبدال (strtemp ، "SELECT" ، "")
strtemp = استبدال (strtemp ، "exec" ، "")
strtemp = استبدال (strtemp ، "تحديث" ، "")
strtemp = استبدال (strtemp ، "SELECT" ، "")