Display and Update Last Login Date in ASP.Net Label using C# and VB.Net

Hi RichardSa,

Please refer below sample.

DataBase

I am making use of Users table with the schema as below.

HTML

Login

<table>
    <tr>
        <td>UserName :<asp:TextBox ID="txtUserName" runat="server"></asp:TextBox></td>
    </tr>
    <tr>
        <td>Password :<asp:TextBox ID="txtPassword" runat="server"></asp:TextBox></td>
    </tr>
    <tr>
        <td>
            <asp:Button ID="btnLogin" runat="server" Text="Login" OnClick="OnLogin" /></td>
    </tr>
</table>

Home

<table>
    <tr>
        <td>
            LastLoginDate :<asp:Label ID="lblLastDate" runat="server"></asp:Label></td>
    </tr>
</table>

Namespaces

C#

using System.Data;
using System.Data.SqlClient;
using System.Configuration;

VB.Net

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Code

C#

Login

protected void OnLogin(object sender, EventArgs e)
{
    Session["User"] = txtUserName.Text;
    Response.Redirect("Home.aspx");
}

Home

protected void Page_Load(object sender, EventArgs e)
{
    if (Session["User"] == null)
    {
        Response.Redirect("Login.aspx");
    }
    else
    {
        lastDate();
    }
}

public void lastDate()
{
    DateTime LastloginDate; int newloginDate;
    string conString = ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
    using (SqlConnection con = new SqlConnection(conString))
    {
        con.Open();
        string query = "SELECT lastLoginDate FROM Users WHERE UserName = @UserName";
        using (SqlCommand cmd = new SqlCommand(query, con))
        {
            cmd.Parameters.AddWithValue("@UserName", Session["User"]);
            LastloginDate = Convert.ToDateTime(cmd.ExecuteScalar());
            lblLastDate.Text = LastloginDate.ToString();
        }

        string UpdateLog = @"UPDATE Users SET lastLoginDate = @dateandtime WHERE UserName = @UserName";
        using (SqlCommand cmd = new SqlCommand(UpdateLog, con))
        {
            cmd.Parameters.AddWithValue("@dateandtime", DateTime.Now);
            cmd.Parameters.AddWithValue("@UserName", Session["User"]);
            newloginDate = cmd.ExecuteNonQuery();
        }
        con.Close();
    }
}

VB.Net

Login

Protected Sub OnLogin(ByVal sender As Object, ByVal e As EventArgs)
    Session("User") = txtUserName.Text
    Response.Redirect("Home.aspx")
End Sub

Home

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Session("User") Is Nothing Then
        Response.Redirect("Login.aspx")
    Else
        lastDate()
    End If
End Sub
Public Sub lastDate()
    Dim LastloginDate As DateTime
    Dim newloginDate As Integer
    Dim conString As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
    Using con As SqlConnection = New SqlConnection(conString)
        con.Open()
        Dim query As String = "SELECT lastLoginDate FROM Users WHERE UserName = @UserName"
        Using cmd As SqlCommand = New SqlCommand(query, con)
            cmd.Parameters.AddWithValue("@UserName", Session("User"))
            LastloginDate = Convert.ToDateTime(cmd.ExecuteScalar())
            lblLastDate.Text = LastloginDate.ToString()
        End Using
        Dim UpdateLog As String = "UPDATE Users SET lastLoginDate = @dateandtime WHERE UserName = @UserName"
        Using cmd As SqlCommand = New SqlCommand(UpdateLog, con)
            cmd.Parameters.AddWithValue("@dateandtime", DateTime.Now)
            cmd.Parameters.AddWithValue("@UserName", Session("User"))
            newloginDate = cmd.ExecuteNonQuery()
        End Using
        con.Close()
    End Using
End Sub

Screenshot