Visual_Basic 板


LINE

大家好,想请教一些问题 最近在练习怎麽使用 while rd.read()读取资料库的内容 让它呈现树状结构 我想要让它呈现 人-a-1 2 3 b-1 2 3 c-1 2 3 里面的人 及a.b.c及1.2.3,都必须从资料库读取的内容,进行动态显示 我现在已经做到 a 这些子层後面都能够顺利列出资料库的内容 b C 现在问题在於 母层人的部份,若他未加入子层,可以顺利列出资料库的人名 但若加入子层,却无法顺利列出资料库的人名 反而只会出现第一个人名之後,後面的人名就不会再出现了 我附上我的程式码,请大家帮我看一下,感谢!!! <% dim Provider as string '资料库提供者 dim DataSource as string '资料来源变数 dim conn as OleDbConnection '资料连结 dim sql as string 'sql语法 dim sql2 as string 'sql语法 dim cmd as OleDbCommand '资料库连接 dim cmd1 as OleDbCommand '资料库连接 dim cmd2 as OleDbCommand '资料库连接 dim rd as OleDbDataReader '资料库读取 dim rd1 as OleDbDataReader '资料库读取 dim rd2 as OleDbDataReader '资料库读取 dim count dim i '连结资料库 Provider = "Provider=Microsoft.Jet.OLEDB.4.0" DataSource = "Data Source=" & server.MapPath("lovetree.mdb") conn = new OleDbConnection(Provider & ";" & DataSource) conn.open sql="select 演员 from 演员" cmd = new Oledbcommand(sql,conn) rd= cmd.ExecuteReader() response.write("<table border=0>") count=0 while rd.read() count=count+1 end while sql="select 演员 from 演员" cmd = new Oledbcommand(sql,conn) rd= cmd.ExecuteReader() while rd.read() while rd.read() i=1 while rd.read() if i=1 then response.write("</br>") response.write("┌" & rd("演员") & "</br>") else if i=count 'response.write("bug") response.write("└" & rd("演员") & "</br>") else response.write("│" & rd("演员") & "</br>") end if i=i+1 end while sql="select 演员,类型,名称 from 演员 where 类型 like '%戏剧%'" cmd = new Oledbcommand(sql,conn) rd= cmd.ExecuteReader() response.write("<table border=0>") count=0 while rd.read() count=count+1 end while sql="select 演员,类型,名称 from 演员 where 类型 like '%戏剧%'" cmd = new Oledbcommand(sql,conn) rd= cmd.ExecuteReader() i=1 while rd.read() if i=1 then response.write("   " & "┬" & "戏剧作品"&"</br>") response.write("     " & "├"&"─" & rd("名称") & "</br>") else if i=count response.write("     " & "└" & "─" & rd("名称") & "</br>") else response.write("     " & "├" & "─" & rd("名称") & "</br>") end if i=i+1 end while end while end while conn.close %> --



※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 120.127.47.23
1F:→ hjt00:看不太懂你的问题,不过你都用同一个datareader,又用while 12/20 18:12
2F:→ hjt00:当下面的reader跑完的时候,前面也没得用了。所以你只会出现 12/20 18:13
3F:→ hjt00:最前面的人名一次。 12/20 18:13







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:Boy-Girl站内搜寻

TOP