列を行に表示する方法は？

質問

できればSQL文で作りたいと思っています。

表１
行１　行２
＝＝　＝＝
１　　A
１　　B
１　　C
２　　A
２　　D

行１で同一の値のものは10個しかないと決まっています。
（つまり行１＝１のものは10列まで）
これを次のように表示したいと思っています。

行１　行２　行３　行４
＝＝　＝＝　＝＝　＝＝
１　　Ａ　　Ｂ　　Ｃ
２　　Ａ　　Ｄ

Access＋SQL＊Serverを使っています。このようなViewをつくるSQLが発行できればベスト。関数とか使ってでもなんとかできないでしょうか？
SQLの実行結果のレコードを順番に配列に入れるとかしかいと無理でしょうか？
レコード結果はFirst,Lastを使って先頭と最後だけは取り出せるのですが、2番目～9番目も取り出す関数があったら、それをSQLに組み入れるだけで済むのですが。

どうぞ、よろしくお願いします。ｍ（○）ｍ

回答No.4

CHRONOS_0

行と列が通常の呼称と逆ですね
行2の文字コード順に並べるということでよければ

TRANSFORM First(行2)
SELECT 行1
FROM 表1
GROUP BY 行1
PIVOT "行" & DCount("*","表1","行2<='" & [行2] & "' and 行1=" & [行1])+1;

回答No.3

karihone

行１も行２もテキスト型なら、

TRANSFORM First(行２) AS 行２の先頭
SELECT 行１
FROM 表１
GROUP BY 行１
PIVOT "行" & DCount("*","表１","行１='" & [行１] & "' And 行２<='" & [行２] & "'")+1;

では。

回答No.2

KAERU_VXV

私はこのような場合、クロス集計クエリーを使いします。

(1)テーブル「表１」に項目「列見出し」を作成します。（テキスト型）

(2)次のファンクションを実行して「列見出し」をセットします。
======================================================
Public Function FNT_列見出し()
Dim DB As Database
Dim R As Recordset
SQL = "SELECT * FROM 表１ ORDER BY 行１, 行２"
Set DB = CurrentDb
Set R = DB.OpenRecordset(SQL, dbOpenDynaset)
If R.EOF = False Then
WK_行1 = R![行１]
cnt = 0
Do Until R.EOF
If WK_行1 = R![行１] Then
cnt = cnt + 1
Else
cnt = 1
WK_行1 = R![行１]
End If
R.Edit
R![列見出し] = "行" & cnt + 1
R.Update
R.MoveNext
Loop
R.Close
End If
End Function
======================================================

(3)次のクロス集計クエリーを表示すると結果が得られます。
==================================================
TRANSFORM First(表１.行２) AS 行２の先頭
SELECT 表１.行１
FROM 表１
GROUP BY 表１.行１
PIVOT 表１.列見出し;
==================================================

以上です。
参考になればうれしいです。

回答No.1

O_cyan

Access上なら
TRANSFORM First(表1.行２) AS 行
SELECT 表1.行１
FROM 表1
GROUP BY 表1.行１
PIVOT 表1.行２;
でクロス集計で似たような感じでできますがこれじゃダメなんですよね。

>先頭と最後だけは取り出せるのですが、2番目～9番目も取り出す関数
SELECT 行１,行２ FROM 表１　ROWNUM <=9
で先頭から９行目まで取得

お礼

ありがとうございます。
この方法だと、表１で違うデータの分だけフィールドがついてしまいます。
つくりたいのは、フィールド数は10個と決まっています。なんとかなりませんか？

ROWNUM でも、表１で行１でグループした中からselectしその結果のレコードの2番目とか取りたいという意味なので、これも使えませんでした。
よろしくお願いします。