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

t小宝

一个不用循环实现的合并记录为字符串的函数,可在查询中调用 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

ardu95

新生学习一下

ljp518

{:soso_e163:}

olderdream2007@

rst.GetString(adClipString, , , Separator)


getstring咋用的，请高人解释下 谢谢

轻风

t小宝 发表于 2009-11-27 12:09
示例

版主好示例。
这里请教一下，假如我需要输出为：‘张颖’;‘李芳’;‘刘英玫’;‘张雪眉’;这种格式的字符串，该怎么改呢？

t小宝

轻风 发表于 2012-7-11 09:46
版主好示例。
这里请教一下，假如我需要输出为：‘张颖’;‘李芳’;‘刘英玫’;‘张雪眉’;这种格式的字 ...

DMerge("""'"" & [姓氏] & [名字] & ""'""","雇员","尊称='" & [尊称] & "'")

轻风

t小宝 发表于 2012-7-11 13:06
DMerge("""'"" & [姓氏] & [名字] & ""'""","雇员","尊称='" & [尊称] & "'")

原来这样，我也试过加了3、4个引号，没想到要加这么多，呵呵。

t小宝

轻风 发表于 2012-7-11 14:10
t版再帮个忙，似乎条件中用Like不行？如：BMBH Like '1003*'不行，但如写为BMBH Like '1003'则可以，但 ...

通配符用 % ，因为该函数使用ADO

ynjxw

轻风 发表于 2012-7-11 14:10
t版再帮个忙，似乎条件中用Like不行？如：BMBH Like '1003*'不行，但如写为BMBH Like '1003'则可以，但 ...

谢谢小宝，我用的时候也发现这一问题，另外数据量大的时候速度也些慢。

轻风

t小宝 发表于 2012-7-11 13:06
DMerge("""'"" & [姓氏] & [名字] & ""'""","雇员","尊称='" & [尊称] & "'")

t版再帮个忙，似乎条件中用Like不行？如：BMBH Like '1003*'不行，但如写为BMBH Like '1003'则可以，但这样Like就没意义了。