ตอนที่ 7 : ตัวอย่าง Windows Service การเชื่อมต่อกับ Database SQL Server (VB.Net,C#)

        string strPath = AppDomain.CurrentDomain.BaseDirectory + "Log.txt";
        string strConnString = @"Server=localhost;UID=sa;PASSWORD=;database=mydatabase";

        protected override void OnStart(string[] args)
        {
            System.IO.File.AppendAllLines(strPath, new[] { "Starting time : " + DateTime.Now.ToString() });
            this.timer1.Start();
        }

        protected override void OnStop()
        {
            System.IO.File.AppendAllLines(strPath, new[] { "Stop time : " + DateTime.Now.ToString() });
            this.timer1.Stop();
        }

        private void timer1_Elapsed(object sender, System.Timers.ElapsedEventArgs e)
        {
            System.IO.File.AppendAllLines(strPath, new[] { "..calling time : " + DateTime.Now.ToString() });

            //*** Save to Database
            var objConn = new SqlConnection(strConnString);
            objConn.Open();

            string strSQL = "INSERT INTO myTable (CallingTime) "
                + " VALUES  (@CallingTime)";

            var objCmd = new SqlCommand(strSQL, objConn);
            objCmd.Parameters.Add("@CallingTime", SqlDbType.DateTime).Value = DateTime.Now;
            objCmd.ExecuteNonQuery();
            objConn.Close();
        }

    Dim strPath As String = AppDomain.CurrentDomain.BaseDirectory + "Log.txt"
    Dim strConnString As String = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase"

    Protected Overrides Sub OnStart(ByVal args() As String)
        Dim lines() As String = {"Starting time : " + DateTime.Now.ToString()}
        System.IO.File.AppendAllLines(strPath, lines)
    End Sub

    Private Sub Timer1_Elapsed(sender As Object, e As Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        Dim lines() As String = {"..calling time :" + DateTime.Now.ToString()}
        System.IO.File.AppendAllLines(strPath, lines)

        '*** Save to Database
        Dim objConn = New SqlConnection(strConnString)
        objConn.Open()

        Dim strSQL As String = "INSERT INTO myTable (CallingTime) " + " VALUES  (@CallingTime)"

        Dim objCmd = New SqlCommand(strSQL, objConn)
        objCmd.Parameters.Add("@CallingTime", SqlDbType.DateTime).Value = DateTime.Now
        objCmd.ExecuteNonQuery()
        objConn.Close()
    End Sub

    Protected Overrides Sub OnStop()
        Dim lines() As String = {"Stop time : " + DateTime.Now.ToString()}
        System.IO.File.AppendAllLines(strPath, lines)
    End Sub