aclearcase/" target="_blank" >ccess的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
----------------------------------------------------------------------------------------------------