關於treeview

看板Visual_Basic作者rim0514 (新的領悟)時間19年前 (2006/05/02 00:49)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串1/1

怎麼抓資料庫比較有效率呢我的程式是一個一個抓感覺挺笨的 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