Public Sub Automated_Follow_Up_Same_Day()
Dim m_organizations = From Organization In db.Organizations
Select Organization
For Each Organization In m_organizations
Dim m_Org_ID As String = Organization.ID
Dim m_prospects = From Prospect In db.Prospects
Where (Prospect.Organization_ID = m_Org_ID And Prospect.Date_Created = Date.Today.ToString)
Select Prospect
' Follow Up Same Day Prospects
For Each Prospect In m_prospects
Try
Send_Follow_Up(Organization.ID, Organization.Email, Organization.Name, Prospect.Email, _
Prospect.First_Name)
Catch ex As Exception
End Try
Next
Dim m_yesterdays_prospects = From Prospect In db.Prospects
Where (Prospect.Organization_ID = m_Org_ID And Prospect.Date_Created = Date.Today.AddDays(-1).ToString)
Select Prospect
' Next Day Follow Up
For Each Prospect In m_yesterdays_prospects
Try
Send_Follow_Up_One_Day(Organization.ID, Organization.Email, Organization.Name, Prospect.Email, _
Prospect.First_Name)
Catch ex As Exception
End Try
Next
Next
End Sub
jal3763
Member
68 Points
91 Posts
Error
Oct 19, 2010 04:43 PM|LINK
I am getting an error :
LINQ to Entities does not recognize the method 'System.String ToString()' method, and this method cannot be translated into a store expression.
<div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Public Sub Automated_Follow_Up_Same_Day()</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Dim m_organizations = From Organization In db.Organizations</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Select Organization</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> For Each Organization In m_organizations</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Dim m_Org_ID As String = Organization.ID</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Dim m_prospects = From Prospect In db.Prospects</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Where (Prospect.Organization_ID = m_Org_ID And Prospect.Date_Created = Date.Today.ToString)</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Select Prospect</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> ' Follow Up Same Day Prospects</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> For Each Prospect In m_prospects</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Try</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Send_Follow_Up(Organization.ID, Organization.Email, Organization.Name, Prospect.Email, _</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Prospect.First_Name)</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Catch ex As Exception</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> End Try</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Next</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Dim m_yesterdays_prospects = From Prospect In db.Prospects</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Where (Prospect.Organization_ID = m_Org_ID And Prospect.Date_Created = Date.Today.AddDays(-1).ToString)</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Select Prospect</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> ' Next Day Follow Up</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> For Each Prospect In m_yesterdays_prospects</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Try</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Send_Follow_Up_One_Day(Organization.ID, Organization.Email, Organization.Name, Prospect.Email, _</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Prospect.First_Name)</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Catch ex As Exception</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> End Try</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Next</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"></div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> Next</div> <div style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow-x: hidden; overflow-y: hidden;" id="_mcePaste"> End Sub</div>Public Sub Automated_Follow_Up_Same_Day() Dim m_organizations = From Organization In db.Organizations Select Organization For Each Organization In m_organizations Dim m_Org_ID As String = Organization.ID Dim m_prospects = From Prospect In db.Prospects Where (Prospect.Organization_ID = m_Org_ID And Prospect.Date_Created = Date.Today.ToString) Select Prospect ' Follow Up Same Day Prospects For Each Prospect In m_prospects Try Send_Follow_Up(Organization.ID, Organization.Email, Organization.Name, Prospect.Email, _ Prospect.First_Name) Catch ex As Exception End Try Next Dim m_yesterdays_prospects = From Prospect In db.Prospects Where (Prospect.Organization_ID = m_Org_ID And Prospect.Date_Created = Date.Today.AddDays(-1).ToString) Select Prospect ' Next Day Follow Up For Each Prospect In m_yesterdays_prospects Try Send_Follow_Up_One_Day(Organization.ID, Organization.Email, Organization.Name, Prospect.Email, _ Prospect.First_Name) Catch ex As Exception End Try Next Next End Subignatandrei
All-Star
135184 Points
21682 Posts
Moderator
MVP
Re: Error
Oct 19, 2010 05:48 PM|LINK
Dim dt as String
dt= Date.Today.ToString()
then replace
with
Prospect.Date_Created = dt
( the same with AddDays(-1))
But one question : how do you know that ToString have the same format as in database ?