筛选啊
delete from table where field1='abc'
delete from table where field1='abc'
解决方案 »
- 做网络程序用哪种编程语言
- 怎么让表格宽固定
- <asp:Button ID="btnDelAll" runat=server Text="删除" OnClick="btnDelAll_Click" />
- CSDN太让我失望了!!今天下午发了10个相关的贴竟然没一个人回!!!
- 高分求解解决方案:一个没有想通的问题,要分者请进
- 找了几天,没找到,请问哪里有 xml 结合asp.net的实例.
- 寻求网页方面实用的技术书籍
- bin下头的问题`~~
- datagrid 应用
- 小弟新做了个网站,请大家测试一下搜索的速度如何,谢谢了!UP有分哦
- 安装了asp.net快速入门怎么不能用?
- IIS6+.net2002 无法创建 ASP.net Project
<%@Import NameSpace="System.Data" %>
<%@Import Namespace="System.Data.OleDb"%>
<script language="VB" runat="server">
Dim MyConnection As OleDbConnection
Dim String1 As String
Dim MyDataReader As OleDbDataReader
Dim MyCommand As OleDbCommand
Sub Page_Load(Sender As Object, E As EventArgs)
String1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&Server.MapPath("MyDataBase.MDB")
MyConnection=New OleDbConnection(String1)
MyCommand = New OleDbCommand("Select * from Salary",MyConnection)
MyCommand.Connection.Open()
MyDataReader=MyCommand.ExecuteReader()
Do while MyDataReader.Read()
if not page.IsPostBack then
MyDropDownList.Items.Add(MyDataReader.Item(0))
end If
Loop
End Sub
Sub Deletes(Sender As Object, E As EventArgs)
If not MyDropDownList.Items.Count=0 then
Dim DeleteCmd As String = "delete from salary where name=@name"
String1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "&Server.MapPath("MyDataBase.MDB")
MyConnection=New OleDbConnection(String1)
MyCommand = New OleDbCommand(DeleteCmd, MyConnection)
MyCommand.Parameters.Add(New OleDbParameter("@name", OleDbType.VarChar, 11))
MyCommand.Parameters("@Name").Value = MyDropDownList.SelectedItem.Value
MyCommand.Connection.Open()
MyCommand.ExecuteNonQuery()
MyCommand.Connection.Close()
End if
End Sub
</script>
<body>
<form runat="server">
<asp:Label id="Label1" runat="server"/>
<asp:DropDownList id=MyDropDownList runat="server"/>
<asp:Button id="MyButton" onClick="Deletes" text="确定" runat="server"/>
</form>
</body>
</html>
AspNetPager 免费分页控件4.2版发布,同时发布最新源代码,欢迎下载:http://www.webdiyer.com