Question

易语言组合框读edb数据库

我创建了一个edb数据库，单击按钮1往edb数据库写入 组合框.内容和编辑框的内容，我能写入数据，但组合框不能读取数据。出错要不提示找不到字段，要不提示找不到常量。下面是我的代码，可能那里出错了，那位能帮帮我。

.程序集 窗口程序集1

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

加空记录 ()
写 (#账号, 组合框1.内容)
写 (#密码, 到数值 (编辑框1.内容))
组合框1.内容 ＝ “”
编辑框1.内容 ＝ “”

.子程序 __启动窗口_创建完毕

打开 (“1.edb”, , , , , , )
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
组合框1.加入项目 (读 (“帐号”), )
跳过 ()
.判断循环尾 ()

.子程序 _组合框1_列表项被选择

跳到 (组合框1.现行选中项 ＋ 1)
编辑框1.内容 ＝ 读 (“密码”)

Answer 1

我给你一个正确的代码。

.程序集 窗口程序集1

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

加空记录 ()
写 (#账号, 组合框1.内容)
写 (#密码, 到数值 (编辑框1.内容))
组合框1.内容 ＝ “”
编辑框1.内容 ＝ “”

.子程序 __启动窗口_创建完毕

打开 (取运行目录 () ＋ “\1.edb”, , , , , , )
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
组合框1.加入项目 (读 (“账号”), )
跳过 ()
.判断循环尾 ()

这上面的代码都没错。错的是下面的代码。

.

.子程序 _组合框1_列表项被选择

跳到 (组合框1.现行选中项 ＋ 1)
编辑框1.内容 ＝ 读 (“密码”) ，错的是这句：编辑框1.内容 ＝ 读 (“密码”)

你把它改成：

编辑框1.内容 ＝ “”
编辑框1.加入文本 (到文本 (读 (#密码)))

另外你要把账号字段设置文本型，不然会出错提示数据类型不匹配。
这样就可以了。

Answer 2

整体思路是：先找出数据库中姓名与组合框的内容一样的那条记录，然后再提取出对应记录中的密码。其中用个判断等逻辑性语句。

.版本 2

.局部变量 密码, 文本型

.如果 (组合框1.取项目文本 (组合框1.现行选中项) ＝ 读 (“姓名”))
密码 ＝ 读 (“psw”)
.否则
信息框 (“密码正确！”, 0, ) ' 改为实际所需的命令跳转
.如果结束
信息框 (“密码错误！”, 0, )

追问

我上面代码想要的目的是：把组合框1的内容和编辑框1的内容写入到1.edb 数据库里。再读取1.edb数据库里的账户和密码。我点击组合框显示的其中一个账号时，编辑框1同时显示相对应的密码。
但 到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
组合框1.加入项目 (读 (“帐号”), )
跳过 ()
.判断循环尾 ()
这个代码好像不能读取edb类型的数据库。你能告诉我组合框是怎么读取edb类型的数据库的。
谢谢