Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Есть ADO recordset, как его отсортировать по заданному полю с использованием св-ва Sort?  [new]
Иван Абрамов
Member

Откуда:
Сообщений: 319
Кто-нибудь мог бы предоставить пример кода?

Заранее спасибо.
2 июл 04, 16:42    [781201]     Ответить | Цитировать Сообщить модератору
 Re: Есть ADO recordset, как его отсортировать по заданному полю с использованием св-ва Sort?  [new]
Jem
Member

Откуда:
Сообщений: 735
Тебе нужна сортировка именно после открытия рекордсета? Может задать сортировку в SQL запросе и на его основе открыть рекордсет?
2 июл 04, 16:44    [781208]     Ответить | Цитировать Сообщить модератору
 Re: Есть ADO recordset, как его отсортировать по заданному полю с использованием св-ва Sort?  [new]
Иван Абрамов
Member

Откуда:
Сообщений: 319
Да, именно: как использовать метод Sort?
2 июл 04, 16:48    [781223]     Ответить | Цитировать Сообщить модератору
 Re: Есть ADO recordset, как его отсортировать по заданному полю с использованием св-ва Sort?  [new]
paparome
Member

Откуда: Москва
Сообщений: 4312
Типа хелп не пробовал открывать?

' пример из хелпа

Sub Main() SortX End Sub Public Sub SortX() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset rst.CursorLocation = adUseClient cnn.Open "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;" rst.Open "SELECT * FROM Authors", cnn, _ adOpenStatic, adLockReadOnly, adCmdText SortXprint "Initial Order", rst rst.Sort = "au_lname ASC, au_fname ASC" SortXprint "Last Name Ascending", rst rst.Sort = "au_lname DESC, au_fname ASC" SortXprint "Last Name Descending", rst rst.Close cnn.Close End Sub This is the secondary utility routine that prints the given title, and the contents of the specified Recordset. Public Sub SortXprint ( title As String, rstp As ADODB.Recordset ) Debug.Print "---------------" & title & "---------------" Debug.Print "First Name Last Name" & vbCr & _ "---------------------------------------------------" rstp.MoveFirst While Not rstp.EOF Debug.Print rstp!au_fname & " " & rstp!au_lname rstp.MoveNext Wend Debug.Print End Sub
2 июл 04, 16:49    [781229]     Ответить | Цитировать Сообщить модератору
 Re: Есть ADO recordset, как его отсортировать по заданному полю с использованием св-ва Sort?  [new]
Иван Абрамов
Member

Откуда:
Сообщений: 319
Нашел в чем у меня была проблема: оказывается ASC указывать обязательно.
2 июл 04, 17:01    [781257]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить