Dim CN As ADODB.Connection '定义数据库的连接Dim Rs As ADODB.Recordset '工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Private Sub Form_Load() Set CN = New ADODB.Connection ‘连接数据库 CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Bench;User Id=sa;Password=sa;" CN.OpenCall AddTree(3)End Sub Private Sub AddTree(ByVal intDepth As Integer) ‘打开记录集,得到深度小于些深度的所有节点,并按深度排序 Set Rs = New ADODB.Recordset Rs.Open "select * from tbTree where depth<='" & intDepth & "' order by depth", CN, adOpenDynamic, adLockReadOnly Dim Xnod As Node Do While Not Rs.EOF If Rs.Fields("depth") = 0 Then ‘加入根结点 Set Xnod = TreeView1.Nodes.Add(, , "key" & Rs.Fields("id"), Rs.Fields("context")) Else ‘加入子节点 Set Xnod = TreeView1.Nodes.Add("key" & Rs.Fields("parentid"), tvwChild, "key" & Rs.Fields("id"), Rs.Fields("context")) End If Xnod.EnsureVisible Rs.MoveNext Loop Rs.CloseEnd Sub
这段代码转换成C#的应该怎么写呢?
数据表结构是ID,CONTEXT,DEPTH
DEPTH是深度
我就是想把数据表里的数据读取到treeview,查询出来的数据按DEPTH排序,然后依次添加第一层,第二层节点....直到第N层
谢谢啦~~~~~
这段代码转换成C#的应该怎么写呢?
数据表结构是ID,CONTEXT,DEPTH
DEPTH是深度
我就是想把数据表里的数据读取到treeview,查询出来的数据按DEPTH排序,然后依次添加第一层,第二层节点....直到第N层
谢谢啦~~~~~
数据表结构应该是ID,PARENTID,CONTEXT,DEPTH
为啥不用ADO.NET?
===============================
嘿嘿,就是VB6的代码
我想把这段代码转换成C#