技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

VBA基础

Access合并记录为字符串的一个函数

正　文:
一个不用循环实现的合并记录为字符串的函数,可在查询中调用

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
   
    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 DMerge = rst.GetString(adClipString, , , Separator)
    rst.Close
    Set rst = Nothing
End Function

示例:

access数据库点击下载此附件

发布人:t小雨-网络  
分享到：
点击次数：  更新时间：2009-12-07 08:32:45  【打印此页】  【关闭】
上一条：Access不编程生成菜单，自定义菜单如何调用自定义过程  下一条：让命令按钮全变为不可用


相关文章

热门文章

热门产品