ASP.NET

Member 12942419 wrote:

i have searched for the code for a lot of times but i didn't get any valid code

Abhijit Mindcraft wrote:

Please provide a link

samflex wrote:

Does anyone have any ideas why this code is not displaying that message?

If reportType = "Today" Then
     s = "SELECT * ..."
ElseIf reportType = "Yesterday" Then
     s = "SELECT * ..."
ElseIf reportType = "All" Then
     s = "select * from mytble"
Else
     lblmsg.Text = "No  record found from yesterday.")
End If

Using con As New SqlConnection("...")
    Using cmd As New SqlCommand("", con)
        Dim reportType As String = ddlrpttype.SelectedValue
        If reportType = "Today" Then
            cmd.CommandText = "SELECT * FROM mytble WHERE work_request_date >= @MinDate And work_request_date < @MaxDate"
            cmd.Parameters.AddWithValue("@MinDate", DateTime.Today)
            cmd.Parameters.AddWithValue("@MaxDate", DateTime.Today.AddDays(1))
            
        ElseIf reportType = "Yesterday" Then
            cmd.CommandText = "SELECT * FROM mytble WHERE work_request_date >= @MinDate And work_request_date < @MaxDate"
            cmd.Parameters.AddWithValue("@MinDate", DateTime.Today.AddDays(-1))
            cmd.Parameters.AddWithValue("@MaxDate", DateTime.Today)
            
        Else
            cmd.CommandText = "SELECT * FROM mytble"
        End If
        
        Using dr As SqlDataReader = cmd.ExecuteReader()
            reportgrv.DataSource = dr
            reportgrv.DataBind()
        End Using
    End Using
End Using

If reportgrv.Rows.Count = 0 Then
    lblmsg.Text = "No matching records found."
Else
    lblmsg.Text = Nothing
End If

Private Sub BindGrid()
    Dim s As String = ""
    Dim reportType = ddlrpttype.SelectedValue

    conn.Open()

    If reportType = "Today" Then
        s = "SELECT * from mytable WHERE (DATEDIFF(day,CONVERT(datetime,mytable.date, 121),GETDATE()) = 0)  ORDER By date DESC "
    ElseIf reportType = "Yesterday" Then
        s = "SELECT * FROM mytable  WHERE (DateDiff(Day, Convert(DateTime, mytable.date, 121), GETDATE()) = 1)  ORDER By date DESC "
    ElseIf reportType = "All" Then
        s = "select * from mytable ORDER By mytable_no DESC "
    Else
        s = "select * from mytable ORDER By mytable_no DESC "
    End If
    Dim cmd As New SqlCommand(s)
    reportgrv.DataSource = GetData(cmd)
    reportgrv.DataBind()
    'Showing Numbers in Label
    Dim iTotalRecords As Integer = DirectCast(reportgrv.DataSource, DataTable).Rows.Count
    Dim iEndRecord As Integer = reportgrv.PageSize * (reportgrv.PageIndex + 1)
    Dim iStartsRecods As Integer = iEndRecord - reportgrv.PageSize

    If iEndRecord > iTotalRecords Then
        iEndRecord = iTotalRecords
    End If

    If iStartsRecods = 0 Then
        iStartsRecods = 1
    End If
    If iEndRecord = 0 Then
        iEndRecord = iTotalRecords
    End If
    lblTotalRecords.Text = "Total records Found: " & iTotalRecords.ToString() & ""
End Sub

samflex wrote:

and a lot of them laden with insults.

TextBox t = (TextBox)e.Item.FindControl("XYZ");

Markus Evacoso wrote:

I would like to prevent this behaviour.

<Target Name="AfterBuild">
        <Delete ContinueOnError="true" Files="$(TargetPath).config" />
  </Target>