为何数据库无法打开

[hsxwl]

Private Sub listtree() '用于显示treeview的数据
TreeView1.Nodes.Clear
Dim nodX As Node
Dim i As Integer
TreeView1.LineStyle = tvwRootLines ' Linestyle 1显示+/-号


opendb
Dim rsel As New ADODB.Recordset
Dim sqlel As String
Dim sqlsl As String
Dim sqlsil As String

sqlel = "select * from elei where ylbhao like '11'"
rsel.Open sqlel, Conn, 1, 1

While Not rsel.EOF
Set nodX = TreeView1.Nodes.Add(, , "k" & rsel.Fields("elbhao"), rsel.Fields("mchen"))
Dim rssl As New ADODB.Recordset
sqlsl = "select * from slei where elbhao like '" & rsel.Fields("elbhao") & "'"
rssl.Open sqlsl, Conn, 1, 1

While Not rssl.EOF
Set nodX = TreeView1.Nodes.Add("k" & rsel.Fields("elbhao"), tvwChild, "k" & rssl.Fields("slbhao"), rssl.Fields("mchen"))



Dim rssil As New ADODB.Recordset
sqlsil = "select * from silei where slbhao like '" & rssl.Fields("slbhao") & "'"
rssil.Open sqlsil, Conn, 1, 1 '此处提示:实时错误'-2147217887(80040e21)':

' While Not rssil.EOF
' Set nodX = TreeView1.Nodes.Add("k" & rssil.Fields("slbhao"), tvwChild, "k" & rssil.Fields("silbhao"), rssil.Fields("mchen"))
' rssil.MoveNext
' Wend




rssl.MoveNext
Wend
rssl.Close
rsel.MoveNext
Wend
End Sub

[三楼の郎]

用递归调用来实现吧

[三楼の郎]

Private Sub listtree() '用于显示treeview的数据
TreeView1.Nodes.Clear
Dim nodX As Node
Dim i As Integer
TreeView1.LineStyle = tvwRootLines ' Linestyle 1显示+/-号


opendb
Dim rsel As New ADODB.Recordset
Dim sqlel As String
Dim sqlsl As String
Dim sqlsil As String

Dim rssl As ADODB.Recordset '修改了这里
Dim rssil As ADODB.Recordset '修改了这里

sqlel = "select * from elei where ylbhao like '11'"
rsel.Open sqlel, Conn, 1, 1

While Not rsel.EOF
Set nodX = TreeView1.Nodes.Add(, , "k" & rsel.Fields("elbhao"), rsel.Fields("mchen"))

set rssl=new adodb.recordset '修改了这里

sqlsl = "select * from slei where elbhao like '" & rsel.Fields("elbhao") & "'"
rssl.Open sqlsl, Conn, 1, 1

While Not rssl.EOF
Set nodX = TreeView1.Nodes.Add("k" & rsel.Fields("elbhao"), tvwChild, "k" & rssl.Fields("slbhao"), rssl.Fields("mchen"))

set rssil=new adodb.recordset '修改了这里


sqlsil = "select * from silei where slbhao like '" & rssl.Fields("slbhao") & "'"
rssil.Open sqlsil, Conn, 1, 1 '此处提示:实时错误'-2147217887(80040e21)':

' While Not rssil.EOF
' Set nodX = TreeView1.Nodes.Add("k" & rssil.Fields("slbhao"), tvwChild, "k" & rssil.Fields("silbhao"), rssil.Fields("mchen"))
' rssil.MoveNext
' Wend

rssil.close '修改了这里
set rssil=nothing '修改了这里


rssl.MoveNext
Wend
rssl.Close

set rssl=nothing '修改了这里

rsel.MoveNext
Wend

rsel.close '修改了这里
set rsel=nothing '修改了这里

End Sub

[cqq_chen]

至少在do while ....中间用Dim rssil As New ADODB.Recordset是不对的。

[daisy8675]

同楼上意见

你可以把树一层层加，没必要把rs去嵌套

[junki]

sqlsil = "select * from silei where slbhao like '" & rssl.Fields("slbhao") & "'"
rssil.Open sqlsil, Conn, 1, 1 '此处提示:实时错误'-2147217887(80040e21)':

rssl.Fields("slbhao")此项是否有效呢？