📄 advquery1.aspx
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<script language="VB" runat="server">
Dim MyConnection As OleDbConnection
Dim String1 As String,TextBox1,TextBox2,TextBox3,TextBox4
Dim objConn As OleDbConnection
Dim objCmd As OleDbDataAdapter
Dim objDS As DataSet
Dim strSQL, strDSN As String
Function Get_DSN(bolSQL As Boolean) As String
'--- bolSQL: True for SQL Server, False for Access ---
If Not bolSQL Then 'Access
Get_DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& Server.MapPath("database.mdb")
Else 'SQL Server
Get_DSN = "Provider=SQLOLEDB.1;Data Source=Alvinnt;User ID=sa;" _
& "Password=;Initial Catalog=ASPNew;autotranslate=no;"
End If
End Function
Sub Show_Grid(Sender As Object, E as EventArgs)
Dim strAu As String
dim strb as string
dim strc as string
strDSN = Get_DSN(False)
'--- 创建OleDbConnection ---
objConn = New OleDbConnection(strDSN)
'--- 取出下拉列表框的点选项 ---
strAu =Trim(author.SelectedItem.Text)
strb=trim(branch.selecteditem.text)
strc=trim(class1.selecteditem.text)
strSQL = "select * from info where grade ='" & strAu & "' and branch='" & strb & "' and class='" & strc & "' order by id "
objCmd = New OleDbDataAdapter()
objCmd.TableMappings.Add("Table", "info")
objCmd.SelectCommand = New OleDbCommand(strSQL, objConn)
objDS = New DataSet("info")
objCmd.Fill(objDS)
mydatagrid.DataSource = objDS.Tables("info").DefaultView
mydatagrid.DataBind()
End Sub
Sub Page_Load(Sender As Object, E As EventArgs)
String1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(" DataBase.MDB")
MyConnection = New OleDbConnection(String1)
If Not Page.IsPostBack Then '第一次加载网页
'--- 定义SQL字符串 ---
strSQL = "select distinct grade from info"
'--- 使用Access数据库 ---
strDSN = Get_DSN(False)
'--- 创建OleDbConnection ---
objConn = New OleDbConnection(strDSN)
objCmd = New OleDbDataAdapter()
'--- new for oledb ---
objCmd.TableMappings.Add("Table", "grade")
objCmd.SelectCommand = New OleDbCommand(strSQL, objConn)
'--- 填入Dataset对象 ---
objDS = New DataSet("grade")
objCmd.Fill(objDS)
'--- 与DropDownList控件绑定 ---
author.DataSource = objDS.Tables("grade").DefaultView
author.DataBind()
end if
End Sub
Sub Edits(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = CInt(E.Item.ItemIndex)
BindGrid()
End Sub
Sub Cancels(Sender As Object, E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = -1
BindGrid()
End Sub
Sub Updates(Sender As Object, E As DataGridCommandEventArgs)
Dim DS As DataSet
Dim strNo As String
Dim MyCommand As OleDbCommand
strNo = mydataGrid.DataKeys.Item(E.Item.ItemIndex)
Dim UpdateCmd As String = "UPDATE info SET state = @state,teacher = @teacher where id='" & strNo & "' "
MyCommand = New OleDbCommand(UpdateCmd, MyConnection)
MyCommand.Parameters.Add(New OleDbParameter("@state", OleDbType.VarChar))
TextBox1=E.Item.Cells(7).Controls(0)
MyCommand.Parameters("@state").Value = TextBox1.Text
MyCommand.Parameters.Add(New OleDbParameter("@teacher", OleDbType.VarChar))
TextBox2=E.Item.Cells(12).Controls(0)
MyCommand.Parameters("@teacher").Value = TextBox2.Text
label1.Text=MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))
MyCommand.Connection.Open()
MyCommand.ExecuteNonQuery()
MyCommand.Connection.Close()
BindGrid()
End Sub
Sub BindGrid()
Dim MyDataSet As DataSet
Dim MyCommand As OleDbDataAdapter
MyCommand = new OleDbDataAdapter("select * from info", MyConnection)
MyDataSet = new DataSet()
MyCommand.Fill(MyDataSet, "info")
MyDataGrid.DataSource=MyDataSet
MyDataGrid.DataMember="info"
MyDataGrid.DataBind()
End Sub
</script>
<link href="css/class.css" type=text/css rel=stylesheet>
<body>
<link href="css/class.css" type=text/css rel=stylesheet>
<form runat="server">
<link href="css/class.css" type=text/css rel=stylesheet>
<center><FONT face="宋体" size="5" >致远工作室音像资料在线管理系统</FONT><br><br>
<center>
<table border="1">
<tr>
<td><font size=2>请选择查询年级：</font></td><td><asp:DropDownList id="author" runat="server"
DataValueField="grade" DataTextField="grade" /></td></tr><tr><td>
<font size=2> 请选择查询学科：</font></td><td><asp:DropDownList id="branch" runat="server" >
<asp:ListItem Text="语 文" />
<asp:ListItem Text="数 学" />
<asp:ListItem Text="英 语" />
<asp:ListItem Text="音 乐" />
<asp:ListItem Text="美 术" />
<asp:ListItem Text="科 学" />
<asp:ListItem Text="思 品" />
<asp:ListItem Text="综 合" />
</asp:DropDownList></td></tr>
<tr><td><font size=2>请选择查询介质：</font></td><td><asp:DropDownList id="class1" runat="server" >
<asp:ListItem Text="CD-ROM" />
<asp:ListItem Text="DVD-ROM" />
<asp:ListItem Text="VCD" />
<asp:ListItem Text="录象带" />
<asp:ListItem Text="投影片" />
<asp:ListItem Text="录音带" />
<asp:ListItem Text="挂 图" />
<asp:ListItem Text="其 他" />
</asp:DropDownList>
</td></tr>
<tr><td align="center"><font size=2><asp:Button id="btnSubmit" Text="点击查询" runat="server" onClick="Show_Grid" /></td></font><td><font size=2><a href="default.aspx">返回资源管理中心</a></td></font></tr>
</table><br>
<ASP:DataGrid id="MyDataGrid" runat="server" EditItemStyle-width="10" Width="720"
ItemStyle-Width="10" AlternatingItemStyle-width="10" HorizontalAlign="center" GridLines="Both"
HeaderStyle-BackColor="#FFc000" CellPadding="2" CellSpacing="1" Font-Size="4pt"
OnEditCommand="Edits" OnCancelCommand="Cancels" OnUpdateCommand="Updates" DataKeyField="id">
<Columns>
<asp:EditCommandColumn EditText="修改" CancelText="取消" UpdateText="确定" />
</Columns>
</ASP:DataGrid>
<asp:Label id="label1" runat="server"/>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -