设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 899|回复: 9
打印 上一主题 下一主题

[查询] 新手求教个查询语句的问题

[复制链接]
跳转到指定楼层
1#
发表于 2006-7-3 18:58:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    accesss 数据库中的一个查询

  产品      销售数量     客户

产品A       100         客户001

产品B       200         客户002

产品B       300         客户003

产品B       100         客户004

产品c       200         客户005

  如何通过这个查询做到

  产品      总销售数量      客户

产品B     600                 客户002/客户003/客户/004

  客户那列要用什么方法做到??????????? 客户那列要用什么方法做到???????????

[此贴子已经被作者于2006-7-3 11:13:29编辑过]

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-7-3 19:06:00 | 只看该作者
3#
 楼主| 发表于 2006-7-3 19:07:00 | 只看该作者
我不知道怎么描述这个问题啊.写标题怎么描述啊
4#
发表于 2006-7-3 20:34:00 | 只看该作者
建立一个自定义函数,然后你该知道怎么做了吧。

Public Function Concatenate(pstrSQL As String, Optional pstrDelim As String = ", ") As String

    Dim rs As New ADODB.Recordset
    rs.Open pstrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Dim strConcat As String         'Build SQLstring
    With rs
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                strConcat = strConcat & _
                .Fields(0) & pstrDelim
                .MoveNext
            Loop
        End If
        .Close
    End With
    Set rs = Nothing

    'Set db = Nothing
    If Len(strConcat) > 0 Then
        strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim))
    End If
    Concatenate = strConcat
End Function
5#
 楼主| 发表于 2006-7-3 23:11:00 | 只看该作者
ACCESS 里有直接语句能做到么?
6#
发表于 2006-7-3 23:15:00 | 只看该作者
以下是引用chinajax在2006-7-3 15:11:00的发言:


ACCESS 里有直接语句能做到么?

没有,只有用SQL语句+UDF
7#
 楼主| 发表于 2006-7-6 19:32:00 | 只看该作者
ACCESS里不是有 first last 这样的格式么?  相应的first   last 之间的就没么?
8#
发表于 2006-7-6 19:56:00 | 只看该作者
用查询也可以做出来的,我的专栏中有例子。
9#
 楼主| 发表于 2006-7-6 22:17:00 | 只看该作者
楼上的给个具体连接. 我也想通过查询去做到
10#
 楼主| 发表于 2006-7-6 22:33:00 | 只看该作者
看到了, 谢谢8楼
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-6-25 01:39 , Processed in 0.090600 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表