如何判断update操作已经成功？？(100分)

Z

zjzhizhi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #1

大家好：
程序中用到，update biao1 set ziduan3='1' where ziduan1=t1;
我想知道UPDATE操作是否成功了，
if 成功 操作一
else
操作二
有什么办法判断UPDATE操作是否成功了呢？？？？

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #2

with Query do
begin
Active := False;
SQL.Clear;
SQL.Text := ....;
try
ExecSQL;
except
// 不成功！
end;
end;

 

S

sandco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #3

在Execp里，如何判断失败的原因呢？
比如取得并显示错误代码？
请指教！

 

风

风中流云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #4

最通用的函数。。。
function sucess:boolean;
var
query:tquery;
begin
with tquery.create(nil) do
begin
try
databasename:=database1.databasename;
close;
sql.text:='update..............';
execsql;
result:=true;
except
result:=false;
end;
end;
end;
调用。。if sucess(成功）
　　else （不成功）;

 

C

Celestial dog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #5

我倒！！
好不容易写完，没想道还有更快的～～～

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #6

来晚啦

 

C

Celestial dog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #7

做一个boolean型函数
function updatesql(sqltext):boolean;
begin
with Query do
begin
Active := False;
SQL.Clear;
SQL.Text := sqltext;
try
ExecSQL;
result:=true;
except
result:=false;
end;
end;

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #8

用事务处理呀

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #9

上面提到的“失败”是指出错了
不知道，如果本来没这个记录，update了0个记录，这个不是出错，但是是否在你的
“失败”之内？如果你要判断更新了几条记录，用TQuery.RowsAffected

 

H

hwchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-23

• #10

if @@rowcount=0
begin

else


end

 

Z

zjzhizhi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #11

基于“更快、更好、更完整”的给分原则！
只能心里感谢大部分富翁们了。