- Код: Выделить всё
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