*

Access VBA SQLの書き方4 ORDER BY 並べ替え

公開日: : 最終更新日:2014/04/20 SQL

SQLの書き方4 ORDER BY 並べ替え

前回はINNER JOINの説明を行いましたので今回は並べ替えを行うSQL文の書き方を説明していきます。

ORDER BY

レコードの並べ替えは「ORDER BY」を使用します。

sqlkakikata15

Accessのクエリで使用する並べ替えと同様です。

SELECT フィールド名 FROM テーブル名 ORDER BY フィールド名 並べ替え順序

例 (前回のINNER JOINで使用したSQL文にORDER BYを追加します)

SQL = “SELECT T_社員マスタ2013.*, T_性別マスタ.* ” _
& “FROM T_社員マスタ2013 INNER JOIN T_性別マスタ ” _
& “ON T_社員マスタ2013.性別コード = T_性別マスタ.性別コード ” _
& “WHERE T_社員マスタ2013.性別コード=’0′ ” _
& “ORDER BY T_社員マスタ2013.社員コード ASC

このSQLを実行すると、抽出結果を「社員コード」の昇順(ASC)で並べてくれます。また、降順で並べ替えたい場合は「DESC」と記述します。これらの記述を省略した場合は昇順で並べ替えられます。

では実際にプログラムを作成してみましょう。
(使用するフォームはSQLの書き方1と同じものを使用しています。)

スポンサーリンク

ORDER BYを使用したプログラム例

Private Sub コマンド0_Click()

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String

Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset

SQL = “SELECT T_社員マスタ2013.*, T_性別マスタ.* ” _
& “FROM T_社員マスタ2013 INNER JOIN T_性別マスタ ” _
& “ON T_社員マスタ2013.性別コード = T_性別マスタ.性別コード ” _
& “WHERE T_社員マスタ2013.性別コード=’0′ ” _
& “ORDER BY T_社員マスタ2013.社員コード ASC”

RS.Open SQL, CN, adOpenStatic, adLockOptimistic

If RS.EOF = False Then

Do Until RS.EOF

Debug.Print RS!社員コード & RS!名前 & RS!性別

RS.MoveNext
Loop

End If

RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing

End Sub

前回と同様に「イミディエイトウィンドウ」に抽出結果を表示します。

sqlkakikata13
社員コードで昇順(ASC)に表示されています。

sqlkakikata14
降順(DESC)にすると社員コードで降順に表示されます。

いかがでしょうか?
今回は「ORDER BY」を使用して、レコードの並べ替えを行いました。

スポンサーリンク

ad-pc

ad-pc

関連記事

no image

Access VBA SQL INSERT INTO文 追加クエリ

SQL INSERT INTO文 追加クエリ INSERT INTO table1(フィールド1,

記事を読む

sqlkakikata09

Access VBA SQLの書き方3 INNER JOIN テーブルの結合

SQLの書き方3 INNER JOIN テーブルの結合 前回はWHERE句の説明を行いましたので今

記事を読む

no image

Access VBA SQL DELETE文 削除クエリ

SQL DELETE文 削除クエリ DELETE * FROM table table 削

記事を読む

no image

Access VBA SQL SELECT INTO文 テーブル作成クエリ

SQL SELECT INTO文 テーブル作成クエリ SELECT field1 (,field2

記事を読む

sqlkakikata08

Access VBA SQLの書き方2 WHERE 抽出条件

SQLの書き方2 WHERE 抽出条件 前回は「SELECT ~ FROM」を説明しましたので今回

記事を読む

no image

Access VBA SQL UPDATE文 更新クエリ

SQL UPDATE文 更新クエリ UPDATE table set フィールド1  = NewV

記事を読む

sqlkakikata06

Access VBA SQLの書き方1 SELECT FROM 選択

SQLの書き方1 SELECT FROM 選択 SELECT文はSQLの中でも最も使用頻度が高い構

記事を読む

sql01

Access VBA SQL SELECT文 選択クエリ

SQL SELECT文 選択クエリ SELECT文のプログラム例と説明です。 プログラム

記事を読む

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

転職01
初心者がAccess VBAの仕事に就く為には

初心者がAccess VBAを使った仕事に就く 私はSEやITエンジ

sound01
Access VBA 音を鳴らす PlaySound

音を鳴らす PlaySound Access上で効果音を鳴らすプログ

pass01
Access VBA フォームをパスワードで制限

フォームをパスワードで制限 Accessで作成したデータベース使用時

prg01
Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のか

excel03
Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使

→もっと見る

PAGE TOP ↑