我是流氓我怕谁?——不想当流氓(200分)

  • 主题发起人 主题发起人 CJ
  • 开始时间 开始时间
C

CJ

Unregistered / Unconfirmed
GUEST, unregistred user!
我是流氓我怕谁?看以下代码:
procedure TPlotManageForm.AQPlotInfoDeleteError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
……
begin
Action := daAbort;
with AQPlotInfo do
begin
Cancel;
Close;
Open;
end;
end;
……
end;
这是没办法的办法,我在用TADOQuery,TADOTable直接对Microsoft SQL
Server 7.0进行操作时(主要是删除和增加,所以类似代码也出现在
onposterror中),经常遇到无法找到指定行,可能被另一用户修改的
错误,可事实上我只是一个人在开发,不存在其它用户修改,没有用什
么线程,甚至同时只有一个ADO构件在对数据库进行操作。最后,我想
出了以上流氓方法,数据该保存的保存,该删除的删除。实在不想当流氓
诸位帮忙吧。

顺便问:ADO 的 Batch Update 怎么做?Locktype改了以后,再怎么做?
 
你怕警察!!
对不起,不懂C/S
:=(
 
哈哈,这种流氓办法你也想得出?哈哈~~~~~~~!!
 
可以定义cursor或bookmark之类的东西吗?

 
Waa!!!!!!!!!
高难度!!!!!!!!
 
4.13:如果post/delete出错后不能,但是可以在post/delete前先保存书签
打开后gotobookmark,可我晕呀"(

另:cursortype为server则出错。
 
只要能解决管他什麽办法,交差保住工作要紧
 

1、检测错误:
下列代码将 EDBEngineError 对象的错误信息加到一个 TListBox 控件里:

var iCount:Integer;

Begin

try
{ Something }

except
{ Check what type of exception was generated }
on E:EDBEngineError do

{ Iterate through the Errors array }
for iCount := 0 to E.ErrorCount-1 do

{ Add the error text to the list box }
lbMsgs.Items.Add(E.Errors[iCount].Message;

end;

End;

2、试一下以排他方式打开:
Exclusive := True;

3、操作前后分别用:
DisableControl 和 EnableCoutrol.
 
多人接受答案了。
 
后退
顶部