Visual Basic

<br />
Public Class Service1<br />
    Private alarmTime As Date<br />
    Protected Overrides Sub OnStart(ByVal args() As String)<br />
        ' Add code here to start your service. This method should set things<br />
        ' in motion so your service can do its work.<br />
        'Dim a As TimeSpan = Date.Now.Subtract(Date.Today.AddDays(1))<br />
        'Dim tomorrow As Date = New Date<br />
        'tomorrow = Date.Now.AddDays(1)<br />
<br />
        'Me.alarmTime = New Date(tomorrow.Year, tomorrow.Month, tomorrow.Day, 0, 1, 1, 1)<br />
        Me.alarmTime = Date.Now.AddMinutes(1)<br />
        Me.Timer1.Start()<br />
    End Sub<br />
<br />
    Protected Overrides Sub OnStop()<br />
        ' Add code here to perform any tear-down necessary to stop your service.<br />
    End Sub<br />
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
        If alarmTime < Date.Now Then<br />
            Me.Timer1.Stop()<br />
            Dim MyLog As New EventLog() ' create a new event log<br />
            ' Check if the the Event Log Exists<br />
            If Not Diagnostics.EventLog.SourceExists("SQLBackup") Then<br />
                Diagnostics.EventLog.CreateEventSource("SQLBackup", "SQLBackup") ' Create Log<br />
            End If<br />
            MyLog.Source = "SQLBackup"<br />
            ' Write to the Log<br />
            Diagnostics.EventLog.WriteEntry("SQLBackup", "Event fired at " & CStr(TimeOfDay), EventLogEntryType.Information)<br />
        Else<br />
            Dim remainingTime As TimeSpan = Me.alarmTime.Subtract(Date.Now)<br />
<br />
            'Me.Label1.Text = String.Format("{0}:{1:d2}:{2:d2}", _<br />
            'remainingTime.Hours, _<br />
            'remainingTime.Minutes, _<br />
            'remainingTime.Seconds)<br />
        End If<br />
    End Sub<br />
End Class<br />

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click<br />
Dim SQL As String = Nothing<br />
SQL = "DELETE FROM Student WHERE StudentID = " & TextBox3.Text<br />
If MessageBox.Show("Are you sure you want to delete", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = MsgBoxResult.Yes Then<br />
conStudent = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Projects\SQL DataApplication\SQL DataApplication\Student.mdf;Integrated Security=True;User Instance=True")<br />
conStudent.Open()<br />
Try<br />
commStudent = New SqlClient.SqlCommand(SQL, conStudent)<br />
commStudent.ExecuteNonQuery()<br />
<br />
MsgBox("Item deleted", MsgBoxStyle.Information)<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
conStudent.Close()<br />
conStudent.Dispose()<br />
Else<br />
Exit Sub<br />
End If<br />
End Sub