RS.CursorLocation = adUseClient
    
    With RS
        .Source = "tbl補助科目"
        .ActiveConnection = CN
        .Open
    End With

    RS.Sort = "科目コード ASC, 補助科目コード DESC"
    Do Until RS.EOF
        Debug.Print RS("科目コード"), RS("補助科目コード"), RS("補助科目名")
        RS.MoveNext
    Loop

----------------------------------------------------------
 
昇順:ASC  降順:DESC

Sortするには、CursorLocationに、adUseClient の設定が必要

CursorLocation プロパティ
adUseServer (既定)サーバー側のカーソル使用
adUseClient クライアント側のカーソル使用

Openされたオブジェクトには無効なので、RSのオープン前に設定

Sort解除は、RS.Sort=""

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ