Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = ""
If CheckBox1.Checked Then str = str & "&checkbox1=1"
If CheckBox2.Checked Then str = str & "&checkbox2=2"
If CheckBox3.Checked Then str = str & "&checkbox3=3"
If CheckBox4.Checked Then str = str & "&checkbox4=4"
If str = "" Then
Label1.Text = "Ничего не выбрано"
Else
Response.Redirect("./page2.aspx?" + str.Substring(1))
End If
End Sub
ASP.net->VB->base.mdb передача параметра на другую страницу
есть две страницы page1.aspx и page2.aspx
на странице page1.aspx лежит 4 чекбокса и кнопка
ну и код
теперь на странице page2.aspx
написал подключение к базе
А как теперь написать дальше,
допустим подконнектились мы к базе, далее
если в строке есть checkbox1=a, то выполняем запрос на вывод строки из таблицы "Tab1" и выводим результат (желательно в GridView)
если в строке есть checkbox2=b, то выполняем запрос и выводим вторую строку из "Tab1"
и т.д.
Суть вся в том что при выбранных чекбоксах, мы переходим на другую страницы и выводим соответствующие строчки из базы.
Help
на странице page1.aspx лежит 4 чекбокса и кнопка
ну и код
Код:
теперь на странице page2.aspx
написал подключение к базе
Код:
Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
Dim DBConn As OleDbConnection
'Dim DBCommand As OleDbDataAdapter
'Dim DSPageData As New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("BD.mdb;"))
Dim DBConn As OleDbConnection
'Dim DBCommand As OleDbDataAdapter
'Dim DSPageData As New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("BD.mdb;"))
А как теперь написать дальше,
допустим подконнектились мы к базе, далее
если в строке есть checkbox1=a, то выполняем запрос на вывод строки из таблицы "Tab1" и выводим результат (желательно в GridView)
если в строке есть checkbox2=b, то выполняем запрос и выводим вторую строку из "Tab1"
и т.д.
Суть вся в том что при выбранных чекбоксах, мы переходим на другую страницы и выводим соответствующие строчки из базы.
Help
После кода подключения к БД нужно получить состояния контролов на предыдущей странице page1.aspx. Для этого есть свойство PreviousPage у объекта типа Page.
Код:
[LEFT][FONT=Courier New]Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)
Dim DBConn As OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData As New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("BD.mdb;"))[/FONT]
[FONT=Courier New] Dim prev As Page = Me.PreviousPage[/FONT]
[FONT=Courier New] Dim cb1 As CheckBox = prev.Controls("checkbox1")[/FONT]
[FONT=Courier New] If cb1.Checked Then 'Do something[/FONT]
[FONT=Courier New]End Sub[/FONT][/LEFT]
Dim DBConn As OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData As New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("BD.mdb;"))[/FONT]
[FONT=Courier New] Dim prev As Page = Me.PreviousPage[/FONT]
[FONT=Courier New] Dim cb1 As CheckBox = prev.Controls("checkbox1")[/FONT]
[FONT=Courier New] If cb1.Checked Then 'Do something[/FONT]
[FONT=Courier New]End Sub[/FONT][/LEFT]
Спасибо!=)