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