帮忙看看哪出错了

Ｈōńéｙ · 发表于 2014-9-6 16:54:38

数据库名：m.mdb
表名：a
字段：ID,AN

查找 ID=编辑框1内容得出编辑框2内容=AN

.版本 2
.支持库 eDB

.程序集窗口程序集1

.子程序 _按钮1_被单击

.如果 (数据库连接1.连接Access (取运行目录 () ＋ “\m.mdb”, “”) ＝真)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“a”, #数据表名, )
记录集1.到首记录 ()
读出数据 ()
.否则
信息框 (“失败”, 0, )
结束 ()
.如果结束

.子程序读出数据
.局部变量 ID, 整数型
.局部变量 an, 文本型

记录集1.读整数 (“ID”, ID)
记录集1.读文本 (“an”, an)
.如果 (查找 (到文本 (ID) ＝编辑框1.内容))
编辑框2.内容＝ an
.否则
信息框 (“不存在”, 0, )
.如果结束

结果一直是信息框（不存在）。。。哪错了。。