数据库删除不了记录？？？

gdstcqs 2009-04-05 02:34:40

怎么删除不了啊？高手指点
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form id="form1" enctype="multipart/form-data" runat="server">
<asp:Label ID="la" runat ="server" text="删除 "/>
<asp:DataList runat ="server" ID="mydatalist" CellPadding ="3" HorizontalAlign ="center"
RepeatColumns="4" RepeatDirection="Horizontal" DataKeyField ="imageid">
<ItemTemplate >
<asp:Table ID="Table1" runat ="server" ><asp:TableRow ID="TableRow1" runat ="server" HorizontalAlign ="left" >
<asp:TableCell ID="TableCell1" runat ="server" ><asp:Image ID="imageHot" Width ="150" runat="server" ImageUrl =<%#DataBinder.Eval(Container.DataItem,"image")%> /><br /></asp:TableCell>
<asp:TableCell ID="TableCell2" runat ="server" > <div align="center"><%#Container.DataItem("text") %><br /></div></asp:TableCell>
<asp:TableCell ID="TableCell3" runat ="server" > <asp:LinkButton runat ="server" CommandName="delete" Text ="删除" /></asp:TableCell>
</asp:TableRow></asp:Table>
</ItemTemplate>
</asp:DataList>
</form>
</body>
</html>
<%@ import namespace="system.io"%>
<%@ import namespace="system.data"%>
<%@ import namespace="system.data.splclient"%>
<script language="vb" runat="server">
Function createdataset(ByVal strsql As String, ByVal filename As String, ByVal tablename As String) As DataSet
Dim connstring As String = "server=song;uid=sa;pwd=;database=xiaoshou"
Dim objcmd As New SqlClient.SqlDataAdapter(strsql, connstring)
Dim ds As New DataSet()
objcmd.Fill(ds, tablename)
createdataset = ds
End Function
Sub bindlist()
Dim strsql As String = "select * from image"
mydatalist.DataSource = createdataset(strsql, "xiaoshou", "image")
mydatalist.DataMember = "image"
mydatalist.DataBind()
End Sub
Sub page_load(ByVal sender As Object, ByVal e As EventArgs)
If Not IsPostBack Then bindlist()
End Sub
Sub executesql(ByVal strsql As String)
Dim objconn As New SqlClient.SqlConnection()
objconn.ConnectionString = "server=song;uid=sa;pwd=;database=xiaoshou"
objconn.Open()
Dim objcmd As New SqlClient.SqlCommand(strsql, objconn)
objcmd.ExecuteNonQuery ()
End Sub
Sub datalist_deletecommand(ByVal sender As Object, ByVal e As DataListCommandEventArgs)
Dim strsql As String = "delete from image where " & mydatalist.DataKeyField & "=" & mydatalist.DataKeys(e.Item.ItemIndex)
executesql(strsql)
mydatalist.EditItemIndex = -1
mydatalist.DataBind()
la.Text = "删除成功"
End Sub
</script>

...全文

136 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

nesto 2009-04-05

打赏
举报

就是啊把sql语句拷贝到sql server 中验证一下就好了啊

ChargeForward 2009-04-05

打赏
举报

VB哦帮顶

wuyq11 2009-04-05

打赏
举报

调式跟踪看看SQL语句是否正确和执行

gdstcqs 2009-04-05

打赏
举报

顶下

WizardWu 2009-04-05

打赏
举报

open "SQL Server Profiler" tool to monitor your program executing,
after that, copy the SQL statement from "Profiler" tool screen,
and paste back to SQL Server to execute the SQL statement,
and see if the SQL statement could run correctly in the "SQL Server Management Studio" tool.

KK3K2005 2009-04-05

打赏
举报

Dim strsql As String = "delete from image where " & mydatalist.DataKeyField & "=" & mydatalist.DataKeys(e.Item.ItemIndex)

吧 strsql的字符串内容打印出来直接在SQL查询中执行

不就知道原因了

gdstcqs 2009-04-05