摘要

• 页面属性 (1 修改， 0 新增， 0 删除)
• 附件 (1 修改， 0 新增， 0 删除)
  • USER_INFO.xlsm

细节

页面属性

内容

...	...	@@ -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
...	...	@@ -35,11 +35,10 @@
35	35	dbins = "insert into " & tableName & " (" & Replace(dbval(titleCells), "'", "") & ") values (" & dbval(valueCells) & ");"
36	36	End Function
37	37
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 & ";"
	50	+ dbdel = dbval(primaryValue)
	51	+ dbdel = "delete from " & tableName & " where " & primaryKey & IIf(dbdel = "null", " is ", " = ") & dbdel & ";"
43	43	End Function
44	44	{{/code}}
45	45

USER_INFO.xlsm

大小

...	...	@@ -1,1 +1,1 @@
1		-19.7 KB
	1	+20.1 KB

内容