作者rim0514 (新的领悟)
看板Visual_Basic
标题关於treeview
时间Tue May 2 00:52:34 2006
怎麽抓资料库比较有效率呢
我的程式是一个一个抓
感觉挺笨的
Dim i, j, k, m As Integer
Dim TreeNode1 As TreeNode
DBCom.OleDbConnection1.Open()
'//资料库
SqlStr1 = "select distinct TesterM_Name from dbo.tester"
Dim adp1 As New OleDb.OleDbDataAdapter(SqlStr1, DBCom.OleDbConnection1)
adp1.Fill(DBCom.DataSet1, "mytab1")
'#
For i = 0 To DBCom.DataSet1.Tables("mytab1").Rows.Count - 1
'第一层节点
TreeView1.Nodes.Add(DBCom.DataSet1.Tables("mytab1").Rows(i)("testerM_name").ToString())
'//资料库1
SqlStr2 = "select * FROM aaa where testerM_name='" & DBCom.DataSet1.Tables("mytab1").Rows(i)("testerM_name").ToString() &"'"
Dim adp2 As New OleDb.OleDbDataAdapter(SqlStr2, DBCom.OleDbConnection1)
adp2.Fill(DBCom.DataSet1, "mytab2")
'##
For j = 0 To DBCom.DataSet1.Tables("mytab2").Rows.Count - 1
'第二层节点
TreeView1.Nodes(i).Nodes.Add(New TreeNode(DBCom.DataSet1.Tables("mytab2").Rows(j)("Iclass").ToString))
'//资料库2
SqlStr3 = SqlStr2 & "and ccc.IClass='" & DBCom.DataSet1.Tables("mytab2").Rows(j)("IClass").ToString() & "'
Dim adp3 As New OleDb.OleDbDataAdapter(SqlStr3, DBCom.OleDbConnection1)
adp3.Fill(DBCom.DataSet1, "mytab3")
Next
Next
有好的建议ㄇ
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.233.7.2
1F：推 rocksan:可以写成有点那个节点的时候，才读进来~~ 05/02 14:46
2F：→ rocksan:或者是利用多个执行绪一次读取进来 05/02 14:47