一个难死人的查询问题，不信你看看！

ynjxw

Public Function DMerge(Exps As String, Domain As String, _
    Optional Criteria As String, Optional Separator As String = "、") As String
   
'函数功能：  合并指定记录集指定字段值为一个字符串
'参数说明：
'  expr :         要合并的字段
'  domain :     来源表或查询
'  criteria :      可选,限制记录的条件表达式
'  Separator : 可选,合并记录的分隔符,默认为分号(;)
'
'调用示例：  DMerge("姓名","人员表","性别='" & [性别] & "'",Chr(13) & Chr(10))
'                以上示例在查询中，使用了换行分隔符，返回换行显示的姓名
'作      者：  t小雨
'创建时间：  2009/11/25

On Error Resume Next
    Dim rst As New ADODB.Recordset
    Dim strSql As String
    Dim temp As String
   
    strSql = "Select " & Exps & " From " & Domain
    If Criteria <> "" Then strSql = strSql & " Where " & Criteria
    rst.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText
   
    If Not rst.EOF Then
    temp = rst.GetString(adClipString, , , Separator)
    DMerge = Left(temp, Len(temp) - 1)
    End If
    rst.Close
    Set rst = Nothing
End Function

aslxt

看了，确实是难“死人”的查询问题！

wufeng980114

ynjxw 发表于 2012-12-6 08:51
Public Function DMerge(Exps As String, Domain As String, _
    Optional Criteria As String, Optiona ...

学习了

hustnzj

ynjxw 发表于 2012-12-6 08:51
Public Function DMerge(Exps As String, Domain As String, _
    Optional Criteria As String, Optiona ...

太牛了，成功了，多谢。

seanone

这算什么,这是想让别人帮你顶贴,无聊!!

fawkes

wufeng980114 发表于 2012-12-5 22:22
我用了个笨办法给你解决了，你看看吧，请高手优化下。

感谢高手帮助，你的帮助让我解决了这个难题，真高兴，太感谢了！