VBA Access - Ordenando a propriedade de um RecordSet.

| Blog Office VBA | Blog Excel | Blog Access |

Os Recordsets são um dos objetos mais utilizados quando manipulamos dados. Esta dica simples, mas útil, é importante conceitualmente. Procure acrescentar sua experiência a este código e depois compartilhe os seus resultados conosco, postado aí embaixo.

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

    Letrst.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

Reference:

OutlookCode

Tags: VBA, Access, order, property, sprt, recordset, ADODB,