摘要

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

细节

页面属性

内容

...	...	@@ -21,16 +21,6 @@
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) & ") || '")
34	34	dbval = Replace(dbval, vbCr, "' || chr(" & Asc(vbCr) & ") || '")
35	35	dbval = Replace(dbval, vbLf, "' || chr(" & Asc(vbLf) & ") || '")
36	36
...	...	@@ -45,10 +45,11 @@
45	45	dbins = "insert into " & tableName & " (" & Replace(dbval(titleCells), "'", "") & ") values (" & dbval(valueCells) & ");"
46	46	End Function
47	47
	38	+
48	48	' 获取数据行对应的 DML 删除语句。
49	49	Function dbdel(tableName As String, primaryKey As String, primaryValue As String) As String
50		- dbdel = dbval(primaryValue)
51		- dbdel = "delete from " & tableName & " where " & primaryKey & IIf(dbdel = "null", " is ", " = ") & dbdel & ";"
	41	+ primaryValue = dbval(primaryValue)
	42	+ dbdel = "delete from " & tableName & " where " & primaryKey & IIf(primaryValue = "null", " IS ", " = ") & primaryValue & ";"
52	52	End Function
53	53	{{/code}}
54	54

USER_INFO.xlsm

大小

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

内容