db2.StartTransaction;
try
with query2 do begin
close;
sql.clear;
sql.add(' insert into log_history VALUES ( ');
sql.add(' '''+fromyyyyMM+''','''',''1'' ');
sql.add(' )' );
execsql;
end;
except on E1:EDBEngineError do
begin
db2.rollback;
Exit;
end;
end; // try ~
db2.commit;
에서
데이타베이스에 입력이 안되어서 에러 발생시
except on E1:EDBEngineError do
begin
db2.rollback;
Exit;
end;
부분으로 넘어갈텐데요, 어떤 오류 메세지가
발생하는지 알기위해서 오류메세지를 문자로
받아오려고 합니다.
어떤식으로 하면 오류메세지를 가져올수 있는지 알려주세요
감사합니다.
STR : String; //스트링변수를 먼저 선언하고... 다음과 같이 바꿔주시면
//에러메세지를 잡아올것 같은데...저두 테스트는 안해봐서..^^..
//원하시는 답변이 되었으면 좋겠군요
try
//어쩌고 저쩌고...코딩이 들어가는 부분
except on E: Exception do begin
STR := E.Message;
db2.rollback;
Exit;
end;