GetString 方法 (ADO Recordset)
将 Recordset 作为字符串返回。
语法
Set xxx= recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
返回值
将 Recordset 按字符串值的变体型 (BSTR) 返回。
参数
StringFormat 指定 Recordset 应转换为下列格式。
常量 说明
adClipString 行由 RowDelimiter 分界,列由 ColumnDelimiter 分界,NULL 值由 NullExpr 分界。这三个参数只有在与 adClipString 一起时才有效。
umRows 可选。记录集要转换的行数。如果没有指定 NumRows,或者它大于记录集的总行数,则记录集的所有行都要转换。
ColumnDelimiter 可选。如果指定则为列与列之间的分界符,否则为 TAB 字符。
RowDelimiter 可选。如果指定则为行与行之间的分界符,否则为 CARRIAGE RETURN 字符。
NullExpr 可选。如果指定则为 NULL 值处的表达式,否则为空字符串。
说明
行数据(但不是模式数据)保存在串中。因此不能使用该字符串重新打开记录集。
该方法等价于 RDO GetClipString 方法
以下是简单的应用
附上 网友写的 此种办法通用函数
Public Function DMerge(Exps As String, Domain As String, _
Optional Criteria As String, Optional Separator As String = ";") As String
'函数功能: 合并指定记录集指定字段值为一个字符串
'参数说明:
' exps : 要合并的字段
' 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