asp.net编程时出现错误就是找不出????
txtsitename.Text & "',URL='" & txturl.Text & "',intro='" & txtintro.Text & "',grade=" & CInt(txtgrade.Text) & ",submit_date=#" & Now() & "# Where link_id=" & MyDataGrid.DataKeys(CInt(e.Item.ItemIndex))Dim cmd As New OleDbCommand(strsql, conn)
Dim exp As Exception
Try
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
Catch exp
message.text = "发生错误,没有正常更新记录"
End Try
mydatagrid.edititemindex = -1
Call binddata()
End Sub
'单击删除时执行该事件过程
Sub mydatagrid_delete(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Dim strsql As String
strsql = "delete from link where link_id=" & mydatagrid.DataKeys(CInt(e.Item.ItemIndex))
Dim cmd As New OleDbCommand(strsql, conn)
Dim exp As Exception
Try
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
Catch exp
message.text = "发生错误,没有正常删除记录"
End Try
'重新绑定
mydatagrid.EditItemIndex = -1
Call binddata()
End Sub
'数据绑定子程序,供其它过程调用
Sub binddata()
'直接建立dataadapter
Dim adp As New OleDbDataAdapter("select * from link order by submit_date DESC", conn)
Dim ds As New DataSet()
adp.Fill(ds, "link")
mydatagrid.datasource = ds.Tables
("link").DefaultView
mydatagrid.databind()
End Sub
</script>
<html>
<body>
<h4 align="center">网络导航</h4>
<center>
<a href="add.aspx">插入记录</a>
<form id="Form1" runat="server">
<ASP:DataGrid id="MyDataGrid" Width="95%" HeaderStyle-BackColor="#aaaadd" OnEditCommand="MyDataGrid_Edit" OnCancelCommand="MyDataGrid_Cancel" OnUpdateCommand="MyDataGrid_Update" OnDeleteCommand="MyDataGrid_Delete" DataKeyField="link_id" runat="server">
<Columns>
<asp:EditCommandColumn EditText="编辑" CancelText="取消" UpdateText="更新" ItemStyle-Wrap="false"/>
<asp:ButtonColumn Text="删除" Comm
