J
Jeff Thur
Here is my problem:
I have created a Database Lookup program for users to
search the SQL Database for specific records. The program
uses a SQL Stored Procedure with variables that the user
plugs in. After the values are plugged in, they then
click a button to submit their query. I have searched
numerous articles on default paging, but I have only
found articles that run a query with in the code with
standard values and not variables. This is easy, since
the Databind Method is called from the Page_Load method
and an event handler handles the paging. I have fooled
around with trying to get the paging correct using the
paramaterized Stored Procedure but have had no luck at
all. The program works fine with no paging. I am copying
the program here to look at. Would appreciate any kind of
help that anybody can give.
Thanks........
Sub Page_Load(Sender As Object, e As EventArgs)
IF Not Page.IsPostback Then
State.Items.Add ("")
State.Items.Add ("AL")
State.Items.Add ("AK")
State.Items.Add ("AZ")
State.Items.Add ("AR")
State.Items.Add ("CA")
State.Items.Add ("CO")
State.Items.Add ("CT")
State.Items.Add ("DC")
State.Items.Add ("DE")
State.Items.Add ("FL")
State.Items.Add ("GA")
State.Items.Add ("HI")
State.Items.Add ("ID")
State.Items.Add ("IL")
State.Items.Add ("IN")
State.Items.Add ("IA")
State.Items.Add ("KS")
State.Items.Add ("KY")
State.Items.Add ("LA")
State.Items.Add ("ME")
State.Items.Add ("MA")
State.Items.Add ("MD")
State.Items.Add ("MI")
State.Items.Add ("MN")
State.Items.Add ("MO")
State.Items.Add ("MS")
State.Items.Add ("MT")
State.Items.Add ("NE")
State.Items.Add ("NV")
State.Items.Add ("NH")
State.Items.Add ("NJ")
State.Items.Add ("NM")
State.Items.Add ("NY")
State.Items.Add ("NC")
State.Items.Add ("ND")
State.Items.Add ("OH")
State.Items.Add ("OK")
State.Items.Add ("OR")
State.Items.Add ("PA")
State.Items.Add ("RI")
State.Items.Add ("SC")
State.Items.Add ("SD")
State.Items.Add ("TN")
State.Items.Add ("TX")
State.Items.Add ("UT")
State.Items.Add ("VT")
State.Items.Add ("VA")
State.Items.Add ("WA")
State.Items.Add ("WV")
State.Items.Add ("WI")
State.Items.Add ("WY")
End If
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
BindData()
End Sub
Sub BindData
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection
("server='(local)'; user id='sa'; password='fritz';
database='Cutis'")
MyCommand = New SqlDataAdapter("EMSLKUPS",
MyConnection)
MyCommand.SelectCommand.CommandType =
CommandType.StoredProcedure
MyCommand.SelectCommand.Parameters.Add(New
SqlParameter("@TxtFirst", SqlDbType.NVarChar, 1))
MyCommand.SelectCommand.Parameters
("@TxtFirst").Value = TxtFirst.Text
MyCommand.SelectCommand.Parameters.Add(New
SqlParameter("@TxtLast", SqlDbType.NVarChar, 6))
MyCommand.SelectCommand.Parameters
("@TxtLast").Value = TxtLast.Text
MyCommand.SelectCommand.Parameters.Add(New
SqlParameter("@TxtState", SqlDbType.NVarChar, 2))
MyCommand.SelectCommand.Parameters
("@TxtState").Value = State.SelectedValue
MyCommand.SelectCommand.Parameters.Add(New
SqlParameter("@TxtSubscr", SqlDbType.NVarChar, 10))
MyCommand.SelectCommand.Parameters
("@TxtSubscr").Value = TxtSubscr.Text
DS = new DataSet()
MyCommand.Fill(DS, "Results")
DataGrid1.DataSource=DS.Tables("Results").DefaultView
DataGrid1.DataBind()
TxtLast.Text =""
TxtFirst.Text =""
TxtSubscr.Text =""
myconnection.Close()
End Sub
Sub DataGrid1_PageChanger(sender As Object, e As
DataGridPageChangedEventArgs)
DataGrid1.CurrentPageIndex = E.NewPageIndex
' Set the CurrentPageIndex before binding the grid
BindData()
End Sub
I have created a Database Lookup program for users to
search the SQL Database for specific records. The program
uses a SQL Stored Procedure with variables that the user
plugs in. After the values are plugged in, they then
click a button to submit their query. I have searched
numerous articles on default paging, but I have only
found articles that run a query with in the code with
standard values and not variables. This is easy, since
the Databind Method is called from the Page_Load method
and an event handler handles the paging. I have fooled
around with trying to get the paging correct using the
paramaterized Stored Procedure but have had no luck at
all. The program works fine with no paging. I am copying
the program here to look at. Would appreciate any kind of
help that anybody can give.
Thanks........
Sub Page_Load(Sender As Object, e As EventArgs)
IF Not Page.IsPostback Then
State.Items.Add ("")
State.Items.Add ("AL")
State.Items.Add ("AK")
State.Items.Add ("AZ")
State.Items.Add ("AR")
State.Items.Add ("CA")
State.Items.Add ("CO")
State.Items.Add ("CT")
State.Items.Add ("DC")
State.Items.Add ("DE")
State.Items.Add ("FL")
State.Items.Add ("GA")
State.Items.Add ("HI")
State.Items.Add ("ID")
State.Items.Add ("IL")
State.Items.Add ("IN")
State.Items.Add ("IA")
State.Items.Add ("KS")
State.Items.Add ("KY")
State.Items.Add ("LA")
State.Items.Add ("ME")
State.Items.Add ("MA")
State.Items.Add ("MD")
State.Items.Add ("MI")
State.Items.Add ("MN")
State.Items.Add ("MO")
State.Items.Add ("MS")
State.Items.Add ("MT")
State.Items.Add ("NE")
State.Items.Add ("NV")
State.Items.Add ("NH")
State.Items.Add ("NJ")
State.Items.Add ("NM")
State.Items.Add ("NY")
State.Items.Add ("NC")
State.Items.Add ("ND")
State.Items.Add ("OH")
State.Items.Add ("OK")
State.Items.Add ("OR")
State.Items.Add ("PA")
State.Items.Add ("RI")
State.Items.Add ("SC")
State.Items.Add ("SD")
State.Items.Add ("TN")
State.Items.Add ("TX")
State.Items.Add ("UT")
State.Items.Add ("VT")
State.Items.Add ("VA")
State.Items.Add ("WA")
State.Items.Add ("WV")
State.Items.Add ("WI")
State.Items.Add ("WY")
End If
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
BindData()
End Sub
Sub BindData
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection
("server='(local)'; user id='sa'; password='fritz';
database='Cutis'")
MyCommand = New SqlDataAdapter("EMSLKUPS",
MyConnection)
MyCommand.SelectCommand.CommandType =
CommandType.StoredProcedure
MyCommand.SelectCommand.Parameters.Add(New
SqlParameter("@TxtFirst", SqlDbType.NVarChar, 1))
MyCommand.SelectCommand.Parameters
("@TxtFirst").Value = TxtFirst.Text
MyCommand.SelectCommand.Parameters.Add(New
SqlParameter("@TxtLast", SqlDbType.NVarChar, 6))
MyCommand.SelectCommand.Parameters
("@TxtLast").Value = TxtLast.Text
MyCommand.SelectCommand.Parameters.Add(New
SqlParameter("@TxtState", SqlDbType.NVarChar, 2))
MyCommand.SelectCommand.Parameters
("@TxtState").Value = State.SelectedValue
MyCommand.SelectCommand.Parameters.Add(New
SqlParameter("@TxtSubscr", SqlDbType.NVarChar, 10))
MyCommand.SelectCommand.Parameters
("@TxtSubscr").Value = TxtSubscr.Text
DS = new DataSet()
MyCommand.Fill(DS, "Results")
DataGrid1.DataSource=DS.Tables("Results").DefaultView
DataGrid1.DataBind()
TxtLast.Text =""
TxtFirst.Text =""
TxtSubscr.Text =""
myconnection.Close()
End Sub
Sub DataGrid1_PageChanger(sender As Object, e As
DataGridPageChangedEventArgs)
DataGrid1.CurrentPageIndex = E.NewPageIndex
' Set the CurrentPageIndex before binding the grid
BindData()
End Sub