Question

I’m working on creating a windows service that will send emails to a customer when they are within a month of having their submission expire. I’m using vb.net in Visual Studios 2008

Because it’s a windows service it’s very difficult to debug. Trying to narrow down my error I created a “sendDebugEmail” method that sends me an email if it gets to a certain line. The emails never make it past “dr = cmd.ExecuteReader()”

I’m wondering what I am doing wrong. My SQL statement should work fine. I’ve tested it in my SQL server database.

I’ve created a dummy_database that I just made in sql server as well. I added an INSERT sql statement for the dummy table i have in there just to see if i could actually access a database. All the table takes in is the line number and time it was sent. When I run my windows service that database updates just fine.

Any help would be appreciated. Thanks

Dim conn As New SqlConnection(connString2)

    sendDebugEmail("134")

    SQL = "Select email FROM _Customer WHERE custID in (SELECT custID FROM _OnlineCustomer WHERE ExpirationDate <= '6-20-12' AND ExpirationDate >= '6-10-12')"
    Dim cmd As New SqlCommand(SQL, conn)


    sSubject = "hello"
    sBody = "This is test data"
    Dim dr As SqlDataReader

    sendDebugEmail("143")

    Try
        dr = cmd.ExecuteReader()   // This is were it stops

        sendDebugEmail("147")

        While dr.Read

            sendDebugEmail("152")

            Try
                LogInfo("Service woke up")
                Dim i As Integer = 0
                ' Prepare e-mail fields
                sFrom = "[e-mail]"
                sTo = "[e-mail]"
                sCc = "[e-mail]"
                Dim oMailMsg As MailMessage = New MailMessage
                oMailMsg.From = sFrom
                oMailMsg.To = sTo
                oMailMsg.Cc = sCc
                ' Call a stored procedure to process the current item
                ' The success message
                oMailMsg.Subject = sSubject + "(Success)"
                oMailMsg.Body = sBody + "Email has been sent successfully."
                ' Send the message
                If Not (oMailMsg.To = String.Empty) Then
                    SmtpMail.Send(oMailMsg)
                End If

            Catch obug As Exception
                LogEvent(obug.Message)
            Finally

            End Try
        End While
    Catch ex As Exception

    Finally
        dr.Close()
        cmd.Dispose()
        conn.Close()
        conn.Dispose()
    End Try
End Sub

/////////////////////////////////////////////////////////////////////////////////

Problem Solved: I set up my connection but I never opened it.
I needed conn.open()

The thing that helped me most was adding this code into my last catch statement:

sendDebugEmail(ex.Message & vbcrlf & ex.stackTrace)

It send me an email of the stackTrace and made it very easy to debug

Answer 1

Problem Solved: I set up my connection but I never opened it.
I needed conn.open()

The thing that helped me most was adding this code into my last catch statement:

sendDebugEmail(ex.Message & vbcrlf & ex.stackTrace)

It send me an email of the stackTrace and made it very easy to debug