VB用一张数据表和TreeView控件生成无限级目录树
2009-07-30 13:37
232 查看
之前想弄一个图片管理系统,但树形控件从未接触过,网上找到的资料也不适合自己的需要,现在无聊,就写一个用数据库建立树形目录的文章,第一次写技术文章,可能很烂,希望大家给点意见或建议!
本例用ACCESS数据库实现,也可以改用SQL,稍作修改就可以!
首先建立表:ML,字段:ID,FClass,Caption 其中ID为自动编号,其它的为文本(FClass也可以为数字,后面作相应修改既可)ID为当前目录的主要标识,不可重复,FClass为当前目录的上级目录的ID,只能纯数字,可以为空,Caption为当前目录的标题。
用For循环读出所有记录,代码:
VB中定义3个字符串变量:txtID,txtFC,txtCap 分别用于保存从数据库中读出的ID,FClass,Caption的记录代码:
如果txtFC是空值,则说明当前记录是根目录;如果非空值,则txtFC的值为当前目录的上级目录ID,代码:
由于我现在没有环境,代码全是手写,难免会有一些错误,很容易发现的,大家有意见或建议请留言!
以上为本人原创,转载请注明出处!
本例用ACCESS数据库实现,也可以改用SQL,稍作修改就可以!
首先建立表:ML,字段:ID,FClass,Caption 其中ID为自动编号,其它的为文本(FClass也可以为数字,后面作相应修改既可)ID为当前目录的主要标识,不可重复,FClass为当前目录的上级目录的ID,只能纯数字,可以为空,Caption为当前目录的标题。
用For循环读出所有记录,代码:
For i = 0 To iRe.RecordCount - 1 ...... iRe.MoveNext Next i
VB中定义3个字符串变量:txtID,txtFC,txtCap 分别用于保存从数据库中读出的ID,FClass,Caption的记录代码:
txtID=iRe.Fileds("ID") txtFC=iRe.Fileds("FClass") txtCap=iRe.Fileds("Caption")
如果txtFC是空值,则说明当前记录是根目录;如果非空值,则txtFC的值为当前目录的上级目录ID,代码:
If txtFC="" Then FNode=TreeView1.Nodes.Add(,,"_" & ID,Caption) Else TNode=Treeview1.Nodes.Add("_" & txtFC,tvwChild,"_" & ID,Caption) End If
由于我现在没有环境,代码全是手写,难免会有一些错误,很容易发现的,大家有意见或建议请留言!
以上为本人原创,转载请注明出处!
相关文章推荐
- VB用一张数据表和TreeView控件生成无限级目录树
- 利用.net 2.0中的TreeView控件与数据库绑定,生成无限级的树目录
- 利用.net 2.0中的TreeView控件与数据库绑定,生成无限级的树目录
- 无限递归目录生成 json格式数据, jstree数据源
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- 扫描枪程序-扫描枪扫码,保存数据并在当前目录生成文档
- 用VB将目录里所有文件及子目录存储到一个类型数组中后,将基其反映在Treeview控件上
- 利用TreeView控件动态生成无限级树
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- Oracle 生成一张测试表并插入随机数据
- 利用TreeView控件动态生成无限级树
- [网络收集]读取XML 利用TreeView控件动态生成无限级树
- VB调用Excel将统计的数据生成各类图形
- c#生成无限级目录树
- 用golang递归构建无限级树状目录json数据和数据库
- 利用TreeView控件动态生成无限级树(续:通过绑定动态xml文件)
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- 利用TreeView控件动态生成无限级树(续:通过绑定动态xml文件)
- Linux生成以当前时间年/月/日命名的文件夹并向相应目录文件中写数据例程
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换