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.

VBA Blogs

  

 

bernardes@.com