VB.NET: IF Else Query

Hi All,

I have a code below for VB.NET.

now is that i need to change my query that look like this.

if table mo_assembly = curdate() then 'Updated' Else 'Not-Up-To-Date'
if table mo_component = curdate() then 'Updated' Else 'Not-Up-To-Date'
if table mo_location = curdate() then 'Updated' Else 'Not-Up-To-Date'

same goes to all the other table

then from there i need to send a notification to admin that look like this

Table                                  Status
mo_assembly                     Updated
mo_component                   Not-Up-To-Date
mo_location                        Updated
mo_po_status                    Updated
mo_wo                               Updated
selling_price                      Not-Up-To-Date

Public Sub Checkdata()
        Dim sConString As String = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=206.209.241.43; DATABASE=DUS; UID=root; PASSWORD=newpwd; OPTION=16834"
        Dim Conn As New ADODB.Connection
        Conn.Open(sConString)
 
        Dim qryGetStatus As String = "select Name,DATE_FORMAT(last_update, '%Y-%m-%d') from backup where (name='mo_assembly' and name='mo_component' and name = 'mo_location' and name = 'mo_po_status' and name = 'mo_wo' and name='selling_price_financial_information_report') and DATE_FORMAT(last_update, '%Y-%m-%d')= curdate()"
        Dim rsGetStatus As New ADODB.Recordset
        rsGetStatus.Open(qryGetStatus, sConString, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockBatchOptimistic, 1)
 
        Conn.Close()
 
        If Not rsGetStatus.EOF Then
            Process()
        Else
            sendemailnotuptodate()
        End If
    End Sub
 
    Public Sub sendemailnotuptodate()
 
        'Dim send_email As String
        Dim mymail
 
        mymail = CreateObject("CDO.Message")
        mymail.Subject = "Waterfall & Loading Scheduler Report"
        mymail.From = "Item_Branch_Scheduler"
        mymail.To = "email@email.com"
        
        'mymail.TextBody = "The Item_Branch data is not up-to-date. Please check from DUS/JDE database"
        mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Name or IP of remote SMTP server
        mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "206.209.242.146"
        'Server port
        mymail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        mymail.Configuration.Fields.Update()
        mymail.send()
        mymail = Nothing
 
        mymail.TextBody = "The Item_Branch data is not up-to-date. Please check from DUS/JDE database"
 
 
 
 
    End Sub

Select allOpen in new window