我的理解,楼主是想根据复选框设置权限吧?那就是读写数据库,可用ado; dim cn as new ADODB.Connection dim rs as new ADODB.Recordset cn.Open "Driver=SQL Server;Server=172.16.8.108;Database=Pubs;UID=sa;PWD="'数据连接字符串,根据实际修改读数据: rs.Open "select super from tab_mangager",cn,adOpenStatic, adLockReadOnly 修改数据: cn.Execute "update tab_mangager set super=" & 1 '根据选择获取权限值
dim cn as new ADODB.Connection
dim rs as new ADODB.Recordset
cn.Open "Driver=SQL Server;Server=172.16.8.108;Database=Pubs;UID=sa;PWD="'数据连接字符串,根据实际修改读数据:
rs.Open "select super from tab_mangager",cn,adOpenStatic, adLockReadOnly
修改数据:
cn.Execute "update tab_mangager set super=" & 1 '根据选择获取权限值
:
:
: