ASP.NET

'Assign intHours to session:
Session("intHours")

'Assign intHours to session:
Session("intHours") = intHours

if (Session("intHours) Is Not Nothing) then
    lblhourspassedval.Text = Session("intHours").ToString
end if

var cmpid = db.complaint_master
    .Where(m => m.uid == id && m.isvalid == 0 && m.dateofcomplaint == date)
    .Select(m => m.compid)
    .OrderByDescending(id => id)
    .FirstOrDefault()
;

var cmpid = db.complaint_master
    .Where(m => m.uid == id && m.isvalid == 0 && m.dateofcomplaint == date)
    .Select(m => m.compid)
    .AsEnumerable()
    .LastOrDefault()
;

Tridip Bhattacharjee wrote:

give me a sample code how to achieve it. also give me sample code for both wcf service and client side code.

<asp:SqlDataSource ID="MySqlDataSource1" runat="server" 
    ConnectionString="<%$ ConnectionStrings:MyConnectionString %>" 
    SelectCommand="SELECT * from myTable WHERE Active= 'True' AND myTable.Project = COALESCE(NULLIF(@FindProject, ''), myTable.Project)"
    CancelSelectOnNullParameter="False"
>
    <SelectParameters>
        <asp:ControlParameter 
            ControlID="FindProject" 
            Name="FindProject"
            PropertyName="Text" 
        />
    </SelectParameters>
</asp:SqlDataSource>

.li_divider 
{
   border:none;
    left:50%; // 50% of what? Seriously<br />
}

span.li_divider
{
    background:transparent url('/images/OR-Small.png') no-repeat top center;
    background-color:White;
    font-size:1.3em;
    font-weight:bold;    
}

    If Not Page.IsValid Then Return

    Dim blnIsUpdate As Boolean = False

    Dim hasedBytes As Byte()
    Dim strPassword As String = String.Empty
    Dim md5Hasher As New MD5CryptoServiceProvider()

    If Not litUserId.Text.Trim().Length.Equals(0) Then blnIsUpdate = True

    Dim cnnContact As New SqlConnection(AppSettings("DbSqlPortal"))
    Dim cmdContact As New SqlCommand("spAdminSaveUsers", cnnContact)

    Dim IDs As Integer = Nothing
    Dim trnContact As SqlTransaction = Nothing

    cmdContact.CommandType = CommandType.StoredProcedure

    hasedBytes = md5Hasher.ComputeHash(New UTF8Encoding().GetBytes((txtPassword.Text.Trim() & txtEmail.Text.Trim())))
    ' GetDistrictID()

    'If GetDistrictId() > 0 Then
    '    DisplayMessage(Me.Master.MessageBox, "A User with same District and Same user role  already exists.", "Record Exists", MessageBoxTypes.Warning)
    'Else

    Try
        With cmdContact.Parameters

            If blnIsUpdate Then

                .Add("@UserId", SqlDbType.BigInt).Value = CInt(litUserId.Text.Trim())

            Else

                .Add("@UserId", SqlDbType.BigInt).Value = DBNull.Value

            End If

            .Add("@FullName", SqlDbType.NVarChar).Value = txtFullName.Text.Trim()
            .Add("@Email", SqlDbType.NVarChar).Value = txtEmail.Text.Trim()
            .Add("@Password", SqlDbType.VarChar).Value = base64Encode(txtPassword.Text)

            'txtPassword.Text.Trim()
            'Convert.ToBase64String(hasedBytes)

            .Add("@SecurityQuestion", SqlDbType.VarChar).Value = ddlSecurityQuestions.SelectedItem.Text
            .Add("@SecurityAnswer", SqlDbType.VarChar).Value = txtAnswer.Text.Trim()
            .Add("@UserTypes", SqlDbType.TinyInt).Value = ddlUserTypes.SelectedValue
            .Add("@IsActive", SqlDbType.Bit).Value = chkActive.Checked

            .Add("@DistrictId", SqlDbType.TinyInt).Value = CheckBoxList1.SelectedValue

            .Add("@IsAdmin", SqlDbType.Bit).Value = chkAdmin.Checked

            .Add("@IPAddress", SqlDbType.VarChar).Value = Request.UserHostAddress
            .Add("@Result", SqlDbType.Char, 1).Direction = ParameterDirection.Output
            .Add("@ReturnId", SqlDbType.BigInt).Direction = ParameterDirection.Output

            If ChkIsReportAble.Checked = False Then
                .Add("@IsReportable", SqlDbType.Bit).Value = False
            Else
                .Add("@IsReportable", SqlDbType.Bit).Value = ChkIsReportAble.Checked
            End If
            If ChkIsReportAble.Checked Then
                .Add("@ReporintPerson", SqlDbType.TinyInt).Value = CInt(ddlReporintUser.SelectedValue)

            Else
                .Add("@ReporintPerson", SqlDbType.TinyInt).Value = DBNull.Value
            End If
        End With

        cnnContact.Open()
        trnContact = cnnContact.BeginTransaction()

        cmdContact.Transaction = trnContact
        cmdContact.ExecuteNonQuery()

        If CChar(cmdContact.Parameters("@Result").Value).Equals("E"c) Then
            '   Msg.Text = "The Record has been Successfully Submitted !"
            DisplayMessage(Me.Master.MessageBox, "A User with same Email already exists.", "Record Exists", MessageBoxTypes.Warning)
            'MessageBoxShow(Page, "This Record Exists Try with some other record!")
            litUserId.Text = String.Empty
            Return
        End If

        trnContact.Commit()
        litUserId.Text = (cmdContact.Parameters("@ReturnId").Value)

        If blnIsUpdate Then

            Dim cmdsDistrict As New SqlCommand("spAdminDeleletUserAssociationNews", cnnContact)
            cmdsDistrict.CommandType = CommandType.StoredProcedure
            Try
                With cmdsDistrict.Parameters
                    .Add("@UserId", SqlDbType.TinyInt).Value = litUserId.Text
                    .Add("@Result", SqlDbType.Char, 1).Direction = ParameterDirection.Output

                End With

                trnContact = cnnContact.BeginTransaction()
                cmdsDistrict.Transaction = trnContact

                cmdsDistrict.ExecuteNonQuery()
                trnContact.Commit()

            Catch ex As Exception

            End Try

        End If

        Dim dt As New DataTable()

        dt.Columns.AddRange(New DataColumn(2) {New DataColumn("DistrictId", GetType(Integer)), New DataColumn("DistrictName", GetType(String)), New DataColumn("UserID", GetType(Integer))})

        Dim i As Integer = 0
        Do While (i < CheckBoxList1.Items.Count)
            If CheckBoxList1.Items(i).Selected Then
                Dim id As Integer = Integer.Parse(CheckBoxList1.Items(i).Value)
                Dim name As String = CheckBoxList1.Items(i).Text
                Dim country As String = litUserId.Text
                dt.Rows.Add(id, name, country)
            End If
            i = (i + 1)
        Loop
        If dt.Rows.Count > 0 Then
            ' cnnContact = New SqlConnection(AppSettings("DbSqlPortal"))
            Using cmd As New SqlCommand("Insert_Customers")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = cnnContact
                cmd.Parameters.AddWithValue("@tblCustomers", dt)

                cmd.ExecuteNonQuery()

            End Using

        End If

        Dim dt2 As New DataTable()
        'Dim cnnCdf As SqlConnection = Nothing
        dt2.Columns.AddRange(New DataColumn(3) {New DataColumn("TehsilId", GetType(Integer)), New DataColumn("TehsilName", GetType(String)), New DataColumn("DistrictId", GetType(Integer)), New DataColumn("UserID", GetType(Integer))})

        Dim i2 As Integer = 0
        Do While (i2 < CheckBoxList2.Items.Count)
            If CheckBoxList2.Items(i2).Selected Then
                Dim id As Integer = Integer.Parse(CheckBoxList2.Items(i2).Value)
                hdnThil = id
                Dim name As String = CheckBoxList2.Items(i2).Text
                Dim country As String = litUserId.Text
                Dim tId As Integer = GetDistrictIDoftehsilIds(CheckBoxList2.Items(i2).Value)
                dt2.Rows.Add(id, name, tId, country)
            End If
            i2 = (i2 + 1)
        Loop

        If dt2.Rows.Count > 0 Then

            Using cmd As New SqlCommand("Insert_Customersfourth")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = cnnContact
                cmd.Parameters.AddWithValue("@tblCustomersfourth", dt2)

                cmd.ExecuteNonQuery()

            End Using

        End If

        Dim dt3 As New DataTable()

        dt3.Columns.AddRange(New DataColumn(3) {New DataColumn("UCID", GetType(Integer)), New DataColumn("UCName", GetType(String)), New DataColumn("TehsilId", GetType(Integer)), New DataColumn("UserID", GetType(Integer))})

        Dim i3 As Integer = 0
        Do While (i3 < CheckBoxList3.Items.Count)
            If CheckBoxList3.Items(i3).Selected Then
                Dim id As Integer = Integer.Parse(CheckBoxList3.Items(i3).Value)
                hdnUC = id
                Dim name As String = CheckBoxList3.Items(i3).Text
                Dim country As String = litUserId.Text
                Dim Ucid As Integer = GetTehsilIDIds(CheckBoxList3.Items(i3).Value)
                dt3.Rows.Add(id, name, Ucid, country)
            End If
            i3 = (i3 + 1)
        Loop

        If dt3.Rows.Count > 0 Then

            Using cmd As New SqlCommand("Insert_CustomersThird")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = cnnContact
                cmd.Parameters.AddWithValue("@tblCustomersThird", dt3)

                cmd.ExecuteNonQuery()

            End Using

        End If

        Dim dt4 As New DataTable()

        dt4.Columns.AddRange(New DataColumn(3) {New DataColumn("VillageId", GetType(Integer)), New DataColumn("VillageName", GetType(String)), New DataColumn("UcID", GetType(Integer)), New DataColumn("UserID", GetType(Integer))})

        Dim i4 As Integer = 0
        Do While (i4 < CheckBoxList4.Items.Count)
            If CheckBoxList4.Items(i4).Selected Then
                Dim id As Integer = Integer.Parse(CheckBoxList4.Items(i4).Value)
                hdnVillage = id
                Dim name As String = CheckBoxList4.Items(i4).Text
                Dim country As String = litUserId.Text
                Dim Ucid As Integer = GetUCIDIds(CheckBoxList4.Items(i4).Value)
                dt4.Rows.Add(id, name, Ucid, country)
            End If
            i4 = (i4 + 1)
        Loop
        If dt4.Rows.Count > 0 Then

            Using cmd As New SqlCommand("Insert_CustomersSecond")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = cnnContact
                cmd.Parameters.AddWithValue("@tblCustomersSecond", dt4)

                cmd.ExecuteNonQuery()

            End Using

        End If

        '    Catch ex As Exception

        'End Try

        cnnContact.Close()
        Dim strMessage As String = "A new User has successfully been created and saved."
        If blnIsUpdate Then strMessage = "The selected User has successfully been updated and saved."
        'lblMesssages.InnerText = "Welcome"
        DisplayMessage(Me.Master.MessageBox, strMessage, "User Saved Successfully", MessageBoxTypes.Success)
        SendMAilMessage()

        '  MVSearch.ActiveViewIndex = 0
        SearchUsers()
        'DisplayInitialPage()
    Catch ex As Exception

        If trnContact IsNot Nothing Then trnContact.Rollback()

        DisplayMessage(Me.Master.MessageBox, "An unexpected error occurred while saving the Record. Please retry.", "Record Not Saved", MessageBoxTypes.Error)

    Finally
        DisposeDataObjects(, , cmdContact, cnnContact)

    End Try

End Sub

cnnContact.Open()
trnContact = cnnContact.BeginTransaction()

cmdContact.Transaction = trnContact
cmdContact.ExecuteNonQuery()

Dim connStr As string = ConfigurationManager.ConnectionStrings("DefaultConnection").ConnectionString
Dim query as string = "SELECT ID FROM TABLE"

Dim conn as New SqlConnection(query)
Dim cmd as New SqlCommand(query, conn)

Try

    conn.open()
    Dim reader as SQLDataReader = cmd.ExecuteReader()
    while reader.Read()
      pValue = reader.GetInt32(0)
    End While

    reader.Close()

Catch ex as SQLException
    'If there is an error, this will tell you why, so fix the error
    ' but without the finally, the conn will be left open, 
    'So if you get too many conn open to the sql server, the sql server will hang

Finally
    conn.Close()

End Try