快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

用ado+来删除数据

<%@ Import Namespace=\"System.Data\" %>
<%@ 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>


返回类别: 教程
上一教程: weblogin类--简介(一)
下一教程: ADO 与ADO.NET

您可以阅读与"用ado+来删除数据"相关的教程:
· ADO+ 引导数据种类的演变(转自 ms 一)
· 透过vs.net数据窗体向导看Ado.net
· ADO+ 引导数据种类的演变(转自 ms 二)
· asp+中是如何连接数据库ado+的
· 使用ADO.NET轻松操纵数据库
    微笑服务 优质保证 索取样品