0

我有以下 VB.Net 控制台应用程序子例程,它从表中读取电子邮件并尝试发送它们,如果成功发送它们,它将更新与发送时间相同的数据库。

此代码工作正常,但是我现在收到以下错误:

超时已过。在操作完成之前超时时间已过或服务器没有响应。

我曾尝试在管理工作室中单独运行 SQL 脚本,它工作正常。

我也试过验证服务器空间和数据库大小,两者都很好。

任何人都可以提供解决方案吗?

Connection(True)
    Using comSQL As New SqlCommand("SELECT * FROM Seq_Emails_ToSend", conSQL)
        Using dr As SqlDataReader = comSQL.ExecuteReader
            While dr.Read

                Dim madTO As MailAddressCollection = ConvertStringtoMAD(dr("Email_TO").ToString)
                Dim madCC As MailAddressCollection = ConvertStringtoMAD(dr("Email_CC").ToString)
                Dim madBCC As MailAddressCollection = ConvertStringtoMAD(dr("Email_BCC").ToString)
                Dim isHTML As Boolean = CBool(dr("Email_HTML").ToString)
                Dim Priority As MailPriority = CInt(dr("Email_Priority").ToString)
                Dim Subject As String = CStr(dr("Email_Subject").ToString)
                Dim Body As String = CStr(dr("Email_Body").ToString)
                Dim ID As Integer = CInt(dr("Email_ID").ToString)
                Dim Status As String

                If EmailFile(madTO, madCC, madBCC, "", isHTML, Priority, Subject, Body) Then
                    Status = "Sent"
                Else
                    Status = "Failed"
                End If

                Using comSQL2 As New SqlCommand("UPDATE Seq_Emails SET [Status] = @Status, [Date_Sent] = @Date WHERE Email_ID = @ID", conSQL)
                    comSQL2.Parameters.Add("@ID", SqlDbType.Int).Value = ID
                    comSQL2.Parameters.Add("@Status", SqlDbType.NVarChar).Value = Status
                    comSQL2.Parameters.Add("@Date", SqlDbType.DateTime).Value = DateTime.Now

                    comSQL2.ExecuteNonQuery()
                End Using

            End While
        End Using
    End Using
    Connection(False)
4

2 回答 2

1

我认为你在阻止自己。

使用一个 SqlDataReader 读取所有数据,并将其放入一个简单的 DTO 对象和 DTO 对象的集合中。完全处置/关闭此 SqlDataReader。

然后尝试发送电子邮件,然后发出一个 UPDATE 命令。

另一种说法是,尝试从 comSQL 内部 UNNEST comSQL2。

这是一个简单的 IDataReader 到 DTO 示例。

为什么 DataTable 比 DataReader 快

于 2013-04-16T16:24:58.307 回答
0

看来我不得不取消嵌套上面提到的 2 个 sqldatareaders。

在下面的代码中,根据电子邮件处理的结果,主键被添加到列表中:

                If EmailFile(madTO, madCC, madBCC, "", isHTML, Priority, Subject, Body) Then
                    intSent.Add(CInt(dr("Email_ID").ToString))
                Else
                    intFailed.Add(CInt(dr("Email_ID").ToString))
                End If

然后,一旦发送过程完成,我就会在 2 个单独的列表或主键上运行更新查询以进行更新。

    Using comSQL2 As New SqlCommand("UPDATE Seq_Emails SET [Status] = @Status, [Date_Sent] = @Date WHERE Email_ID = @ID", conSQL)
        For Each Email_ID As Integer In intSent
            comSQL2.Parameters.Clear()
            comSQL2.Parameters.Add("@ID", SqlDbType.Int).Value = Email_ID
            comSQL2.Parameters.Add("@Status", SqlDbType.NVarChar).Value = "Sent"
            comSQL2.Parameters.Add("@Date", SqlDbType.DateTime).Value = DateTime.Now
            comSQL2.ExecuteNonQuery()
        Next
        For Each Email_ID As Integer In intFailed
            comSQL2.Parameters.Clear()
            comSQL2.Parameters.Add("@ID", SqlDbType.Int).Value = Email_ID
            comSQL2.Parameters.Add("@Status", SqlDbType.NVarChar).Value = "Failed"
            comSQL2.Parameters.Add("@Date", SqlDbType.DateTime).Value = DateTime.Now
            comSQL2.ExecuteNonQuery()
        Next
    End Using

我确信有更简单的方法可以做到这一点 - 但是在这种情况下它对我有用。

于 2013-04-17T18:19:57.250 回答