各位大大，又有事要麻烦各位了： 我有如下sql server的code： if (select sum(价格)from a公司)>110 print '大于110元' else print '小于110元' 在sql中运行正常，但我把它用到delphi中时（如下）就不能显示print部分的提示了，请教该如何修改？ adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('if (select sum(价格)from a公司)>110); adoquery1.sql.add('print ' '''' '大于110元' ''''); adoquery1.sql.add('else'); adoquery1.sql.add('print ' '''' '小于110元' ''''); adoquery1.execsql; adoquery1.close; adoquery1.sql.clear; Thank you very much!

想法如下 希望對你有幫助     adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('select sum(价格) total from a公司'); adoquery1.open; if adoquery1.fieldbyName('total').asInteger>110 then  showmeessage('大於110元') else  showmeessage('小於110元');    ~悠遊法國號~

引言: 想法如下 希望對你有幫助 adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('select sum(价格) total from a公司'); adoquery1.open; if adoquery1.fieldbyName('total').asInteger>110 then showmeessage('大於110元') else showmeessage('小於110元'); ~悠遊法國號~

实在对不起，我刚才的code 有误，应加上事务功能，再求教各位大大： begin tran update a公司 set 价格=价格*2 if (select sum(价格)from a公司)>110 print '大于110元' else print '小于110元' if @@error>0 rollback tran else commit tran delphi code如下： adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('update a公司'); adoquery1.sql.add('set 价格=价格*2'); adoquery1.sql.add('if (select sum(价格)from a公司)>110); adoquery1.sql.add('print ' '''' '大于110元' ''''); adoquery1.sql.add('else'); adoquery1.sql.add('print ' '''' '小于110元' ''''); adoquery1.sql.add('if @@error>0'); adoquery1.sql.add('rollback tran'); adoquery1.sql.add('else'); adoquery1.sql.add('commit tran'); adoquery1.execsql;

HI, 這樣的話, 建議你將 print 改為 select , 做為回傳的結果, 如:    

if xx then
  select 'ok' as result
else
  select 'fail' as result

然後在 delphi 的 code 中, 使用 ADOQuery1.Open, 帶回回傳的結果集, 再利用 ADOQuery1.FieldByName('result').AsString 來作判斷! 發表人 - timhuang 於 2004/04/09 18:18:33

luowy651 你好: SQL之"raiserror" 指令, 可將 Message Raise 到前端, 不過依你的需求, 好像不太恰當, 因為不是 Error. 姑且參考看看吧. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47865

谢谢Mickey兄，姑且把raiserror作为一个加强型的print吧，方法很简单，缺点是前端会除显示内容外，还会显示一个error图标，还有前端该message框上的caption中show出的form名称是Application.title,不能修改，不知有否改变的方法。 timhuang大大的方法也是可行的。只是小弟分数不够了。 再次谢谢以上各位大大的回应，小弟不胜感谢！ 發表人 - luowy651 於 2004/04/11 11:04:11 發表人 - luowy651 於 2004/04/11 11:08:03

如果不想交給 Exception 去 raise Message, 可以用 try...except 例如: try // Exec SQL except on E:Exception do showmessage(E.Message); end;