如何实现查询中的字段合并

linjingdr

想通过查询或代码把表中相同类别的字段合并起来。

asklove

查询SQL怎么写我不太会
我是用函数，你看看是不是这样的效果

shitou1ge

学习啊

linjingdr

谢谢asklove 的帮助！非常好的解决方法!成功应用

xhbqt

非常好的解决方法！

RickyZjw-3721

不错，函数比写SQL语句更简洁、高效，学习了！

夕颜S

期待

lurong

正需要，谢谢！

红尘如烟

写了一个通用函数：

1. 
   
2. Public Function JoinField(TableName As String, FieldName As String, WhereCondition As String, _
   
3. Optional Delimiter As String = " ") As String
   
4. On Error GoTo ErrorHandler
   
5. 
   
6. 'TableName 必需，表名
   
7. 'FieldName 必需，要合并记录的字段名
   
8. 'WhereCondition 必需，分组条件表达式
   
9. 'Delimiter 可选，分隔符，默认为空格符
   
10. 
    
11.     Dim rst As New ADODB.Recordset   
    
12.     Dim strSQL As String
    
13. 
    
14.     strSQL = " SELECT   " & FieldName & _
    
15.              " FROM     " & TableName & _
    
16.              " WHERE    " & WhereCondition & _
    
17.              " ORDER BY " & FieldName
    
18.     rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
    
19.     Do Until rst.EOF
    
20.         If JoinField = "" Then
    
21.              JoinField = rst(FieldName)
    
22.         Else
    
23.             JoinField = JoinField & Delimiter & rst(FieldName)
    
24.         End If
    
25.         rst.MoveNext
    
26.     Loop
    
27. 
    
28.     rst.Close
    
29.     Set rst = Nothing
    
30. 
    
31. ExitFunction:
    
32.     Exit Function
    
33. 
    
34. ErrorHandler:
    
35.     MsgBox Err.Number & Err.Description
    
36.     Resume ExitFunction
    
37. End Function

复制代码

在查询中的运用实例：

1. SELECT DISTINCT姓名,处方名, JoinField("表1","药物","[姓名]='" & [姓名] & "' AND [处方名]='" & [处方名] & "'",",") AS 药物
   
2. FROM 表1
   
3. ORDER BY 姓名,.处方名;

复制代码

风啸啸

学习