Question

我正在为一家旅游公司建立一个客户数据库系统。

他们希望能够通过一次点击检索所有客户电子邮件，并将其显示在页面上的文本框中，他们可以将其复制并粘贴到Outlook中。

目前，文本框名为emailList，在单击名为emailGet的按钮之前不可见。

但是，我不知道如何使文本显示在SQL查询的文本框中。

我的SQL查询是：SELECT CEmail FROM Clients。这就是它。

在伪代码中，我要做的是：

sqlQuery = "SELECT CEmail FROM Clients"
Execute select query and store results (in a variable? or maybe directly to the textbox?)
emailList.Text = Result of sqlQuery

谢谢！：）

Answer 1

Private Sub GetEmailAddresses() 
        Dim sText As String = String.Empty
    Dim sConnString As String = String.Empty 'Put your connection string in here

    Using cn As New OleDb.OleDbConnection(sConnString)
        cn.Open()
        Dim cmd As New OleDb.OleDbCommand("SELECT CEmail FROM Clients", cn)
        Dim r As OleDb.OleDbDataReader = cmd.ExecuteReader()

        If Not r.HasRows Then Exit Sub

        Do While r.Read()
            sText = sText & ";" & r.GetString(0)
        Loop

        cn.Close()
    End Using

    txtboxList.Text = sText
End Sub

VB.NET＆amp; SQL，将SELECT查询结果粘贴到文本框中

1 个答案: