作者redming (无尘室游魂)
看板Visual_Basic
标题[ASP ]请教 On Error Resume Next
时间Thu Jul 16 17:22:46 2009
不好意思 请教两个问题
问题一.想请问 On Error Resume Next 这个东西要在怎样的情况下使用
是看到某些错误吗?还是?? 书上范例有些有加有些却不用 搞不太懂@@
问题二.以下是某段程式码 用途是 可以输入SQL叙述去对ACCESS资料库做处理
这段是从某书中某个范例中引用的 他也有用 OnErr....这个
但是我再跑的时候 发现下面蓝色字那边的判断根本就有问题
都不可能跑出来 SQL 叙述执行成功(不过实际上有对资料库动作)
我是没跑过书中所附的档 所以不晓得是他这样写法是错的 还是我漏掉啥
书中主要是用SQL SERVER 2000 我是用 access...该不会是因为这个
如果是 那我该怎麽改才能判断SQL是否执行正确
谢谢~
= = = = =
<%
On Error Resume Next
if Not IsEmpty(Resquest.Form) then
SQL_Command=Request("SQL_statement") 'SQL_statement就是SQL叙述
SQL_Command=LTrim(SQL_Command) '将左边空白去除
'---取出SQL_Command左边6个字母并转换成大写
Action_SQL=Ucase(Left(SQL_Command,6))
if Action_SQL="INSERT" or Action_SQL="DELETE" or Action_SQL="UPDATE" then
Session("CmdObj").CommandText=SQL_Command
'---执行Action Query类型的SQL叙述
Session("CmdObj").Execute
if
Err.Number =0 then
Response.Write "SQL 叙述执行成功"
else
Response.Write "<Font Size=4 color=Red> SQL 叙述执行失败</Font><br>"
Response.Write "原因：" & Err.description & Err.Number
end if
else
'---执行SQL叙述,并取得回传的记录集
set Session("RS") = Session("DBC").Execute(SQL_Command)
if Err.Number<>0 then
Response.Write "<br>" & Err.description
else
'---以下为显示资料的程式
Display_RecordSet(Session("RS"))
end if
end if
else Response.Write "fail"
end if
%>
= = = = = = == = =
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.117.157.18
1F：→ redming:问题二已解决...在要执行绪数前一行+ Err.Clear() 07/16 17:30
2F：→ redming: 叙述 07/16 17:31