数据库操作类ACCESS分页

.变量循环首 (1, #pagesize, 1, 计次)
.如果真 (数据库.尾记录后 () ＝ 假)
N ＝ N ＋ 1
超级列表框1.插入表项 (编号, 到文本 (编号 ＋ 1), , , , 数据库.读整数 (“id”))
超级列表框1.置标题 (编号, 0, 到文本 (数据库.读整数 (“id”)))
超级列表框1.置标题 (编号, 1, 到文本 (数据库.读文本 (“title”)))
超级列表框1.置标题 (编号, 2, 到文本 (数据库.读文本 (“content”)))
数据库.移动到下一条 ()
编号 ＝ 编号 ＋ 1
.如果真结束

.变量循环尾 ()
数据库.关闭 () ' 关闭当前记录集
记录 ＝ 到文本 (总数)
.如果 (记录 ＝ “0”)
标签1.标题 ＝ “[0/0/0]”
.否则
标签1.标题 ＝ “[” ＋ 到文本 (记录) ＋ “/” ＋ 到文本 (当前页) ＋ “/” ＋ 到文本 (总页数) ＋ “]”

id ＝ 到文本 (超级列表框1.取表项数值 (超级列表框1.现行选中项))
SQL ＝ “delete from ws_books where id=” ＋ id
数据库.Execute (SQL)