buongiorno a tutti!!!
che significa la chiave non è univoca nell'insieme?
ho questo codice riguardante il treeview e proprio non capisco dove sia l'errore!![]()
ho messo in grassetto la parte "errata"
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim MNode As Node
Private Sub Form_Load()
'On Error GoTo err:
Dim SQL As String
SQL = "SELECT categoria1,format (sum(tot),'0.00')as total from misurazioni where designazione='------------ TOTALE MISURAZIONI ----------------->>' group by categoria1"
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prova.mdb"
Set rs = New ADODB.Recordset
rs.Open SQL, db
Dim i As Integer
Set MNode = treeview1.Nodes.Add(, , "supercateg", "Super Categorie")
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
Set MNode = treeview1.Nodes.Add("supercateg", 4, rs("categoria1"), rs("categoria1") & " " & rs("total") & " € ")
rs.MoveNext
Next i
rs.Close
SQL = "SELECT categoria3,format (sum(tot),'0.00')as total from misurazioni where designazione='------------ TOTALE MISURAZIONI ----------------->>' group by categoria3"
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prova.mdb"
Set rs = New ADODB.Recordset
rs.Open SQL, db
Set MNode = treeview1.Nodes.Add(, , "categ", "Categorie")
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
Set MNode = treeview1.Nodes.Add("categ", 4, rs.Fields("categoria3"), rs.Fields("categoria3") & " " & rs.Fields("total") & " € ")
rs.MoveNext
Next i
rs.Close