程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> Access數據庫入門 >> Access中查詢某個分組中多行字段值的拼接字串的方法

Access中查詢某個分組中多行字段值的拼接字串的方法

編輯:Access數據庫入門

        access的SQL語法中沒有自定義函數,也不能象SQL Server中一樣用變量、游標、子查詢等方法來靈活處理查詢語句。
       
        但是,在Access環境中,透過模塊中的過程,可利用功能強大的VB語言,生成復雜需求的查詢語句。
     
       下面是本人今天在Access版塊中的一個回復,以此例子,簡單說明Access依托VB所蘊含的強大功能。

        網友提問:      
--------------------------------------------------------------------------------
       我在ACCESS裡面的表如下:
       comname      name     sex
       1公司        小王 男  
       1公司        小李 女  
       2公司        小張 男  

       我想將同公司的內容合在一起如:
comname      name         sex   
1公司       小王,小李  男,女  
2公司      小張     男    

請問我在access裡面該如可操作?請問有什麼好的方法去處理??
--------------------------------------------------------------------------------

解答:
----------------------------------------------------------------------------------
在 access的模塊中建立一個自定義函數:

public Function CombStr(TableName As String, FieldName As String, GroupField As String, GroupValue As String) As String

    Dim ResultStr As String
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(" select " & FieldName & " from " & TableName & " where " & GroupField & "='" & GroupValue & "'")
    If rs.RecordCount > 0 Then
    Do While Not rs.EOF
        ResultStr = ResultStr & "," & rs.Fields(0).Value
        rs.MoveNext
    Loop
    End If
    If ResultStr <> "" Then ResultStr = Mid(ResultStr, 2)
    CombStr = ResultStr
   
End Function

建立查詢:

select T.comname, combstr("T","Name","comname",t.comname) AS CombName, combstr("T","ses","comname",t.comname) AS CombSex
FROM T
GROUP BY T.comname

----------------------------------------------------------------------------------------------------

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved