2,507
社区成员




if ConnectDB then
begin
try
Connect_db.BeginTrans;
try
with tempUpdateQuery do
begin
Close;
SQL.Clear;
SQL.Add(vSQL);
ExecSQL;
end;
Connect_db.CommitTrans;
except
on e:Exception do
begin
OutMsg :='执行语句错误:' + E.Message;
Connect_db.RollbackTrans;
end;
end;
finally
stopdb;
end;
end;