데이타베이스는 인터베이스를5를 사용하고요, 파일을 SQL를 사용해서 불러들여 인터베이스로 저장하려고 하는데요, 파일의 필드값이 데이타타입과 맞지 않을경우 에러메세지가 나오잖아요. 그 에러메세지를 테이블에 저장하고 다시 나머지 파일을 계속해서 읽을려고 하는데, 초보인지라 방법을 몰라 이렇게 한자 적습니다. 꼭좀 부탁드리겠습니다....
최용일님, 하는데로 했는데요....
그래도 델피자체 에러메서지가 뜨는데요...
에러메세지창 닫고 바로 실행버튼을 다시 누르면 이어서 데이타를 읽는데요, 번번히 exception error 가 나올때마다 에러메세지창이 뜹니다.
어떻게 에러메세지창을 아예뜨지 못하게 할수 있는지요...
다음은 제 코드입니다...
With frmMain.IBUpdSQLLandingData do
Begin
InsertSql.Clear;
try
InsertSql.Add('Insert into LCB_Landing_Data (SEQNO,FLT_ID, ....
ExecSql(ukInsert);
except
on E: Exception do
begin
With frmMain.IBQryErrorReport do
Begin
Close;
Sql.Clear;
Sql.Add('Insert into LCB_Error_Report (FLT_ID,
DESCRIPTION) Values ('''+ MyRecordArray[0]
+''', '''+ E.Message +''')');
Open;
end;
end;
end;
end;
그래도 델피자체 에러메서지가 뜨는데요...
에러메세지창 닫고 바로 실행버튼을 다시 누르면 이어서 데이타를 읽는데요, 번번히 exception error 가 나올때마다 에러메세지창이 뜹니다.
어떻게 에러메세지창을 아예뜨지 못하게 할수 있는지요...
다음은 제 코드입니다...
With frmMain.IBUpdSQLLandingData do
Begin
InsertSql.Clear;
try
InsertSql.Add('Insert into LCB_Landing_Data (SEQNO,FLT_ID, ....
ExecSql(ukInsert);
except
on E: Exception do
begin
With frmMain.IBQryErrorReport do
Begin
Close;
Sql.Clear;
Sql.Add('Insert into LCB_Error_Report (FLT_ID,
DESCRIPTION) Values ('''+ MyRecordArray[0]
+''', '''+ E.Message +''')');
Open;
end;
end;
end;
end;