时间戳

首页 > 解决方案 > 使用 RecordSet 中的数据填充数组

vba - 使用 RecordSet 中的数据填充数组

问题描述

我有一个包含我需要的数据的查询，但我需要以实体编号的格式从查询中获取数据
- 员工 id
实体编号 - 员工 id
实体编号 - 员工 id

依此类推...我尝试将我的代码编写为以下，但出现
“编译错误：
类型不匹配”的编译错误
此错误在 &



以我需要的格式从查询设置中获取数据的正确方法是什么？完整的图片，我想从 XXXX - XXXX 格式的查询中获取数据，以便我可以在我的 VBA 代码中生成的电子邮件正文中使用它。

Dim en() As String
Dim ei() As String                                                   
Set rs = db.OpenRecordset("qryData")
If Not (rs.BOF And rs.EOF) Then
rs.MoveLast
rs.MoveFirst
While (Not rs.EOF)
    en = en & vbCrLF & Space(7) & rs![public systems.entity number]
    ei = ei & vbCrLF & Space(7) & rs![public systems.employee id]
    rs.MoveNext
  Wend
End If

标签： vbams-access

解决方案

我想从 XXXX - XXXX 格式的查询中获取数据，以便我可以在电子邮件正文中使用它

这不是一个数组，所以使用一个字符串：

Dim rs As DAO.Recordset
Dim en As String
Dim ei As String                                                   

Set rs = CurrentDb.OpenRecordset("qryData")
If Not (rs.BOF And rs.EOF) Then
    rs.MoveLast
    rs.MoveFirst
    While Not rs.EOF
        en = en & vbCrLF & Space(7) & rs![public systems.entity number].Value
        ei = ei & vbCrLF & Space(7) & rs![public systems.employee id].Value
        rs.MoveNext
    Wend
End If
rs.Close

推荐阅读