我现在写一个删除帖子的程序,执行时没有出现语法错误,但不能删除帖子。大家注意看在DataGrid的
onDeleteCommand事件明明写的是“DeleteCommand”却不能触发“DeleteCommand”函数。谢谢!
复制内容到剪贴板
代码:
<%@ import NameSpace="system.data" %>
<%@ import NameSpace="system.data.oledb" %>
<script language="vb" runat="server">
sub page_load(source as object,E as EventArgs)
dim myConnection as OleDbConnection
dim myCommand as OleDbCommand
dim DbName as string
DbName=server.mappath("user.mdb")
myConnection=New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & DbName)
myConnection.open
myCommand=New OleDbCommand("select bbsid,name,subject,content,fbbsid,ontime from bbs" ,myConnection)
UserGrid.DataSource=myCommand.executereader()
UserGrid.DataBind()
UserGrid.DataKeyField="bbsid"
myCommand=nothing
myConnection.close
myConnection=nothing
end sub
sub DeleteCommand(sender as object,E as DataGridCommandEventArgs)
dim myConnection as OleDbConnection
dim myCommand as OleDbCommand
dim DbName as string
dim id
DbName=server.mappath("user.mdb")
myConnection=New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & DbName)
myConnection.open
ts.text="sb"
id=UserGrid.Datakeys.item(e.item.itemindex)
myCommand=New OleDbCommand("delete from bbs where bbsid='"+id+"'" ,myConnection)
myCommand.executenonquery
UserGrid.DataBind()
myCommand=nothing
myConnection.close
myConnection=nothing
end sub
</script>
<html>
<body>
<form runat="server" >
<asp:DataGrid ID="UserGrid" runat="server"
AutoGenerateColumns="false"
Width="100%"
Font-size="10pt"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
OnDeleteCommand="DeleteCommand"
DataKeyField="bbsid"
>
<columns>
<asp:BoundColumn DataField="bbsid" HeaderText="序号" />
<asp:BoundColumn DataField="name" HeaderText="作者" />
<asp:BoundColumn DataField="subject" HeaderText="主题" />
<asp:BoundColumn DataField="content" HeaderText="内容" />
<asp:BoundColumn DataField="fbbsid" HeaderText="跟帖号" />
<asp:BoundColumn DataField="ontime" HeaderText="发表时间" />
<asp:buttoncolumn headertext="操作" visible="true" buttontype="pushbutton" text="删除" commandname="delete" />
</columns>
</asp:DataGrid>
<asp:Label id="ts" Runat="server" />
</form>
</body>
</html>