1,978
社区成员
发帖
与我相关
我的任务
分享请大家帮忙看看，为什么会出错
<script language="VB" runat="server">
sub page_load(Src As Object, E As EventArgs)
Dim conn as OledbConnection
Dim connstr as string
Dim objinsertcmd as OledbCommand
Dim objinsert as string
connstr=System.Configuration.ConfigurationSettings.AppSettings("数据库")
conn=New OledbConnection(connstr)
objinsert="Delete From book_3 Where id_3=@id"
objinsertcmd.parameters.add(New OleDbParameter("@id", OleDbType.Char))objinsertcmd.parameters.item("@id").value=request.querystring("del_id")
conn.open()
objinsertcmd.ExecuteNonQuery()
conn.close()
end sub
</script>
sub page_load(Src As Object, E As EventArgs)
Dim conn as OledbConnection
Dim connstr as string
Dim objinsertcmd as OledbCommand
Dim objinsert as string
connstr=System.Configuration.ConfigurationSettings.AppSettings("数据库")
conn=New OledbConnection(connstr)
objinsert="Delete From book_3 Where id_3=@id"
objinsertcmd.parameters.add(New OleDbParameter("@id", OleDbType.Char))objinsertcmd.parameters.item("@id").value=request.querystring("del_id")
conn.open()
objinsertcmd.ExecuteNonQuery()
conn.close()
end sub
</script>
...全文
请发表友善的回复…
发表回复
名剑传奇 2002-10-06
- 打赏
- 举报
上面的仁兄说的可以试试看，然后不知道您在写数据库应用的时候是否有
Import System.Data 和Import System.Data.OleDb
Import System.Data 和Import System.Data.OleDb
dotAge 2002-10-05
- 打赏
- 举报
objinsertcmd.commandText=objinsert
objinsertcmd.commandType=CommandType.Text
objinsertcmd.commandType=CommandType.Text
Catter 2002-10-05
- 打赏
- 举报
objinsertcmd.parameters("@id").value=request.querystring("del_id")
yarshray 2002-10-01
- 打赏
- 举报
connstr自己写试试!
