Public Sub intTreeData()
Dim objNode As Node
Dim objRecordset As ADODB.Recordset
Dim objSubRecordset As ADODB.Recordset
Dim strSQL As String
Dim strClass As String
TreeView1.Nodes.Clear
'顯示根節點
strClass = "避雷器在線監測"
TreeView1.LineStyle = tvwRootLines
'查詢線路
strSQL = "select distinct 線路 from 引數表 order by 線路"
Set objRecordset = ExecuteSQL(strSQL)
'查詢引數
strSQL = "select distinct 線路,引數 from 引數表 order by 線路,引數"
Set objSubRecordset = ExecuteSQL(strSQL)
objRecordset.MoveFirst 這里顯示錯誤 物件變數或with變數未設定
'將引數資訊添加到TreeView控制元件中
Do Until objRecordset.EOF
objSubRecordset.MoveFirst
Set objNode = TreeView1.Nodes.Add(, , strClass, objRecordset.Fields(0))
Do While Not objSubRecordset.EOF
If objSubRecordset.Fields(0) = objRecordset.Fields(0) Then
Set objNode = TreeView1.Nodes.Add(strClass, tvwChild, , _
objSubRecordset.Fields(1))
End If
objSubRecordset.MoveNext
Loop
strClass = strClass & "1"
objRecordset.MoveNext
Loop
objSubRecordset.Close
objRecordset.Close
Set objRecordset = Nothing
Set objSubRecordset = Nothing
End Sub
問題出現在紅字那里，求各位大神求解
uj5u.com熱心網友回復：
ExecuteSQL沒有回傳有效的Recordset物件。天知道ExecuteSQL你怎么寫的。uj5u.com熱心網友回復：
objRecordset.MoveFirst '這一句是多余的。另外，要解決你的問題，需要查看你的 Connection 物件是否正確打開，以及 ExecuteSQL 函式是否正確執行了 RecordSet 物件的打開操作。
uj5u.com熱心網友回復：
不知道你有沒有定義連接物件，可以定義一個dim cn as new ADODB.connection,Set cn = New ADODB.Connection，cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你的資料庫名稱.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;"，哦，先工程中參考一下,,,僅供參考轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/133269.html
上一篇：RS485串口通信 vb程式