GetString 方法 (ADO Recordset)

时　间:2016-11-07 12:20:49
作　者:MDZZ   ID：47512  城市：南京
摘　要:GetString 方法 (ADO Recordset)
正　文:

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

Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店