推 rocksan:可以寫成有點那個節點的時候，才讀進來~~ 05/02 14:46
→ rocksan:或者是利用多個執行緒一次讀取進來 05/02 14:47
怎麼抓資料庫比較有效率呢
我的程式是一個一個抓
感覺挺笨的
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