MS

App/DigitalData.EMLProfiler/clsDatabase.vb

@@ -58,6 +58,7 @@ Public Class clsDatabase
             Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
 
             Dim dt As DataTable = New DataTable()
+            Logger.Debug("ReturnDatatable Command: " & Select_anweisung)
             adapter1.Fill(dt)
             SQLconnect.Close()
             Return dt

App/DigitalData.EMLProfiler/clsWorker.vb

@@ -51,7 +51,7 @@ Public Class clsWorker
                     Else
                         osql &= " WHERE GUID = " & _POLL_PROFILEID
                     End If
-                    Dim DT_TBDD_EMAIL = _Database.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
+                    Dim DT_TBDD_EMAIL As DataTable = _Database.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
                     Dim DT_PROFILES = _Database.Return_Datatable(osql)
                     If Not IsNothing(DT_PROFILES) Then
                         If DT_PROFILES.Rows.Count > 0 Then
@@ -89,6 +89,8 @@ Public Class clsWorker
                                 'Presuming the DataTable has a column named Date.
                                 Dim expression As String
                                 expression = "GUID = " & CURRENT_EMAIL_GUID
+                                Logger.Debug("Expression Filter email: " & expression)
+                                Logger.Debug("DT_TBDD_EMAIL.rowCount: " & DT_TBDD_EMAIL.Rows.Count)
                                 'Filter the rows using Select() method of DataTable
                                 Dim FilteredRows As DataRow() = EMAIL_PROF_TABLE.Select(expression)
                                 If FilteredRows.Length = 1 Then