┌────────────────┐ 프로그램 시작시, 테이블이 없으면,
│Table not exist. │ 옆과 같은 에러를 냅니다.
│File or directory does not exits│
│File:C:\Prj\db\mydb_11.db │ 이 메세지를 처리하기 위해,
│ [확인] │ 다음과 같이 했습니다.
└────────────────┘
//폼create이벤트에서
try
table1.Active:=true;
except on EDBEngineError do
begin
ShowMessage('db파일이 존재하지 않습니다');
frm_1.free; //혹은 frmInput.destroy
frm_11.free;
end;
end;
이렇게 하면, 메세지는 나타나는데, frm_1안에 있는 frm_11는 생성되어버리네요.
<질문1> 위와 같이, db파일이 존재하지 않을 때, 폼이 생성되지 않도록
하려면 어떻게 해야할까요?
<질문2> db파일이 존재하지 않을경우, 해당 db파일이 있는곳을 찾으려 합니다.
예를 들어, if not Table1.exists then
var
sPath, stemp:string;
begin
//sPath:=(db파일이 있는 path를 알아내는 함수 사용)
//stemp:=extractFilePath(sPath);
//중략
end;
이런식으로 하려하거든요.
자신이 찾고자 하는 파일을 찾는 함수를 알고자 합니다.
|