但是,在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
----------------------------------------------------------------------------------------------------