求一个SQL语句

cc.man

请教一个SQL语句

比如我有一个表，两个字段
字段1  字段2
10      A
10      B
10      C
20      A
20      D
30      B

能不能写一个SQL，得到下面的结果
字段1  字段2
10      ABC
20      AD
30      B

就是说，把字段1相同的记录中的字段2合并
先谢谢了。

redstone

这个恐怕要用VBA吧, SQL貌似无法实现

liwen

通过三个查询:第一个查询生成根据字段1的分类序号类似B: SELECT A.字段1, A.字段2, "列" & DCount("[字段2]","A","[字段1]='" & [字段1] & "'and [字段2]<='" & [字段2] & "'") AS 列
FROM A;

第二个用交叉表查询C: TRANSFORM Last(B.字段2) AS 字段2之最后一条记录
SELECT B.字段1
FROM B
GROUP BY B.字段1
PIVOT B.列;

第三个将交叉表查询合并:SELECT C.字段1, [列1] & [列2] & [列3] AS 字段2
FROM C;

koutx

附件是一个在查询中调用函数来实现的方法

fnsmydyang

有这样的函数，我来学习一下，谢谢分享.

todaynew

Function Mystr(myval) As String
Dim rs As New ADODB.Recordset
Dim ssql As String
ssql = "select * from 表1 where 字段1=" & myval
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Mystr = ""
For i = 1 To rs.RecordCount
    Mystr = Mystr & rs("字段2")
    rs.MoveNext
Next
rs.Close
End Function


SELECT 表1.字段1, Mystr([字段1]) AS 字段2
FROM 表1
GROUP BY 表1.字段1;

cc.man

想了一晚上，觉得没希望，打算用GetString一个个地取值，没想到高手们还真是会者不难。
todaynew和koutx差不多，todaynew的更简单一点点。不过我还想试试用GetString能不能更简单。
版主的答复应该是最对题的，可是我试到第二步就不行了，对不起版主了。不过还是大概猜到了一点版主的想法。

顺便问一下，有没有什么资料能学习一下，提高一下查询或者SQL得水平的。

多谢各位指教。

rower

顶一个先!