作者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