|
|
When I commented the ajax settings from page source, the download dialogue box seems to be appear. But after downloading it, when I try to open/extract an error shows like the specified zip is invalid. Any solution?
|
|
|
|
|
I want to scrape a table from web page but the content of table doesn't exist in the source of page
the table created on the fly by java script
this is the source of page
<HTML>
<HEAD>
<TITLE>Cisco Unified Communications Manager Express GUI</TITLE>
<SCRIPT Language="JavaScript">
GUIVersion = "7.0.0.1 (Compatible with IOS 12.4(20)T)"
var MWinC
var newestDN = 0
var retryTimes = 0
var changeBit = false
var FeedString = new Array()
FeedString[0] = "Router config has been successfully changed."
FeedString[1] = "Configuration has been successfully changed."
FeedString[2] = "Configuration change failed."
FeedString[3] = "Other telnet session active. Write delayed."
var FailReason = new Array()
FailReason[0] = "Please report the following error: "
FailReason[1] = " Ambiguous Command."
FailReason[2] = " No Matched Command."
FailReason[3] = " No Matched Help Command."
FailReason[4] = " No Matched Alias Command."
FailReason[5] = " Config Locked Down Too Long."
FailReason[6] = " Configuration Change is not allowed."
FailReason[7] = " Wrong Tag Value."
FailReason[8] = " System is writing config to memory. Your change is aborted!"
FailReason[9] = " Parser return code failed."
FailReason[10] = " Invalid ITS command option."
var GenFeed = new Array()
GenFeed[0] = "Add the new extension to a new phone?"
function ksBanner() {
MWinC = "<html><head><style>BODY{\n margin-left: 0pt; \n margin-top: 0pt;\n}"
+ "</style><title>Cisco Unified Communications Manager Express</title></head>"
+ "<body><IMG src='logohome.gif' alt='Cisco Logo'>"
+ "</body></html>"
return MWinC
}
function Greet1() {
MWinC = "<html><head><title> View Window </title></head><style>BODY{BACKGROUND-COLOR: #cccccc} H2{PADDING-RIGHT: 0.25em; PADDING-LEFT: 0.25em; FONT-WEIGHT: bold; FONT-SIZE: 0.9em; PADDING-BOTTOM: 0.25em; MARGIN: 0.5em; COLOR: #666699; PADDING-TOP: 0.25em; FONT-FAMILY: Arial, Verdana, Lucida, sans-serif; BACKGROUND-COLOR: #cccccc }</style><body>\n"
+ "<H2>View Window</H2></body></html>\n"
return MWinC
}
function Greet2() {
MWinC = "<html><head><title> Change Window </title></head><body>\n"
+ "<h2>Change Window </h2></body></html>\n"
return MWinC
}
</SCRIPT>
</HEAD>
<FRAMESET rows="0,*" frameborder="0">
<FRAME name="banner" src="ITSMain" scrolling="NO" frameborder="0" marginwidth="0" marginheight="0" noresize>
<FRAME name="dispframe" src="javascript:parent.Greet1()">
</FRAMESET>
</HTML>
however i can get the content of the table from browser developer tools
any suggestions
modified 16-Aug-14 8:41am.
|
|
|
|
|
<pre><code>Imports System.Data
Imports System.Data.OleDb
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim con As OleDbConnection
Dim cmd As OleDbCommand
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\db.mdb")
con.Open()
Dim insert As String = "insert into tbl1(names) values(@names)"
cmd = New OleDbCommand(insert, con)
cmd.Parameters.AddWithValue("@names", "Jacob")
cmd.ExecuteReader()
cmd.Dispose()
con.Dispose()
con.Close()
End Sub
End Class
</pre></code>
I'm trying to insert record into microsoft access database using the above code in asp.net. But the error specified above occurred and my connection string is ok. When i used same code in windows application, it works fine. Please help.
|
|
|
|
|
Don't you need spaces in your sql statement? ie
insert into tbl1(names) values(@names)
should be
insert into tbl1 (names) values (@names)
|
|
|
|
|
Thank you very much. It worked perfectly
|
|
|
|
|
If this is an MS Access database then the word names is a reserved keyword. You need to use square brackets around it to use in a query.
"insert into tbl1([names]) values(@names)"
http://support2.microsoft.com/kb/321266[^]
Please up vote if it helped you 
Thanks And Regards
Sibeesh
|
|
|
|
|
|
That depends where the data is being stored at.
The only thing to do is, to first check for any match in the data. Forexample, if it is a database related data then alteast first check for any row that has the same data as
"SELECT * FROM table_name WHERE column_name = value";
If there is a result, then don't save it. If there is no data for this query (no result) then save it.
There are other methods for saving data too, like JSON and XML files. Same algorithm works, you first check whether the data is present or not, and then do what's required, save it or not! General logic would be
if(data == "present") {
Console.WriteLine("Data present! Thanks");
} else {
Console.WriteLine("Data saved! Thanks");
}
Favourite line: Throw me to them wolves and close the gate up. I am afraid of what will happen to them wolves - Eminem
~! Firewall !~
|
|
|
|
|
Hi,
You can use bellow mentioned SQL Statement in your Stored Procedure / Query.
IF NOT EXISTS (SELECT <COLUMN NAME> FROM <TABLE NAME>)
BEGIN
"YOUR INSERT INTO SQL QUERY"
END
ELSE
BEGIN
"YOUR UPDATE SQL QUERY"
END
By this way you will handle duplicate insertion.
Hope this will help you.
Thanks,
Nishant Raval.
modified 28-Aug-14 5:48am.
|
|
|
|
|
You can check it in your c#, javascript, SQl codes. Where exactly you need that validation ?
Please up vote if it helped you
Thanks And Regards
Sibeesh
|
|
|
|
|
I have following problems disc. below
In the Iframe i call this page 'WorkingPanel.aspx'
on this working panel page i have many control .
i want to set all control enable false. when this page call from iframe.
not call from other link....
please give me suggestion for this topic.........
kp 777
|
|
|
|
|
You can put a JavaScript function in the WorkingPanel.aspx page that you can then call from the main page.
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
required field validator is not working in this code
<%@ Page Language="VB" AutoEventWireup="false" codefile="~/Test.aspx.vb" Inherits="Test" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
<link rel="stylesheet" href="beml.css" />
<title>Welcome to BEML Limited</title>
</head>
<body>
<form id="form1" runat="server">
<asp:ScriptManager ID="scriptmanger1" runat="server">
</asp:ScriptManager>
<div>
<table id="tblResume" runat="server" style="width: 325px;" cellpadding="0" cellspacing="0">
<tr>
<td style="background-image: url('images/title_bar.png'); padding-left: 10px; vertical-align: middle;
height: 40px;" class="subhead" align="left">
SUBMIT RESUME
</td>
</tr>
<tr>
<td style="border: 1px solid #F2F1F1; width: 325px;" align="center">
<table style="width: 96%;">
<tr>
<td class="mandatory" style="text-align: right; padding-right: 10px;" colspan="2">
All fields are mandatory
</td>
</tr>
<tr>
<td align="left" class="content">
Name*:
</td>
</tr>
<tr>
<td align="left" class="content">
<asp:TextBox ID="txtName" Width="225px" runat="server"
ValidationGroup="valEnquiry" CausesValidation="True" AutoPostBack ="True"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFName" runat="server" ControlToValidate="txtName" ErrorMessage="Please Enter Your Name" ValidationGroup="valEnquiry"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td align="center" style="padding-right: 10px;">
<asp:Button ID="btnRSend" CausesValidation="False" runat ="server" Text="Send" ValidationGroup="valEnquiry" />
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
I need help.
Thanks in advance
Have A Nice Day!
Murali.M
Blog
modified 27-Aug-14 16:14pm.
|
|
|
|
|
Your button, btnRSend has CausesValidation set to False which means when it is clicked the validators will not fire.
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
Hello Experts,
We are building an app that allows users to make online reservations of our facility.
The code below is designed to allow users to perform a search by either specific date or by date range.
Users can also search by selecting a search option from the dropdownlist.
The way the code works currently, if user's search turns up nothing, then we get the following error message:
Object reference not set to an instance of an object.
Line 259: Dim lblcurrentpage As Label = DirectCast(gvrow.Cells(0).FindControl("CurrentPage"), Label)
Rather than the error message, w would like the code to work differently.
If user's search is successful, the results of his/her search is displayed.
If however, no data is found based on his or her search parameter, we would like to display one month's worth of results.
Is this possible?
Below is the current code we are using.
Private Sub showGrid()
' Set the value of the SearchString so it gets
SearchString = txtSpecificDate.Text
ViewSelect = Request("ViewBy")
If ViewSelect = "" Or ViewSelect = "Range" Then
ViewSelect = "Range"
Else
ViewSelect = "Specific"
End If
'Response.Write(ViewSelect)
'Response.End()
Dim strQuery As String
Dim strSearch As String
Dim receiveddate As String = txtSpecificDate.Text
Dim fromdate As String = txtFromDate.Text
Dim enddate As String = txtToDate.Text
' Dim dts As DateTime = DateTime.ParseExact(DateString, "MM/dd/yyyy", CultureInfo.InvariantCulture)
'Protect against SQL Injection
strSearch = Replace(receiveddate, "'", "''", 1, -1, 1)
fromdate = Replace(fromdate, "'", "''", 1, -1, 1)
enddate = Replace(enddate, "'", "''", 1, -1, 1)
receiveddate = DateTime.Today.ToString("MM/dd/yyyy")
fromdate = DateTime.Today.ToString("MM/dd/yyyy")
enddate = "12/31/2050"
' first: Do we use AND or OR between clauses in the WHERE?
Dim andors As String = ANDOR.SelectedValue
'Response.Write(andors)
'Response.End()
' and now build up the WHERE.
'First, initialize where just to make sure it has nothing prior to our search
Dim where As String
where = ""
Dim facilityT As DropDownList
facilityT = FindControl("DropDownList1")
If facilityT.SelectedValue <> "" Then
If where <> "" Then where = where & andors
where = " i.instructorName = '" & Replace(facilityT.SelectedValue, "'", "''") & "'"
End If
If ViewSelect = "Range" Then
If where <> "" Then where = where & andors
where = where & " CONVERT(VARCHAR(10), d.trainingDates, 101) >= '" & fromdate & "' AND CONVERT(VARCHAR(10), d.trainingDates, 101) < '" & (enddate) & "'"
End If
If ViewSelect = "Specific" Then
If where <> "" Then where = where & andors
where = where & " CONVERT(VARCHAR(10), d.trainingDates, 101) = '" & strSearch & "' "
End If
'Response.Write(where)
'Response.End()
strQuery = "SELECT L.LocationId," & _
"c.courseId, " & _
"c.coursename, " & _
"CASE WHEN L.Seating_Capacity - COALESCE(TS.TakenSeats,0) = 0 THEN 'Not Available' " & _
" ELSE 'Available' END AS 'AvailableSeats'," & _
"d.dateid, " & _
" d.trainingDates, " & _
"d.trainingtime, " & _
" c.CourseDescription, " & _
" i.instructorName, " & _
"l.location " & _
" FROM tblLocations L " & _
" Inner Join tblCourses c on l.locationId = c.locationId " & _
" Inner Join tblTrainingDates d on c.dateid=d.dateid " & _
" Inner Join tblCourseInstructor ic on c.courseId = ic.CourseId " & _
" Inner Join tblInstructors i on ic.instructorId = i.instructorId " & _
" OUTER APPLY (Select Count(*) TakenSeats " & _
" FROM tblTrainings T " & _
" where(L.LocationId = T.LocationId) " & _
" AND c.courseId = t.courseId) TS where " & where
'Response.Write("DEBUG: " & strQuery & "<HR>")
'Response.End()
Dim cmd As New SqlCommand(strQuery)
Dim dt As DataTable = GetData(cmd)
If dt.Rows.Count = 0 Then
message.Text = "No Records Found"
End If
GridView1.DataSource = dt
GridView1.DataBind()
End Sub
Thanks a lot in advance for your assistance.
|
|
|
|
|
samflex wrote: 'Protect against SQL Injection
strSearch = Replace(receiveddate, "'", "''", 1, -1, 1)
fromdate = Replace(fromdate, "'", "''", 1, -1, 1)
enddate = Replace(enddate, "'", "''", 1, -1, 1)
Don't do that! 
The only way to truly protect against SQL injection is to use a parameterized query. It's not even difficult:
Dim cmd As New SqlCommand("-placeholder-", conn)
Dim sb As New StringBuilder( *** BASE QUERY HERE, up to but not including the "where" keyword *** )
Dim andors As String = IF(ANDOR.SelectedValue = "OR", " OR ", " AND ")
Dim startedWhere As Boolean = False
If facilityT.SelectedValue <> "" Then
sb.Append(If(startedWhere, andors, " WHERE "))
sb.Append("i.instructorName = @InstructorName")
cmd.Parameters.AddWithValue("@InstructorName", facilityT.SelectedValue)
startedWhere = True
End If
If ViewSelect = "Range" Then
sb.Append(If(startedWhere, andors, " WHERE "))
sb.Append("d.trainingDates Between @FromDate And @EndDate")
cmd.Parameters.AddWithValue("@FromDate", Date.Parse(fromdate))
cmd.Parameters.AddWithValue("@EndDate", Date.Parse(enddate))
startedWhere = True
ElseIf ViewSelect = "Specific" Then
sb.Append(If(startedWhere, andors, " WHERE "))
sb.Append("d.trainingDates = @SpecificDate")
cmd.Parameters.AddWithValue("@SpecificDate", Date.Parse(strSearch))
startedWhere = True
End If
cmd.CommandText = sb.ToString()
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Hi Richard
Ever since I started posting here, you have save me a lot - Thank you very much.
Does your solution include the core question that I have about presenting one month's data if user's search turns up nothing?
Also, I am not sure I understand the difference between
Dim cmd As New SqlCommand("-placeholder-", conn)
and
Dim sb As New StringBuilder( *** BASE QUERY HERE, up to but not including the "where" keyword *** )
I know the sqlcommand(..) is this:
SELECT L.LocationId," & _
"c.courseId, " & _
"c.coursename, " & _
"CASE WHEN L.Seating_Capacity - COALESCE(TS.TakenSeats,0) = 0 THEN 'Not Available' " & _
" ELSE 'Available' END AS 'AvailableSeats'," & _
"d.dateid, " & _
" d.trainingDates, " & _
"d.trainingtime, " & _
" c.CourseDescription, " & _
" i.instructorName, " & _
"l.location " & _
" FROM tblLocations L " & _
" Inner Join tblCourses c on l.locationId = c.locationId " & _
" Inner Join tblTrainingDates d on c.dateid=d.dateid " & _
" Inner Join tblCourseInstructor ic on c.courseId = ic.CourseId " & _
" Inner Join tblInstructors i on ic.instructorId = i.instructorId " & _
" OUTER APPLY (Select Count(*) TakenSeats " & _
" FROM tblTrainings T " & _
" where(L.LocationId = T.LocationId) " & _
" AND c.courseId = t.courseId) TS where "
but I don't understand what goes into the stringbuilder(...)
modified 14-Aug-14 13:14pm.
|
|
|
|
|
The "-placeholder-" string in the SqlCommand constructor doesn't need to be changed. It's just there so that the command has some initial text which is obviously not a query. That text will be replaced later, once the full query has been built. (cmd.CommandText = sb.ToString())
The *** BASE QUERY HERE ... *** part needs to be the base query, up-to but not including the final "where" statement:
Dim sb As New StringBuilder("SELECT L.LocationId," & _
"c.courseId, " & _
"c.coursename, " & _
"CASE WHEN L.Seating_Capacity - COALESCE(TS.TakenSeats,0) = 0 THEN 'Not Available' " & _
" ELSE 'Available' END AS 'AvailableSeats'," & _
"d.dateid, " & _
" d.trainingDates, " & _
"d.trainingtime, " & _
" c.CourseDescription, " & _
" i.instructorName, " & _
"l.location " & _
" FROM tblLocations L " & _
" Inner Join tblCourses c on l.locationId = c.locationId " & _
" Inner Join tblTrainingDates d on c.dateid=d.dateid " & _
" Inner Join tblCourseInstructor ic on c.courseId = ic.CourseId " & _
" Inner Join tblInstructors i on ic.instructorId = i.instructorId " & _
" OUTER APPLY (Select Count(*) TakenSeats " & _
" FROM tblTrainings T " & _
" where(L.LocationId = T.LocationId) " & _
" AND c.courseId = t.courseId) TS")
The code then appends the relevant filters to the StringBuilder instance to produce the final query.
As for returning one month's data if the search doesn't find anything, you'll need to modify the If dt.Rows.Count = 0 Then ... End If block to issue a new query to return the default data. Something like:
If dt.Rows.Count = 0 Then
message.Text = "No matching records found."
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@FromDate", Date.Today.AddMonths(-1))
cmd.Parameters.AddWithValue("@EndDate", Date.Today)
cmd.CommandText = "SELECT L.LocationId," & _
"c.courseId, " & _
"c.coursename, " & _
"CASE WHEN L.Seating_Capacity - COALESCE(TS.TakenSeats,0) = 0 THEN 'Not Available' " & _
" ELSE 'Available' END AS 'AvailableSeats'," & _
"d.dateid, " & _
" d.trainingDates, " & _
"d.trainingtime, " & _
" c.CourseDescription, " & _
" i.instructorName, " & _
"l.location " & _
" FROM tblLocations L " & _
" Inner Join tblCourses c on l.locationId = c.locationId " & _
" Inner Join tblTrainingDates d on c.dateid=d.dateid " & _
" Inner Join tblCourseInstructor ic on c.courseId = ic.CourseId " & _
" Inner Join tblInstructors i on ic.instructorId = i.instructorId " & _
" OUTER APPLY (Select Count(*) TakenSeats " & _
" FROM tblTrainings T " & _
" where(L.LocationId = T.LocationId) " & _
" AND c.courseId = t.courseId) TS " & _
" where d.trainingDates Between @FromDate And @EndDate"
dt = GetData(cmd)
End If
You'll still need to modify the code which tries to find the "CurrentPage" label, in case the second query doesn't return any data either. There might not be a row, the row might not have any cells, or the cell might not contain a Label control called "CurrentPage"; any one of these things would cause your code to throw a NullReferenceException.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Thank you very much sir.
Your code is so elegant. I hope to get close to where you are one day.
I have pretty much put all the pieces together but I think I have things a bit mixed up because first, I commented out some lines that are throwing errors.
Second, when the page loads, I start paging, it starts showing some weird lines.
Can you see what I am doing wrong?
Private Sub showGrid()
Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("conString").ConnectionString)
' Dim strQuery As String
Dim cmd As New SqlCommand("-placeholder-", conn)
Dim sb As New StringBuilder("SELECT L.LocationId," & _
"c.courseId, " & _
"c.coursename, " & _
"CASE WHEN L.Seating_Capacity - COALESCE(TS.TakenSeats,0) = 0 THEN 'Not Available' " & _
" ELSE 'Available' END AS 'AvailableSeats'," & _
"d.dateid, " & _
" d.trainingDates, " & _
"d.trainingtime, " & _
" c.CourseDescription, " & _
" i.instructorName, " & _
"l.location " & _
" FROM tblLocations L " & _
" Inner Join tblCourses c on l.locationId = c.locationId " & _
" Inner Join tblTrainingDates d on c.dateid=d.dateid " & _
" Inner Join tblCourseInstructor ic on c.courseId = ic.CourseId " & _
" Inner Join tblInstructors i on ic.instructorId = i.instructorId " & _
" OUTER APPLY (Select Count(*) TakenSeats " & _
" FROM tblTrainings T " & _
" where(L.LocationId = T.LocationId) " & _
" AND c.courseId = t.courseId) TS")
' Hard-code the acceptable values here:
Dim andors As String = If(ANDOR.SelectedValue = "OR", " OR ", " AND ")
Dim startedWhere As Boolean = False
If DropDownList1.SelectedValue <> "" Then
sb.Append(If(startedWhere, andors, " WHERE "))
sb.Append("i.instructorName = @InstructorName")
cmd.Parameters.AddWithValue("@InstructorName", DropDownList1.SelectedValue)
startedWhere = True
End If
If ViewSelect = "Range" Then
sb.Append(If(startedWhere, andors, " WHERE "))
sb.Append("d.trainingDates Between @FromDate And @EndDate")
cmd.Parameters.AddWithValue("@FromDate", Date.Parse(txtFromDate.Text))
cmd.Parameters.AddWithValue("@EndDate", Date.Parse(txtToDate.Text))
startedWhere = True
ElseIf ViewSelect = "Specific" Then
sb.Append(If(startedWhere, andors, " WHERE "))
sb.Append("d.trainingDates = @SpecificDate")
cmd.Parameters.AddWithValue("@SpecificDate", Date.Parse(txtSpecificDate.Text))
startedWhere = True
End If
cmd.CommandText = sb.ToString()
' Dim cmd As New SqlCommand(strQuery) 'This says cmd has already been declared
Dim dt As DataTable = GetData(cmd)
If dt.Rows.Count = 0 Then
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@FromDate", Date.Today.AddMonths(-1))
cmd.Parameters.AddWithValue("@EndDate", Date.Today)
cmd.CommandText = "SELECT L.LocationId," & _
"c.courseId, " & _
"c.coursename, " & _
"CASE WHEN L.Seating_Capacity - COALESCE(TS.TakenSeats,0) = 0 THEN 'Not Available' " & _
" ELSE 'Available' END AS 'AvailableSeats'," & _
"d.dateid, " & _
" d.trainingDates, " & _
"d.trainingtime, " & _
" c.CourseDescription, " & _
" i.instructorName, " & _
"l.location " & _
" FROM tblLocations L " & _
" Inner Join tblCourses c on l.locationId = c.locationId " & _
" Inner Join tblTrainingDates d on c.dateid=d.dateid " & _
" Inner Join tblCourseInstructor ic on c.courseId = ic.CourseId " & _
" Inner Join tblInstructors i on ic.instructorId = i.instructorId " & _
" OUTER APPLY (Select Count(*) TakenSeats " & _
" FROM tblTrainings T " & _
" where(L.LocationId = T.LocationId) " & _
" AND c.courseId = t.courseId) TS " & _
" where d.trainingDates Between @FromDate And @EndDate"
dt = GetData(cmd)
End If
GridView1.DataSource = dt
GridView1.DataBind()
End Sub
|
|
|
|
|
I can't see anything obviously wrong with your code. The line you've commented out would generate a compilation error, because the cmd variable is already defined towards the start of the method.
samflex wrote: Second, when the page loads, I start paging, it starts showing some weird lines.
What do you mean by "weird lines"?
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Sorry to keep bothering you sir and thanks for your continued assistance.
There are actually two problems that I discovered upon further testing.
1, when I select a date range with good dates - meaning dates that exist on our db, it doesn't capture them.
Instead, it displays the month values we elected to display if user's search turns up empty.
Same happens when I perform a search with specific date.
So, for some reason, the parameters are not working.
As for what I meant by weird lines, when I first run the app, it displays for instance 3 pages with a text that says, Viewing page 1 of 3. when I click page2, the text now displays Viewing page 2 of 3. However, the paging doesn't change to page 2. It still has page 1 highlighted (based on color I used).
When I attempt to click that page 2 again, I get this:
First ... Prev LinkButton LinkButton LinkButton Label LinkButton LinkButton LinkButton Next ... Last
The original code I posted wasn't doing this. It was paging perfectly only problem was that I wanted it to display one month's data if user's selection doesn't exist on the DB.
|
|
|
|
|
What data-type are the dates stored as in your database? They should be either date, datetime2, or something similar.
As for the paging, you haven't posted any code relating to that.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Here is the code for paging (kind of long sorry). Markup not included because I am not sure you want to see it.
Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As GridViewPageEventArgs)
GridView1.PageIndex = e.NewPageIndex
showGrid()
GridView1.DataBind()
End Sub
Protected Sub GridView1_DataBound(ByVal sender As Object, ByVal e As EventArgs)
Dim gvrow As GridViewRow = GridView1.BottomPagerRow
Dim lblcurrentpage As Label = DirectCast(gvrow.Cells(0).FindControl("CurrentPage"), Label)
lblcurrentpage.Text = Convert.ToString(GridView1.PageIndex + 1)
Dim page As Integer() = New Integer(6) {}
page(0) = GridView1.PageIndex - 2
page(1) = GridView1.PageIndex - 1
page(2) = GridView1.PageIndex
page(3) = GridView1.PageIndex + 1
page(4) = GridView1.PageIndex + 2
page(5) = GridView1.PageIndex + 3
page(6) = GridView1.PageIndex + 4
For i As Integer = 0 To 6
If i <> 3 Then
If page(i) < 1 OrElse page(i) > GridView1.PageCount Then
Dim lnkbtn As LinkButton = DirectCast(gvrow.Cells(0).FindControl("p" + Convert.ToString(i)), LinkButton)
lnkbtn.Visible = False
Else
Dim lnkbtn As LinkButton = DirectCast(gvrow.Cells(0).FindControl("p" + Convert.ToString(i)), LinkButton)
lnkbtn.Text = Convert.ToString(page(i))
lnkbtn.CommandName = "PageNo"
lnkbtn.CommandArgument = lnkbtn.Text
End If
End If
Next
If GridView1.PageIndex = 0 Then
Dim lnkbtn As LinkButton = DirectCast(gvrow.Cells(0).FindControl("LinkButton1"), LinkButton)
lnkbtn.Visible = False
lnkbtn = DirectCast(gvrow.Cells(0).FindControl("LinkButton2"), LinkButton)
lnkbtn.Visible = False
End If
If GridView1.PageIndex = GridView1.PageCount - 1 Then
Dim lnkbtn As LinkButton = DirectCast(gvrow.Cells(0).FindControl("LinkButton3"), LinkButton)
lnkbtn.Visible = False
lnkbtn = DirectCast(gvrow.Cells(0).FindControl("LinkButton4"), LinkButton)
lnkbtn.Visible = False
End If
If GridView1.PageIndex > GridView1.PageCount - 5 Then
Dim lbmore As Label = DirectCast(gvrow.Cells(0).FindControl("nmore"), Label)
lbmore.Visible = False
End If
If GridView1.PageIndex < 4 Then
Dim lbmore As Label = DirectCast(gvrow.Cells(0).FindControl("pmore"), Label)
lbmore.Visible = False
End If
End Sub
Private Sub lb_Command(ByVal sender As Object, ByVal e As CommandEventArgs)
GridView1.PageIndex = Convert.ToInt32(e.CommandArgument) - 1
End Sub
Protected Sub GridView1_RowCreated(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.Pager Then
Dim gvr As GridViewRow = e.Row
Dim lb As LinkButton = DirectCast(gvr.Cells(0).FindControl("p0"), LinkButton)
AddHandler lb.Command, AddressOf lb_Command
lb = DirectCast(gvr.Cells(0).FindControl("p1"), LinkButton)
AddHandler lb.Command, AddressOf lb_Command
lb = DirectCast(gvr.Cells(0).FindControl("p2"), LinkButton)
AddHandler lb.Command, AddressOf lb_Command
lb = DirectCast(gvr.Cells(0).FindControl("p4"), LinkButton)
AddHandler lb.Command, AddressOf lb_Command
lb = DirectCast(gvr.Cells(0).FindControl("p5"), LinkButton)
AddHandler lb.Command, AddressOf lb_Command
lb = DirectCast(gvr.Cells(0).FindControl("p6"), LinkButton)
AddHandler lb.Command, AddressOf lb_Command
End If
End Sub
End Class
|
|
|
|
|
There are two things missing from the top of your updated showGrid method which were in the original code:
SearchString = txtSpecificDate.Text
ViewSelect = Request("ViewBy")
If ViewSelect = "" Or ViewSelect = "Range" Then
ViewSelect = "Range"
Else
ViewSelect = "Specific"
End If
Also, since your dates are datetime, and your original code was only comparing the date part, you'll need to update the date filters:
If ViewSelect = "Range" Then
sb.Append(If(startedWhere, andors, " WHERE "))
sb.Append("(d.trainingDates >= @FromDate And d.trainingDates < DateAdd(day, 1, @EndDate))")
cmd.Parameters.AddWithValue("@FromDate", Date.Parse(txtFromDate.Text))
cmd.Parameters.AddWithValue("@EndDate", Date.Parse(txtToDate.Text))
startedWhere = True
ElseIf ViewSelect = "Specific" Then
sb.Append(If(startedWhere, andors, " WHERE "))
sb.Append("(d.trainingDates >= @SpecificDate And d.trainingDates < DateAdd(day, 1, @SpecificDate))")
cmd.Parameters.AddWithValue("@SpecificDate", Date.Parse(txtSpecificDate.Text))
startedWhere = True
End If
I can't see any obvious reason for the paging issues. I'd probably be inclined to use a DataPager control[^] rather than custom LinkButton controls, but if your code worked with the old version of the showGrid method, it should work just as well with the new version.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
