摘要

• 页面属性 (1 修改， 0 新增， 0 删除)

细节

页面属性

内容

...	...	@@ -21,6 +21,16 @@
21	21
22	22	dbval = Replace(dbval, "'", "' || chr(" & Asc("'") & ") || '")
23	23	dbval = Replace(dbval, """", "' || chr(" & Asc("""") & ") || '")
	24	+ dbval = Replace(dbval, "\", "' || chr(" & Asc("\") & ") || '")
	25	+ dbval = Replace(dbval, "`", "' || chr(" & Asc("`") & ") || '")
	26	+ dbval = Replace(dbval, "!", "' || chr(" & Asc("!") & ") || '")
	27	+ dbval = Replace(dbval, "@", "' || chr(" & Asc("@") & ") || '")
	28	+ dbval = Replace(dbval, "#", "' || chr(" & Asc("#") & ") || '")
	29	+ dbval = Replace(dbval, "$", "' || chr(" & Asc("$") & ") || '")
	30	+ dbval = Replace(dbval, "%", "' || chr(" & Asc("%") & ") || '")
	31	+ dbval = Replace(dbval, "&", "' || chr(" & Asc("&") & ") || '")
	32	+ dbval = Replace(dbval, ";", "' || chr(" & Asc(";") & ") || '")
	33	+ dbval = Replace(dbval, vbTab, "' || chr(" & Asc(vbTab) & ") || '")
24	24	dbval = Replace(dbval, vbCr, "' || chr(" & Asc(vbCr) & ") || '")
25	25	dbval = Replace(dbval, vbLf, "' || chr(" & Asc(vbLf) & ") || '")
26	26
...	...	@@ -38,9 +38,10 @@
38	38
39	39	' 获取数据行对应的 DML 删除语句。
40	40	Function dbdel(tableName As String, primaryKey As String, primaryValue As String) As String
41		- primaryValue = dbval(primaryValue)
42		- dbdel = "delete from " & tableName & " where " & primaryKey & IIf(primaryValue = "null", " IS ", " = ") & primaryValue & ";"
	51	+ dbdel = dbval(primaryValue)
	52	+ dbdel = "delete from " & tableName & " where " & primaryKey & IIf(dbdel = "null", " is ", " = ") & dbdel & ";"
43	43	End Function
	54	+
44	44	{{/code}}
45	45
46	46	= 使用示例 =