Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

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


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


Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-o. Agradecemos sua cooperação.

LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine