Question

为什么delphi中执行存储过程遇到错误就不能返回数据呢？而在查询分析器就可以

举例说明：
table: t_test, 只有一个字段，并做了唯一索引
sql的存储过程是：
insert into t_test values('adfadf')
select @@error

执行第一次没有问题，返回了0，执行第二次时出错，关键索引冲突，但如果这个过程在查询分析器中执行，出错后能返回@@error值，而delphi中执行出错后adoquery.active就始终是false，也就是不能取得@@error，因为存储过程中出错是在预料中的，所以出错的语句本身不存在问题，这应该怎么处理呢?
我直接怀疑是什么人推荐的或者是有什么功能推荐的，明白答案和我的问题都不相干，居然也推荐了，不只这一个，其它很多问题都是这样

Answer 1

你是不是设置了主键啊 主键重复了吧，你可以SELECT 看下你插入的数据是不是有重复，而且插入的值为主键

追问

麻烦你看清楚，是我故意出错的，我要的是在出错后能以select的方式返回我要的数据

Answer 2

方法1
在存储过程里使用Try语句。
方法2
用TADOStoredProc，SQL语句使用Out参数返回错误代码 如：RETURN @@error

Delphi绝对能解决你的问题，不明白的hi我。

追问

sql2000 里我试了try，好像不认begin try end try begin catch end catch
我这里的问题是返回@@error，但这只是我举的一个例子，实际上我是要返回一个表，所以我认为必需要用select返回，不知道在存储过程里是不是可以不理会出错的信息，也就是在delphi里看不到这个过程的错误，最多是没有返回记录

Answer 3

用异常处理。
Try
......
except
on 错误类型
do 返回错误时，你想进行的操作，比如返回数据、异常信息等。

end;

追问

不对，这是adoquery.active是false，没办法做任何处理，我需要在存储过程中一次完成这些操作

追答

那就简单了。
先是你的语句
ADOQuery1.Open;
然后再测试ADOQuery1.Active：
if not ADOQuery1.Active then ......你需要的操作在这儿写

追问

先谢谢你，但是请您看清楚，这是存储过程，我需要存储过程中执行完这些操作

追答

建议你不要用TADOQuery，而是用TSQLStoredProc试试。
这个元件是专门用来执行服务器上的存储过程的。
这样，你就可以使用存储过程的各种参数（输入参数、输出参数、输入/输出参数、状态参数）了。

追问

结果一样，只不过sqlstoredproc返回的是被影响的行数，而不是我要的数据本身，更不行了

追答

你的存储过程提供这个功能 吗？
如果不能，你就需要修改存储过程，或者使用我给你的上述变通办法。

追问

麻烦你也看清楚，我的存储过程在查询分析器里是可用的，也就是你说的有这个功能，如果用你说的变通的办法你能返回@@errer值吗