VBA Access - Ordenando a propriedade de um RecordSet.

De vez em quando é necessário que re-organizemos o modo como o nosso Recordset será ordenado, isso após termos definido a string SQL.
Bem, isso pode ser implementado mesmo após este momento como poderá ver abaixo:
Sub SortRecordset()
    Dim intCounter As Integer
    Dim rst As ADODB.Recordset


    Set rst = New ADODB.Recordset

    Let rst.ActiveConnection = CurrentProject.Connection
    Let rst.CursorLocation = adUseClient


    rst.Open "Select * from tbl_Bernardes"

    Debug.Print "Sem ordenação."



    Do Until rst.EOF
        Debug.Print rst("BernardesID")


        rst.MoveNext
    Loop



    Debug.Print "Ordenado."


    Let rst.Sort = "[BernardesID]"


    Do Until rst.EOF
        Debug.Print rst("BernardesID")


        rst.MoveNext
    Loop



    rst.Close


    Set rst = Nothing
End Sub




Tags: Access, order, property, propriedade, sort, recordset, ADODB


André Luiz Bernardes
A&A® - Work smart, not hard.

Nenhum comentário:

Postar um comentário

diHITT - Notícias