如何使用vb.net通过电子邮件发送（忽略）SQL Server数据库中的选定项目

Question

我有2个表格，分别为RegisteredSchedule和TodaySchedule 。 当用户在表单中输入名称，性别，SchedueleDate和Incharge等数据并单击“保存”按钮时，数据将转到RegisteredSchedule表，并且如果用户设置的ScheduleDate等于日期Now ，则该记录将显示在TodaySchedule表中，并且我希望从SQL Server中选择的数据以电子邮件形式发送-可以吗？ 请帮助我，我是新手。

这是我的代码，如果用户设置的ScheduleDate为= DateNow。 我希望这个选择语句也可以通过电子邮件发送，而不仅仅是在表2中显示。

Public Sub OnSchedule()
    Dim conn As New SqlConnection("SERVER=x\x;database = 
 x; user=x;pwd=x; ")

    conn.Open()
    Dim cmd As SqlCommand = conn.CreateCommand
    cmd.CommandText = String.Format("select PatientName,Gender,ScheduleDate,PersonInCharge from " _
    & "Schedule where ScheduleDate = CONVERT(date,getdate()) order by ScheduleDate")
    Dim dr As SqlDataReader = cmd.ExecuteReader()
    If dr.HasRows Then
        Dim dtSerial As New DataTable
        dtSerial.Load(dr)
        dgvOnSchedule.DataSource = dtSerial
    Else
        MsgBox("no data")

    End If
    dr.Close()
    conn.Close()
End Sub

这是我电子邮件中的代码，我尝试将选择查询放入oMail.TextBody，但没有用。 请提出建议。

    Public Sub sendEmail()
    Dim oMail As New SmtpMail("TryIt")
    Dim oSmtp As New SmtpClient()
    oMail.To = New AddressCollection("x@x.co.th")
   oMail.Cc = New 
   AddressCollection("x@x.co.th,x@x.co.th")
   oMail.Subject = "test email from VB.NET project"

   'code below not work, what should i do to my oMail.textbody to show the 
   select condition ?

   oMail.TextBody = "On SChedule Date" & OnSchedule()



 Dim oServer As New SmtpServer("x.x.x.th")
   Try
        oSmtp.SendMail(oServer, oMail)
        MessageBox.Show("success")
    Catch ex As Exception
        MessageBox.Show("no success")
    End Try     
End Sub

Answer 1

在TextBody分配上，您调用了方法OnSchedule（），该方法不返回任何内容，仅分配并填充一个datagridview对象

您可以使用StringBuilder对象

然后使用foreach循环读取DataGridView数据并将这些值附加到stringbuilder对象

StringBuilder sb = new StringBuilder();
    foreach (DataGridViewRow row in dataGridView1.Rows)
    {
        foreach (DataGridViewCell cell in row.Cells)
        {
            sb.Append(cell.Value);
            sb.Append("\t");
        }
        sb.AppendLine();
    }
    textBox1.Text= sb.ToString();

最后一步，在您的分配中使用此stringbuilder值，如下所示

oMail.TextBody = "On SChedule Date" & sb.ToString()

对于与上述C＃代码等效的VB.NET代码，请使用以下代码

    Dim sb As New StringBuilder()
    For Each row As DataGridViewRow In DataGridView1.Rows
        For Each cell As DataGridViewCell In row.Cells
            sb.Append(cell.Value)
            sb.Append("\t")
        Next
    Next

同样，您将使用

oMail.TextBody = "On SChedule Date" & sb.ToString()

Answer 2

要将表创建为HTML对象，可以使用以下代码

Dim sb As New StringBuilder("<table>")
For Each row As DataGridViewRow In DataGridView1.Rows
    sb.Append("<tr>")
    For Each cell As DataGridViewCell In row.Cells
        sb.Append("<td>")
        sb.Append(cell.Value)
        sb.Append("</td>")
    Next
    sb.Append("</tr>")
Next
sb.Append("</table>")

这将创建一个HTML表脚本，类似于以下示例

<table><tr><td>1</td><td>Pre-School A</td></tr><tr><td>2</td><td>Pre-School B</td></tr><tr><td></td><td></td></tr></table>