VBA访问从数据库获取字符串

Question

我有一个列包含电子邮件地址的表。

我想获得这些电子邮件地址并发送邮件给他们。 我的问题是，我不知道如何获取地址。 我想获得一个字符串作为

me@email.com;me2@email.com;me3@email.com...etc 

我怎样才能得到这个字符串，以便将其传递给受惠人士票价？

Answer 1

从存储器（未测试）：

Dim db As DAO.Database, rs As DAO.Recordset 
Dim s As String 

Set db = CurrentDb 
Set rs = db.OpenRecordset("SELECT email FROM myTable WHERE ...") 
Do While Not rs.EOF 
    If s = "" Then 
     s = rs!email 
    Else 
     s = s & ";" & rs!email 
    End If 
    rs.MoveNext 
Loop 
rs.Close: Set rs = Nothing 
db.Close: Set db = Nothing 

---

由于从查询连接字符串是一种常见的任务，我建议创建一个可重复使用的功能：

Public Function ConcatenateFromSql(ByVal sql As String, _ 
            Optional ByVal delimiter As String = ";") As String 
    Dim db As DAO.Database, rs As DAO.Recordset 
    Dim s As String 

    Set db = CurrentDb 
    Set rs = db.OpenRecordset(sql) 
    Do While Not rs.EOF 
     If s = "" Then 
      s = rs(0) 
     Else 
      s = s & delimiter & rs(0) 
     End If 
     rs.MoveNext 
    Loop 
    rs.Close: Set rs = Nothing 
    db.Close: Set db = Nothing 

    ConcatenateFromSql = s 
End Function