类别提取

[keithhe]

表qx字段ID,quanxian,分别是权限代码，和权限说明。
表adminuser字段user,pwd,quanxian分别是用户名，密码，和权限。其中权限是多权限设置。通过ID号写入quanxian,格式入1,2,3,4。
现在要列出各权限的用户名。就是具有权限1的用哪些用户等等。
如何写？

LIKE只能在ID很少时解决问题，当ID较大时，就有1，11，12，13，……。这样就不满足要求了。

[caoshangfei]

存入的时候用格式,1,2,3,4,前面和后面都加上,like的时候用like '%,"&id&"'%"

[caoshangfei]

sql="select * from table where id like '%,"&id&",%'"

[keithhe]

但我存入方式是：1,2,3不是，1,2,3,

[stationxp]

dim arrQuanx,strQuanx

While Not rs.eof
strQuanx = rs("quanxian")
arrQuanx = split(strQuanx,",")
Dim bReturn
bReturn = False
For each strq in arrQuanx
If "1"=strq Then
bReturn = True
End If
Next
If bReturn Then
'找到
End If
Loop

[stationxp]

显然 caoshangfei(草上飞) 给出的方法好，现有数据格式不符可以使用update语句更新。

[fcuandy]

你的权限不会超过10种级别吧，那么就不存在1和10及11,2与21的混乱

[keithhe]

不超过10当然最好办了。
但我们是为学习，就要深入了解。我认为用split比较好

[fcuandy]

嗯，我也喜欢用split做成数组然后识别它是不是数组中的一项