求把这个edb数据库改成随机取的！

淡忘生活

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
计次	整数型
n	整数型

编辑框1.内容 ＝ “”
判断 (打开 (取运行目录 () ＋ “\数据库测试.edb”, , , , , , ) ＝ 真)
' 调试输出 (是否已打开 (取运行目录 () ＋ “\数据库测试.edb”))
计次循环首 (取记录数 (), 计次)
跳到 (计次)
判断 (读 (“测试3号”) ＝ “否”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “第” ＋ 到文本 (n ＋ 1) ＋ “次出现位置索引：” ＋ 到文本 (计次) ＋ “ ” ＋ “对应字段1数值：” ＋ 到文本 (读 (“测试1号”)) ＋ “ ” ＋ “对应字段2数值：” ＋ 到文本 (读 (“测试2号”)) ＋ #换行符
n ＝ n ＋ 1



计次循环尾 ()
关闭 (取运行目录 () ＋ “\数据库测试.edb”) ' 请把我附带的数据库放在运行目录下
' 调试输出 (是否已打开 (取运行目录 () ＋ “\数据库测试.edb”))
信息框 (“数据库不存在或打开失败”, 0, )

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 编辑框1.内容 ＝ “”<br /> .判断开始 (打开 (取运行目录 () ＋ “\数据库测试.edb”, , , , , , ) ＝ 真)<br /> ' 调试输出 (是否已打开 (取运行目录 () ＋ “\数据库测试.edb”))<br /> .计次循环首 (取记录数 (), 计次)<br /> 跳到 (计次)<br /> .判断开始 (读 (“测试3号”) ＝ “否”)<br /> 编辑框1.内容 ＝ 编辑框1.内容 ＋ “第” ＋ 到文本 (n ＋ 1) ＋ “次出现位置索引：” ＋ 到文本 (计次) ＋ “ ” ＋ “对应字段1数值：” ＋ 到文本 (读 (“测试1号”)) ＋ “ ” ＋ “对应字段2数值：” ＋ 到文本 (读 (“测试2号”)) ＋ #换行符<br /> n ＝ n ＋ 1<br /> .默认<br /> <br /> .判断结束<br /> <br /> .计次循环尾 ()<br /> 关闭 (取运行目录 () ＋ “\数据库测试.edb”) ' 请把我附带的数据库放在运行目录下<br /> ' 调试输出 (是否已打开 (取运行目录 () ＋ “\数据库测试.edb”))<br /> .默认<br /> 信息框 (“数据库不存在或打开失败”, 0, )<br /> <br /> .判断结束

这个是一次读取完毕的！

谁能把这段代码     读edb数据库的改成 随机读取的！

读取后并把 在测试3号 字段里面的 否  改成真，然后下一个字段又继续读取  测试3号的否，如此循环！

测试数据库 (1).zip (1.67 KB, 下载次数: 1)

2014-12-29 17:00 上传

点击文件名下载附件

淡忘生活

请下载第一个 附件，第二个是错的！

1054114709

请下载第一个 附件，第二个是错的！

淡忘生活

人呢？？？？？？？？？？？