关于ACCESS数据库查找的问题. 我的一个大问题，也许对你来说只是一个小问题

zjsds

我的一个大问题，也许对你来说是一个小问题，请好心人帮帮忙。

如果真(“select * from 中心系统目录表 where 编号 ='0'” )
那么 记录集.读文件（,,）
否则 什么都不做
记录集.到下一条
========问题：当数据库中下一条的编号不等于0时，为什么还能执行 读文件命令

[e]
.版本 2
.支持库 eDB
.支持库 iext
.子程序 _主窗口_创建完毕
.局部变量 文本变量, 文本型
.局部变量 计次变量, 整数型
.如果真 (数据库连接.连接Access (取运行目录 () ＋ “\目录数据\中心系统目录.mdb”, “”) ＝ 假)
    信息框 (“与数据库连接失败！”, 64, )
    返回 ()
.如果真结束
记录集.置连接 (数据库连接)
记录集.打开 (“中心系统目录表”, #数据表名, )
.计次循环首 (记录集.记录数量, 计次变量)
    .如果真 (数据库连接.执行SQL (“select 父项编号 from 中心系统目录表 where 父项编号 ='0'”))
        记录集.读文本 (“名称”, 文本变量)
        超级列表框.插入表项 (, 文本变量, , , , )
    .如果真结束
    记录集.到下一条 ()
.计次循环尾 ()

[/e]

孤心人

如果真 (数据库连接.连接Access (取运行目录 () ＋ “\目录数据\中心系统目录.mdb”, “”) ＝ 假)  
信息框 (“与数据库连接失败！”, 64, )  
返回 ()  

记录集.置连接 (数据库连接)

记录集1.打开 (“select 父项编号 from 中心系统目录表 where 父项编号 ='0'”, 1, )
.计次循环首 (记录集1.记录数量, n)
    记录集.读文本 (“名称”, 文本变量)
    超级列表框.插入表项 (, 文本变量, , , , )
.计次循环尾 ()

zjsds

孤心人 发表于 2011-9-2 18:41
如果真 (数据库连接.连接Access (取运行目录 () ＋ “\目录数据\中心系统目录.mdb”, “”) ＝ 假)  
信息 ...

最后一个问题。不能读出文本。

[e]
.版本 2
.支持库 eDB
.支持库 spec
.支持库 iext
.如果真 (数据库连接.连接Access (取运行目录 () ＋ “\目录数据\中心系统目录.mdb”, “”) ＝ 假)
    信息框 (“与数据库连接失败！”, 64, )
    返回 ()
.如果真结束
记录集.置连接 (数据库连接)
.如果真 (记录集.打开 (“select 父项编号 from 中心系统目录表 where 父项编号 ='0'”, #SQL语句, ) ＝ 假)
    信息框 (“数据库查询失败！”, 64, )
    返回 ()
.如果真结束
.计次循环首 (记录集.记录数量, n)
    调试输出 (记录集.读文本 (“名称”, 目录))  ' 这里不能读出文本
    超级列表框.插入表项 (, 目录, , , , )
    记录集.到下一条 ()
.计次循环尾 ()
[/e]

zjsds

孤心人 发表于 2011-9-2 18:41
如果真 (数据库连接.连接Access (取运行目录 () ＋ “\目录数据\中心系统目录.mdb”, “”) ＝ 假)  
信息 ...

后一个问题，也就是你的代码

孤心人

zjsds 发表于 2011-9-2 18:57
后一个问题，也就是你的代码

你的字段名是不是叫“名称”呢？字段内有没有数据，没有数据，没有例程，说不清楚

zjsds

都有

zjsds

孤心人 发表于 2011-9-2 19:06
你的字段名是不是叫“名称”呢？字段内有没有数据，没有数据，没有例程，说不清楚

都有