- Код: Выделить всё
- strSQL = "SELECT Dat FROM Tabl GROUP BY Dat"
 Set RecDB = New ADODB.Recordset
 RecDB.Open strSQL, ConDB, adOpenStatic, adLockOptimistic
 
 
 RecDB.MoveFirst
 'RecDB.Sort = "ID ASC"
 Do While Not RecDB.EOF
 'Debug.Print RecDB.Fields("Dat")
 Set nodX = TreeView1.Nodes.Add(, , RecDB.Fields("Dat"), RecDB.Fields("Dat"), 1)
 RecDB.MoveNext
 Loop
 
 RecDB.Close
 Set RecDB = Nothing
Если сделать "SELECT ID, Dat FROM Tabl GROUP BY Dat ORDER BY ID" - такой запрос вобще ничего не возвращает.
Пытаюсь сгруппировать элементы и отсортировать их по номеру.
База Access2000








