ник: час
Исполmзую доступ к данным ADO
Dim rst As ADODB.Recordset
........
rst.Open " SELECT CLIENT.........
А как сортирануть уже созданный набор записей по нужному мне полю (MyField)?
rst.Sort ......
Вот пример из инета
Что значит строчка в примере : Set rstSort = rst.OpenRecordSet()
Function DAOSort()
Dim rst As RecordSet, rstSort As RecordSet, db As Database
Set db = DBEngine.WorkSpaces(0).Databases(0)
Set rst = db.OpenRecordset ("Фамилии",Db_Open_Dynaset)
rst.Sort = "Фамилия"
Set rstSort = rst.OpenRecordSet()
Debug.print "Неотсортированный список:"
Do until rst.Eof
Debug.Print rst!Фамилия
rst.MoveNext
Loop
Debug.Print "Сортировка по фамилии:"
Do Until rstSort.Eof
Debug.Print rstSort!Фамилия
RstSort.MoveNext
Loop
End Function
|