mdb写入树型框已有的项目中

btsd2021

如何把MDB数据库里"项目"表里的"项目名称"字段下的内容写到树型框里为父值,见图3.将"附件"表里"文件名"字段下的内容按"项目序号'放到所对应的父值下面。"项目序号'为1，所对应的文件名放到“信息中心制度”下，"项目序号'为2，所对应的文件名放到“信息中心体系”下。


我写的，只能把项目的内容放进去。但附件的内容放不到对应的项目里面。那位大神帮忙写一下。数据库文件传不上去。

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
项目总数	整数型
文件总数	整数型
循环次数	整数型
项目名称	文本型
文件名	文本型
项目序号	整数型

如果 (数据库连接1.连接Access (取当前目录 () ＋ “\Database2.mdb”, “”))
数据库连接成功 ＝ 真
_启动窗口.标题 ＝ “数据库连接成功”
如果 (数据库连接成功 ＝ 真)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“SELECT * FROM 项目”, #SQL语句, )
项目总数 ＝ 记录集1.记录数量
记录集1.到首记录 ()
' 调试输出 (项目总数)
计次循环首 (项目总数, 循环次数)
记录集1.读文本 (“项目名称”, 项目名称)
' 调试输出 (项目名称)
树型框1.加入项目 (-1, 项目名称, , , , 假, )
记录集1.到下一条 ()
计次循环尾 ()



记录集1.关闭 ()
数据库连接成功 ＝ 假
_启动窗口.标题 ＝ “数据库连接失败”

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 项目总数, 整数型<br /> .局部变量 文件总数, 整数型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 项目名称, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 项目序号, 整数型<br /> <br /> .如果 (数据库连接1.连接Access (取当前目录 () ＋ “\Database2.mdb”, “”))<br />     数据库连接成功 ＝ 真<br />     _启动窗口.标题 ＝ “数据库连接成功”<br />     .如果 (数据库连接成功 ＝ 真)<br />         记录集1.置连接 (数据库连接1)<br />         记录集1.打开 (“SELECT * FROM 项目”, #SQL语句, )<br />         项目总数 ＝ 记录集1.记录数量<br />         记录集1.到首记录 ()<br />         ' 调试输出 (项目总数)<br />         .计次循环首 (项目总数, 循环次数)<br />             记录集1.读文本 (“项目名称”, 项目名称)<br />             ' 调试输出 (项目名称)<br />             树型框1.加入项目 (-1, 项目名称, , , , 假, )<br />             记录集1.到下一条 ()<br />         .计次循环尾 ()<br /> <br />     .否则<br /> <br />     .如果结束<br />     记录集1.关闭 ()<br /> .否则<br />     数据库连接成功 ＝ 假<br />     _启动窗口.标题 ＝ “数据库连接失败”

LEOONL

https://bbs.125.la/forum.php?mod ... 1%E5%9E%8B%E6%A1%86

LEOONL

https://bbs.125.la/forum.php?mod ... 1%E5%9E%8B%E6%A1%86
https://bbs.125.la/forum.php?mod ... 1%E5%9E%8B%E6%A1%86