try
fDataLib.DataBase1.StartTransaction
여러개의 Query 수정, 추가문
fDataLib.DataBase1.Commit;
eMjcd.SetFocus;
Except
Screen.Cursors[crDefault];
Application.ProcessMessages;
fDataLib.DataBase1.RollBack;
ShowMsg[0] := '자료처리 오류....';
ShowMessage(0);
Exit;
end;
NT4, SQL 7.0, Delphi3.0
이런 환경에서 작업을 하는데 가끔가다 RollBack이 되면서
어떤건 Commit이 되고 어떤건 RollBack이 되고
다시 에러난 데이타를 돌리면 또 정상처리되고...
미치겠어요..
소스를 원하시면 드릴께요..
소스가 워낙에 길다보니
이곳에 올리는데는 무리가 있어서요...
급하거든요... 제발 .
> try
> fDataLib.DataBase1.StartTransaction
>
>
> 여러개의 Query 수정, 추가문
>
>
> fDataLib.DataBase1.Commit;
> eMjcd.SetFocus;
> Except
> Screen.Cursors[crDefault];
> Application.ProcessMessages;
> fDataLib.DataBase1.RollBack;
> ShowMsg[0] := '자료처리 오류....';
> ShowMessage(0);
> Exit;
> end;
예전에 비슷한 경험을 했었죠..
우선 Commit되기 전의 여러개의 Query처리시
Query.Close;
Sql := 'Select...';
Query1.Open;
등의 문이 있나요? 제경운 열었던 쿼리를 모두 닫아 주었더니 되더군요..
그럼 즐거운 하루되세요..