用ado+来删除数据
类别: ASP.NET教程 
<%@ Import Namespace=\"System.Data.SQL\" %>
<html>
<script language=\"VB\" runat=\"server\">
Dim MyConnection As SQLConnection
Sub Page_Load(Src As Object, E As EventArgs)
MyConnection = New SQLConnection(\"server=YOUR-SERVER;uid=joeuser;pwd=joeuser;database=pubs\")
If Not (IsPostBack)
BindGrid()
End If
End Sub
Sub MyDataGrid_Delete(Sender As Object, E As DataGridCommandEventArgs)
Dim MyCommand As SQLCommand
Dim DeleteCmd As String = \"DELETE from Authors where au_id = @Id\"
MyCommand = New SQLCommand(DeleteCmd, MyConnection)
MyCommand.Parameters.Add(New SQLParameter(\"@Id\", SQLDataType.VarChar, 11))
MyCommand.Parameters(\"@Id\").Value = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))
MyCommand.ActiveConnection.Open()
Try
MyCommand.ExecuteNonQuery()
Message.InnerHtml = \"<b>Record Deleted</b><br>\" & DeleteCmd
Catch Exp As SQLException
Message.InnerHtml = \"ERROR: Could not delete record\"
Message.Style(\"color\") = \"red\"
End Try
MyCommand.ActiveConnection.Close()
BindGrid()
End Sub
Sub BindGrid()
Dim DS As DataSet
Dim MyCommand As SQLDataSetCommand
MyCommand = New SQLDataSetCommand(\"select * from Authors\", MyConnection)
DS = new DataSet()
MyCommand.FillDataSet(DS, \"Authors\")
MyDataGrid.DataSource=DS.Tables(\"Authors\").DefaultView
MyDataGrid.DataBind()
End Sub
</script>
<body style=\"font: 10pt verdana\">
<form runat=\"server\">
<h3><font face=\"Verdana\">Deleting a Row of Data</font></h3>
<span id=\"Message\" MaintainState=\"false\" style=\"font: arial 11pt;\" runat=\"server\"/><p>
<ASP:DataGrid id=\"MyDataGrid\" runat=\"server\"
Width=\"800\"
BackColor=\"#ccccff\"
BorderColor=\"black\"
ShowFooter=\"false\"
CellPadding=3
CellSpacing=\"0\"
Font-Name=\"Verdana\"
Font-Size=\"8pt\"
HeaderStyle-BackColor=\"#aaaadd\"
DataKeyField=\"au_id\"
OnDeleteCommand=\"MyDataGrid_Delete\"
>
<property name=\"Columns\">
<asp:ButtonColumn Text=\"Delete Author\" CommandName=\"Delete\"/>
</property>
</ASP:DataGrid>
</form>
</body>
</html>
- 上一篇: 如何使用C#访问POP3服务器
- 下一篇: CLR 调试接口的架构与应用 [2] 调试框架
