作者goodfreind (rita)
看板Visual_Basic
標題[ASP.NET] 核取方塊的查詢
時間Thu Dec 29 17:44:29 2005
請問大大們~~
這個是用ASP.NET寫的…
要如何才能可以選取多棟大樓，
之後可以把資料表列出來..
以下是程式碼：
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<HTML>
<BODY BgColor="#FFFFFF">
<H2>選擇您想查詢的大樓<HR></H2>
<Form runat="server">
<asp:DataGrid runat="server" id="MyGrid"
HeaderStyle-BackColor="#9FB6CD"
AlternatingItemStyle-BackColor="#FFE1FF"
BorderColor="Black"
CellPadding="5"
CellSpacing="0" />
<p>
<asp:CheckBoxList runat="server" id="City">
<asp:ListItem>行政樓</asp:ListItem>
<asp:ListItem>資訊樓</asp:ListItem>
<asp:ListItem>中正樓</asp:ListItem>
<asp:ListItem>昌明樓</asp:ListItem>
</asp:CheckBoxList>
<p>
<asp:Button runat="server" Text="選擇" OnClick="Button_Click"/><p>
<HR><p>
<asp:Label runat="server" id="Msg" />
</Form>
</BODY>
</HTML>
<script Language="VB" runat="server">
Sub Button_Click(sender As Object, e As EventArgs)
Dim I as Integer
For I =0 To City.Items.Count -1
If City.Items(I).Selected Then
Msg.Text &= City.Items(I).Text
End If
Next
Dim Conn As OleDbConnection ' 宣告一個 Connection 物件
Dim Adpt As OleDbDataAdapter ' 宣告一個 DataAdapter 物件
Dim Ds As DataSet ' 宣告一個 DataSet 物件
Dim SQL as String
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=" & Server.MapPath( "G50.mdb" )
Conn = New OleDbConnection( Provider & ";" & DataBase )
Conn.Open()
' DataAdapter 物件開啟「eapplytable」資料表
For I =0 To City.Items.Count -1
If City.Items(0).Selected Then
SQL="Select Form_No as 編號,identify as 學號,
apply_time as 申請日期,place_name as 修繕地點,
place_code as 修繕教室／辦公室,condition as 修繕項目
from Eapplytable where place_name= '行政樓' "
Msg.Text &=City.Items(I).Text
End If
If City.Items(1).Selected Then
SQL="Select Form_No as 編號,identify as 學號,
apply_time as 申請日期,place_name as 修繕地點,
place_code as 修繕教室／辦公室,condition as 修繕項目
from Eapplytable where place_name= '資訊樓' "
Msg.Text &=City.Items(I).Text
End IF
If City.Items(2).Selected Then
SQL="Select Form_No as 編號,identify as 學號,
apply_time as 申請日期,place_name as 修繕地點,
place_code as 修繕教室／辦公室,condition as 修繕項目
from Eapplytable where place_name= '中正樓' "
Msg.Text &=City.Items(I).Text
End If
If City.Items(3).Selected Then
SQL="Select Form_No as 編號,identify as 學號,
apply_time as 申請日期,place_name as 修繕地點,
place_code as 修繕教室／辦公室,condition as 修繕項目
from Eapplytable where place_name= '昌明樓' "
Msg.Text &=City.Items(I).Text
End If
Next
Adpt = New OleDbDataAdapter( SQL, Conn )
Ds = New Dataset()
Adpt.Fill(Ds, "Eapplytable")
' DataGrid控制元件顯示「產品種類」資料表
MyGrid.DataSource = Ds.Tables( "Eapplytable" ).DefaultView
MyGrid.DataBind()
Conn.Close()
End Sub
</script>
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.17.135.207