用RecordSet中的数据填充数组

时间:2019-05-28 12:03:04

标签: ms-access access-vba ms-access-2016

我有一个查询,其中保存了我需要的数据,但是我需要以以下格式从查询中获取数据:
实体编号-员工编号
实体编号-员工编号
实体编号-员工编号

依此类推...我试图将代码写成下面的代码,但出现了
编译错误'编译错误:
类型不匹配'
在&

上引发此错误



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

df['found_d'] = df['found_d'].str.replace(pattern2, r'01/\g<0>')
                                                    ^^^^^^^^^^^

1 个答案:

答案 0 :(得分:0)

  

我想从查询中以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