ASP.NET

Member 13009492 wrote:

how could I scroll image for vb 2010?

Member 12942419 wrote:

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

M.D.V.

If something has a solution... Why do we have to worry about?. If it has no solution... For what reason do we have to worry about?
Help me to understand what I'm saying, and I'll explain it better to you
Rating helpful answers is nice, but saying thanks can be even nicer.

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.